Re: cus-dep.el broken

sb> I don't know. I had hoped that "I don't know" is the answer to "when?", not "Hopefully, it will be in 21.0-b58"... :-( Thanks for b59 anyway... - Christoph 1998-11-30 Hrvoje Niksic <hniksic(a)srce.hr&gt; * cus-dep.el (Custom-make-dependencies): Be smarter about trapping errors. --- lisp/cus-dep.el.orig Mon Nov 30 21:03:24 1998 +++ lisp/cus-dep.el Mon Nov 30 21:03:43 1998 ＠＠ -131,15 +131,21 ＠＠ (file-name-nondirectory file)))) ;; Search for defcustom/defface/defgroup ;; expressions, and evaluate them. - (ignore-errors - (while (re-search-forward - "^(defcustom\\|^(defface\\|^(defgroup" - nil t) - (beginning-of-line) - (let ((expr (read (current-buffer)))) - (eval expr) - ;; Hash the file of the affected symbol. - (setf (gethash (nth 1 expr) hash) name))))))) + (while (re-search-forward + "^(defcustom\\|^(defface\\|^(defgroup" + nil t) + (beginning-of-line) + (let ((expr (read (current-buffer)))) + ;; We need to ignore errors here, so that + ;; defcustoms with :set don't bug out. Of + ;; course, their values will not be assigned in + ;; case of errors, but their `custom-group' + ;; properties will by that time be in place, and + ;; that's all we care about. + (ignore-errors + (eval expr)) + ;; Hash the file of the affected symbol. + (setf (gethash (nth 1 expr) hash) name)))))) (cond ((zerop (hash-table-count hash)) (princ "(No customization dependencies")