comparison lisp/subr.el @ 105940:f7147d70f6ef

* subr.el (menu-bar-separator): New defconst. * replace.el (occur-mode-map): * menu-bar.el (menu-bar-file-menu, menu-bar-search-menu) (menu-bar-edit-menu, menu-bar-goto-menu, menu-bar-edit-menu) (menu-bar-custom-menu, menu-bar-showhide-menu) (menu-bar-options-menu, menu-bar-tools-menu) (menu-bar-encryption-decryption-menu, menu-bar-describe-menu) (menu-bar-search-documentation-menu, menu-bar-manuals-menu) (menu-bar-help-menu): * ediff-hook.el (menu-bar-ediff-menu, menu-bar-ediff-merge-menu): * buff-menu.el (Buffer-menu-mode-map): Use menu-bar-separator.
author Dan Nicolaescu <dann@ics.uci.edu>
date Wed, 11 Nov 2009 05:57:51 +0000
parents a0f778f4a995
children a465c7c7e59e
comparison
equal deleted inserted replaced
105939:a0f778f4a995 105940:f7147d70f6ef
3757 \"1alpha\"." 3757 \"1alpha\"."
3758 (version-list-= (version-to-list v1) (version-to-list v2))) 3758 (version-list-= (version-to-list v1) (version-to-list v2)))
3759 3759
3760 3760
3761 ;;; Misc. 3761 ;;; Misc.
3762 (defconst menu-bar-separator '("--")
3763 "Separator for menus.")
3762 3764
3763 ;; The following statement ought to be in print.c, but `provide' can't 3765 ;; The following statement ought to be in print.c, but `provide' can't
3764 ;; be used there. 3766 ;; be used there.
3765 (when (hash-table-p (car (read-from-string 3767 (when (hash-table-p (car (read-from-string
3766 (prin1-to-string (make-hash-table))))) 3768 (prin1-to-string (make-hash-table)))))