Mercurial > emacs
changeset 60595:b392b963c10b
(define-generic-mode): Let generic-mode-list be a list of strings;
test membership with equal.
| author | Lute Kamstra <lute@gnu.org> |
|---|---|
| date | Mon, 14 Mar 2005 11:06:20 +0000 |
| parents | 362e4cd2e9f8 |
| children | 75f0e28dfa38 |
| files | lisp/generic.el |
| diffstat | 1 files changed, 2 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/generic.el Mon Mar 14 10:00:58 2005 +0000 +++ b/lisp/generic.el Mon Mar 14 11:06:20 2005 +0000 @@ -1,6 +1,6 @@ ;;; generic.el --- defining simple major modes with comment and font-lock ;; -;; Copyright (C) 1997, 1999, 2004 Free Software Foundation, Inc. +;; Copyright (C) 1997, 1999, 2004, 2005 Free Software Foundation, Inc. ;; ;; Author: Peter Breton <pbreton@cs.umb.edu> ;; Created: Fri Sep 27 1996 @@ -215,8 +215,7 @@ See the file generic-x.el for some examples of `define-generic-mode'." ;; Add a new entry - (unless (assq name generic-mode-list) - (push (list (symbol-name name)) generic-mode-list)) + (add-to-list 'generic-mode-list (symbol-name name)) ;; Add it to auto-mode-alist (dolist (re auto-mode-list)