Bug#4685: emacs: debian-run-dir.el improvement
Package: emacs
version: 19.34-2
Here is an improvement of the debian-run-directory function which
prevents it to stop if a config file bugs.
Fred
*** debian-rundir.el 1996/10/03 04:47:40 1.1
--- debian-rundir.el 1996/10/03 04:48:44
***************
*** 33,39 ****
;; order.)
(defun debian-run-directory (&optional dir)
! (let ((directory (if dir dir "/etc/emacs/site-start.d")))
! (mapcar
! (lambda (f) (load f))
! (directory-files directory t "^[0-9][0-9].*\\.el$" nil))))
--- 33,49 ----
;; order.)
(defun debian-run-directory (&optional dir)
! "Load each file in the form 00filename.el stored in the path.
! The files are sorted so order can be controlled."
! (interactive "DConfiguration directory : ")
! (let ((path (if dir dir "/etc/emacs/site-start.d")))
! (mapcar
! (lambda (file)
! (if debug-on-error
! (load-file file)
! (condition-case ()
! (progn
! (load file nil t t)
! (message "*** %s loaded ***" (file-name-nondirectory file)))
! (error (message "Error while loading %s" file)))))
! (directory-files path t "^[0-9][0-9].*\\.el$" nil))))
--
TO UNSUBSCRIBE FROM THIS MAILING LIST: e-mail the word "unsubscribe" to
debian-devel-REQUEST@lists.debian.org . Trouble? e-mail to Bruce@Pixar.com
Reply to: