+2001-12-21 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * lisp/dgnushack.el (dgnushack-bind-colon-keywords): Ignore
+ non-list forms in the top level.
+
2001-12-18 Josh Huber <huber@alum.wpi.edu>
* ChangeLog, todo: (oops) changed buffer-file-coding-system back
(while (setq form (condition-case nil
(read buffer)
(error nil)))
- (while form
- (setq elem (pop form))
- (unless (memq (car-safe elem)
- '(\` backquote
- defcustom defface defgroup
- define-widget quote))
- (while (consp elem)
- (push (car elem) form)
- (setq elem (cdr elem)))
- (when (and elem
- (symbolp elem)
- (not (eq ': elem))
- (eq ?: (aref (symbol-name elem) 0))
- (not (memq elem ignores))
- (not (memq elem keywords)))
- (push elem keywords)))))))
+ (when (listp form)
+ (while form
+ (setq elem (pop form))
+ (unless (memq (car-safe elem)
+ '(\` backquote
+ defcustom defface defgroup
+ define-widget quote))
+ (while (consp elem)
+ (push (car elem) form)
+ (setq elem (cdr elem)))
+ (when (and elem
+ (symbolp elem)
+ (not (eq ': elem))
+ (eq ?: (aref (symbol-name elem) 0))
+ (not (memq elem ignores))
+ (not (memq elem keywords)))
+ (push elem keywords))))))))
(setq keywords (sort keywords
(lambda (a b)
(string-lessp (symbol-name a)