(define-generic-mode): Let generic-mode-list be a list of strings;

test membership with equal.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fc9baa42987590f7786c31e690afc06b0d635f0f..3b27d4c83b00af46f0253ef4e95f0bb005a4e988 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-03-14  Lute Kamstra  <lute@gnu.org>
+
+       * generic.el (define-generic-mode): Let generic-mode-list be a
+       list of strings; test membership with equal.
+
 2005-03-14  Kim F. Storm  <storm@cua.dk>
 
        * simple.el (next-line, previous-line): Add optional try-vscroll

diff --git a/lisp/generic.el b/lisp/generic.el
index fe3c2c274af9fb14f761af4828d1467dd247cd89..9545b0970accf54d9b0a71d09ddae64280d0d35f 100644 (file)
--- a/lisp/generic.el
+++ b/lisp/generic.el
@@ -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 @@ FUNCTION-LIST is a list of functions to call to do some additional setup.
 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)