From: Lute Kamstra <lute@gnu.org>
Date: Mon, 14 Mar 2005 11:07:07 +0000 (+0000)
Subject: (define-generic-mode): Let generic-mode-list be a list of strings;
X-Git-Tag: ttn-vms-21-2-B4~1812
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=43314bf6ef825063701459dae7575506b6f70c35;p=emacs.git

(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 fc9baa42987..3b27d4c83b0 100644
--- 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 fe3c2c274af..9545b0970ac 100644
--- 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)