Mercurial > hg > xemacs-beta

comparison lisp/utils/facemenu.el @ 209:41ff10fd062f r20-4b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b3
author cvs
date Mon, 13 Aug 2007 10:04:58 +0200
parents e45d5e7c476e
children
comparison
equal deleted inserted replaced
208:f427b8ec4379 209:41ff10fd062f
781 (cdr menu))) 781 (cdr menu)))
782 782
783 (defun facemenu-insert-menu-entry (menu before-entry name function) 783 (defun facemenu-insert-menu-entry (menu before-entry name function)
784 "Insert menu item with name NAME and associated function FUNCTION 784 "Insert menu item with name NAME and associated function FUNCTION
785 into menu MENU before entry BEFORE-ENTRY." 785 into menu MENU before entry BEFORE-ENTRY."
786 (while (not (eq (cadr menu) before-entry)) 786 (when (featurep 'menubar)
787 (setq menu (cdr menu))) 787 (while (not (eq (cadr menu) before-entry))
788 (setcdr menu (cons (vector name function t) (cdr menu)))) 788 (setq menu (cdr menu)))
789 (setcdr menu (cons (vector name function t) (cdr menu)))))
789 790
790 (defun facemenu-add-new-face (face) 791 (defun facemenu-add-new-face (face)
791 "Add a FACE to the appropriate Face menu. 792 "Add a FACE to the appropriate Face menu.
792 Automatically called when a new face is created." 793 Automatically called when a new face is created."
793 (let* ((name (symbol-name face)) 794 (let* ((name (symbol-name face))