# HG changeset patch
# User Lute Kamstra <lute@gnu.org>
# Date 1110798380 0
# Node ID b392b963c10b45c7c6ef868fcbf40cac3d838da7
# Parent  362e4cd2e9f8cfac26669f6e3fc14527ca5baf70
(define-generic-mode): Let generic-mode-list be a list of strings;
test membership with equal.

diff -r 362e4cd2e9f8 -r b392b963c10b lisp/generic.el
--- 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)