(facemenu-add-new-face): Use this only for faces. Delete arg MENU.

(facemenu-add-new-color): New function.
(facemenu-set-foreground, facemenu-set-background):
Use facemenu-add-new-color.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7baa9808f6770ad34d53dbc67af5bd8c11f3079c..e0dec296a54b4def5033ac18b4db7d5dfa16f144 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2002-04-15  Richard M. Stallman  <rms@gnu.org>
+
+       * facemenu.el (facemenu-add-new-face): Use this only for faces.
+       Delete arg MENU.
+       (facemenu-add-new-color): New function.
+       (facemenu-set-foreground, facemenu-set-background):
+       Use facemenu-add-new-color.
+
 2002-04-15  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * ediff-init.el (ediff-current-diff-face-A) 

diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index b6a93bb09f4d938f02dc85aa8e6c6a0f375e13b9..e8a935b228651fcad8f8adac0a64e060b8b15a71 100644 (file)
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -363,7 +363,7 @@ typing a character to insert cancels the specification."
                         (region-end))))
   (unless (color-defined-p color)
     (message "Color `%s' undefined" color))
-  (facemenu-add-new-face color 'facemenu-foreground-menu)
+  (facemenu-add-new-color color 'facemenu-foreground-menu)
   (facemenu-add-face (list (list :foreground color)) start end))
 
 ;;;###autoload
@@ -387,7 +387,7 @@ typing a character to insert cancels the specification."
                         (region-end))))
   (unless (color-defined-p color)
     (message "Color `%s' undefined" color))
-  (facemenu-add-new-face color 'facemenu-background-menu)
+  (facemenu-add-new-color color 'facemenu-background-menu)
   (facemenu-add-face (list (list :background color)) start end))
 
 ;;;###autoload
@@ -805,37 +805,24 @@ If not, create it and add it to the appropriate menu.  Return the SYMBOL."
          (t (make-face symbol))))
   symbol)
 
-(defun facemenu-add-new-face (face-or-color &optional menu)
-  "Add FACE-OR-COLOR (a face or a color) to the appropriate Face menu.
-If MENU is nil, then FACE-OR-COLOR is a face to be added
-to `facemenu-face-menu'.  If MENU is `facemenu-foreground-menu'
-or `facemenu-background-menu', FACE-OR-COLOR is a color
-to be added to the specified menu.
+(defun facemenu-add-new-face (face)
+  "Add FACE (a face) to the Face menu.
 
 This is called whenever you create a new face."
   (let* (name
         symbol
-        docstring
-        (key (cdr (assoc face-or-color facemenu-keybindings)))
+        menu docstring
+        (key (cdr (assoc face facemenu-keybindings)))
         function menu-val)
-    (if (symbolp face-or-color)
-       (setq name (symbol-name face-or-color)
-             symbol face-or-color)
-      (setq name face-or-color
+    (if (symbolp face)
+       (setq name (symbol-name face)
+             symbol face)
+      (setq name face
            symbol (intern name)))
-    (cond ((eq menu 'facemenu-foreground-menu)
-          (setq docstring
-                (format "Select foreground color %s for subsequent insertion."
-                        name)))
-         ((eq menu 'facemenu-background-menu)
-          (setq docstring
-                (format "Select background color %s for subsequent insertion."
-                        name)))
-         (t
-          (setq menu 'facemenu-face-menu)
-          (setq docstring
-                (format "Select face `%s' for subsequent insertion."
-                        name))))
+    (setq menu 'facemenu-face-menu)
+    (setq docstring
+         (format "Select face `%s' for subsequent insertion."
+                 name))
     (cond ((eq t facemenu-unlisted-faces))
          ((memq symbol facemenu-unlisted-faces))
          ;; test against regexps in facemenu-unlisted-faces
@@ -877,6 +864,48 @@ This is called whenever you create a new face."
             (define-key menu key (cons name function))))))
   nil) ; Return nil for facemenu-iterate
 
+(defun facemenu-add-new-color (color &optional menu)
+  "Add COLOR (a color name string) to the appropriate Face menu.
+MENU should be `facemenu-foreground-menu' or
+`facemenu-background-menu'.
+
+This is called whenever you use a new color."
+  (let* (name
+        symbol
+        docstring
+        function menu-val key
+        (color-p (memq menu '(facemenu-foreground-menu
+                              facemenu-background-menu))))
+    (unless (stringp color)
+      (error "%s is not a color" color))
+    (setq name color
+         symbol (intern name))
+
+    (cond ((eq menu 'facemenu-foreground-menu)
+          (setq docstring
+                (format "Select foreground color %s for subsequent insertion."
+                        name)))
+         ((eq menu 'facemenu-background-menu)
+          (setq docstring
+                (format "Select background color %s for subsequent insertion."
+                        name))))
+    (cond ((facemenu-iterate ; check if equivalent face is already in the menu
+           (lambda (m) (and (listp m) 
+                            (symbolp (car m))
+                            (stringp (cadr m))
+                            (string-equal (cadr m) color)))
+           (cdr (symbol-function menu))))
+         (t   ; No keyboard equivalent.  Figure out where to put it:
+          (setq key (vector symbol)
+                function 'facemenu-set-face-from-menu
+                menu-val (symbol-function menu))
+          (if (and facemenu-new-faces-at-end
+                  (> (length menu-val) 3))
+              (define-key-after menu-val key (cons name function)
+                (car (nth (- (length menu-val) 3) menu-val)))
+            (define-key menu key (cons name function))))))
+  nil) ; Return nil for facemenu-iterate
+
 (defun facemenu-complete-face-list (&optional oldlist)
   "Return list of all faces that look different.
 Starts with given ALIST of faces, and adds elements only if they display