File tree Expand file tree Collapse file tree 1 file changed +5
-3
lines changed Expand file tree Collapse file tree 1 file changed +5
-3
lines changed Original file line number Diff line number Diff line change @@ -227,14 +227,16 @@ Each string is a regexp, matched against variable names to omit from
227
227
(dolist (conf configs)
228
228
(unless (memq conf minemacs-ignore-user-config)
229
229
(let ((conf-path (format " %s%s .el" minemacs-config-dir conf)))
230
- (when (file-exists-p conf-path)
231
- (load conf-path nil (not minemacs-verbose-p)))))))
230
+ (when (file-exists-p conf-path) (+load conf-path))))))
232
231
233
232
(defun +load (&rest filename-parts)
234
233
" Load a file, the FILENAME-PARTS are concatenated to form the file name."
235
234
(let ((filename (file-truename (apply #'concat filename-parts))))
236
235
(if (file-exists-p filename)
237
- (load filename nil (not minemacs-verbose-p))
236
+ (if minemacs-debug-p
237
+ (load filename nil )
238
+ (with-demoted-errors " [MinEmacs:LoadError] %s"
239
+ (load filename nil (not minemacs-verbose-p))))
238
240
(message " [MinEmacs:Error] Cannot load \" %s \" , the file doesn't exists. " filename))))
239
241
240
242
You can’t perform that action at this time.
0 commit comments