Mercurial > emacs

comparison lisp/menu-bar.el @ 105058:27669cf921ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-search-menu, menu-bar-edit-menu) (menu-bar-options-menu, menu-bar-showhide-fringe-menu) (menu-bar-showhide-menu, menu-bar-tools-menu) (menu-bar-describe-menu, menu-bar-help-menu) (minibuffer-local-completion-map, minibuffer-local-map): Fix list quoting.
author Juri Linkov <juri@jurta.org>
date Thu, 17 Sep 2009 10:31:06 +0000
parents f519ea72decd
children d991506f9286
comparison
equal deleted inserted replaced
105057:12bb7892ba1d 105058:27669cf921ef
285 (define-key menu-bar-i-search-menu [isearch-forward] 285 (define-key menu-bar-i-search-menu [isearch-forward]
286 `(menu-item ,(purecopy "Forward String...") isearch-forward 286 `(menu-item ,(purecopy "Forward String...") isearch-forward
287 :help ,(purecopy "Search forward for a string as you type it"))) 287 :help ,(purecopy "Search forward for a string as you type it")))
288 288
289 (define-key menu-bar-search-menu [i-search] 289 (define-key menu-bar-search-menu [i-search]
290 `(menu-item ,(purecopy "Incremental Search") menu-bar-i-search-menu)) 290 `(menu-item ,(purecopy "Incremental Search") ,menu-bar-i-search-menu))
291 (define-key menu-bar-search-menu [separator-tag-isearch] 291 (define-key menu-bar-search-menu [separator-tag-isearch]
292 `(menu-item ,(purecopy "--"))) 292 `(menu-item ,(purecopy "--")))
293 293
294 (define-key menu-bar-search-menu [tags-continue] 294 (define-key menu-bar-search-menu [tags-continue]
295 `(menu-item ,(purecopy "Continue Tags Search") tags-loop-continue 295 `(menu-item ,(purecopy "Continue Tags Search") tags-loop-continue
424 (define-key menu-bar-goto-menu [go-to-line] 424 (define-key menu-bar-goto-menu [go-to-line]
425 `(menu-item ,(purecopy "Goto Line...") goto-line 425 `(menu-item ,(purecopy "Goto Line...") goto-line
426 :help ,(purecopy "Read a line number and go to that line"))) 426 :help ,(purecopy "Read a line number and go to that line")))
427 427
428 (define-key menu-bar-edit-menu [goto] 428 (define-key menu-bar-edit-menu [goto]
429 `(menu-item ,(purecopy "Go To") menu-bar-goto-menu)) 429 `(menu-item ,(purecopy "Go To") ,menu-bar-goto-menu))
430 430
431 (define-key menu-bar-edit-menu [replace] 431 (define-key menu-bar-edit-menu [replace]
432 `(menu-item ,(purecopy "Replace") menu-bar-replace-menu)) 432 `(menu-item ,(purecopy "Replace") ,menu-bar-replace-menu))
433 433
434 (define-key menu-bar-edit-menu [search] 434 (define-key menu-bar-edit-menu [search]
435 `(menu-item ,(purecopy "Search") menu-bar-search-menu)) 435 `(menu-item ,(purecopy "Search") ,menu-bar-search-menu))
436 436
437 (define-key menu-bar-edit-menu [separator-search] 437 (define-key menu-bar-edit-menu [separator-search]
438 `(menu-item ,(purecopy "--"))) 438 `(menu-item ,(purecopy "--")))
439 439
440 (define-key menu-bar-edit-menu [mark-whole-buffer] 440 (define-key menu-bar-edit-menu [mark-whole-buffer]
657 (custom-push-theme 'theme-face 'default 'user 'set spec) 657 (custom-push-theme 'theme-face 'default 'user 'set spec)
658 (put 'default 'face-modified nil)))) 658 (put 'default 'face-modified nil))))
659 659
660 ;;; Assemble all the top-level items of the "Options" menu 660 ;;; Assemble all the top-level items of the "Options" menu
661 (define-key menu-bar-options-menu [customize] 661 (define-key menu-bar-options-menu [customize]
662 `(menu-item ,(purecopy "Customize Emacs") menu-bar-custom-menu)) 662 `(menu-item ,(purecopy "Customize Emacs") ,menu-bar-custom-menu))
663 663
664 (defun menu-bar-options-save () 664 (defun menu-bar-options-save ()
665 "Save current values of Options menu items using Custom." 665 "Save current values of Options menu items using Custom."
666 (interactive) 666 (interactive)
667 (let ((need-save nil)) 667 (let ((need-save nil))
834 :help ,(purecopy "Hide all buffer boundary indicators and arrows") 834 :help ,(purecopy "Hide all buffer boundary indicators and arrows")
835 :visible (display-graphic-p) 835 :visible (display-graphic-p)
836 :button (:radio . (eq indicate-buffer-boundaries nil)))) 836 :button (:radio . (eq indicate-buffer-boundaries nil))))
837 837
838 (define-key menu-bar-showhide-fringe-menu [showhide-fringe-ind] 838 (define-key menu-bar-showhide-fringe-menu [showhide-fringe-ind]
839 `(menu-item ,(purecopy "Buffer Boundaries") menu-bar-showhide-fringe-ind-menu 839 `(menu-item ,(purecopy "Buffer Boundaries") ,menu-bar-showhide-fringe-ind-menu
840 :visible `(display-graphic-p) 840 :visible (display-graphic-p)
841 :help ,(purecopy "Indicate buffer boundaries in fringe"))) 841 :help ,(purecopy "Indicate buffer boundaries in fringe")))
842 842
843 (define-key menu-bar-showhide-fringe-menu [indicate-empty-lines] 843 (define-key menu-bar-showhide-fringe-menu [indicate-empty-lines]
844 (menu-bar-make-toggle toggle-indicate-empty-lines indicate-empty-lines 844 (menu-bar-make-toggle toggle-indicate-empty-lines indicate-empty-lines
845 "Empty Line Indicators" 845 "Empty Line Indicators"
846 "Indicating of empty lines %s" 846 "Indicating of empty lines %s"
902 :help ,(purecopy "Turn off fringe") 902 :help ,(purecopy "Turn off fringe")
903 :visible (display-graphic-p) 903 :visible (display-graphic-p)
904 :button (:radio . (eq fringe-mode 0)))) 904 :button (:radio . (eq fringe-mode 0))))
905 905
906 (define-key menu-bar-showhide-menu [showhide-fringe] 906 (define-key menu-bar-showhide-menu [showhide-fringe]
907 `(menu-item ,(purecopy "Fringe") menu-bar-showhide-fringe-menu 907 `(menu-item ,(purecopy "Fringe") ,menu-bar-showhide-fringe-menu
908 :visible `(display-graphic-p))) 908 :visible (display-graphic-p)))
909 909
910 (defvar menu-bar-showhide-scroll-bar-menu (make-sparse-keymap "Scroll-bar")) 910 (defvar menu-bar-showhide-scroll-bar-menu (make-sparse-keymap "Scroll-bar"))
911 911
912 (define-key menu-bar-showhide-scroll-bar-menu [right] 912 (define-key menu-bar-showhide-scroll-bar-menu [right]
913 `(menu-item ,(purecopy "On the Right") 913 `(menu-item ,(purecopy "On the Right")
946 "Turn off scroll bars." 946 "Turn off scroll bars."
947 (interactive) 947 (interactive)
948 (customize-set-variable 'scroll-bar-mode nil)) 948 (customize-set-variable 'scroll-bar-mode nil))
949 949
950 (define-key menu-bar-showhide-menu [showhide-scroll-bar] 950 (define-key menu-bar-showhide-menu [showhide-scroll-bar]
951 `(menu-item ,(purecopy "Scroll-bar") menu-bar-showhide-scroll-bar-menu 951 `(menu-item ,(purecopy "Scroll-bar") ,menu-bar-showhide-scroll-bar-menu
952 :visible `(display-graphic-p))) 952 :visible (display-graphic-p)))
953 953
954 (define-key menu-bar-showhide-menu [showhide-tooltip-mode] 954 (define-key menu-bar-showhide-menu [showhide-tooltip-mode]
955 `(menu-item ,(purecopy "Tooltips") 'tooltip-mode 955 `(menu-item ,(purecopy "Tooltips") tooltip-mode
956 :help ,(purecopy "Turn tooltips on/off") 956 :help ,(purecopy "Turn tooltips on/off")
957 :visible `(and (display-graphic-p) (fboundp 'x-show-tip)) 957 :visible (and (display-graphic-p) (fboundp 'x-show-tip))
958 :button `(:toggle . tooltip-mode))) 958 :button (:toggle . tooltip-mode)))
959 959
960 (define-key menu-bar-showhide-menu [menu-bar-mode] 960 (define-key menu-bar-showhide-menu [menu-bar-mode]
961 `(menu-item ,(purecopy "Menu-bar") toggle-menu-bar-mode-from-frame 961 `(menu-item ,(purecopy "Menu-bar") toggle-menu-bar-mode-from-frame
962 :help ,(purecopy "Turn menu-bar on/off") 962 :help ,(purecopy "Turn menu-bar on/off")
963 :button (:toggle . (> (frame-parameter nil 'menu-bar-lines) 0)))) 963 :button (:toggle . (> (frame-parameter nil 'menu-bar-lines) 0))))
964 964
965 (define-key menu-bar-showhide-menu [showhide-tool-bar] 965 (define-key menu-bar-showhide-menu [showhide-tool-bar]
966 `(menu-item ,(purecopy "Tool-bar") 'toggle-tool-bar-mode-from-frame 966 `(menu-item ,(purecopy "Tool-bar") toggle-tool-bar-mode-from-frame
967 :help ,(purecopy "Turn tool-bar on/off") 967 :help ,(purecopy "Turn tool-bar on/off")
968 :visible `(display-graphic-p) 968 :visible (display-graphic-p)
969 :button `(:toggle . (> (frame-parameter nil 'tool-bar-lines) 0)))) 969 :button (:toggle . (> (frame-parameter nil 'tool-bar-lines) 0))))
970 970
971 (define-key menu-bar-options-menu [showhide] 971 (define-key menu-bar-options-menu [showhide]
972 `(menu-item ,(purecopy "Show/Hide") menu-bar-showhide-menu)) 972 `(menu-item ,(purecopy "Show/Hide") ,menu-bar-showhide-menu))
973 973
974 (define-key menu-bar-options-menu [showhide-separator] 974 (define-key menu-bar-options-menu [showhide-separator]
975 '("--")) 975 '("--"))
976 976
977 (define-key menu-bar-options-menu [mule] 977 (define-key menu-bar-options-menu [mule]
978 ;; It is better not to use backquote here, 978 ;; It is better not to use backquote here,
979 ;; because that makes a bootstrapping problem 979 ;; because that makes a bootstrapping problem
980 ;; if you need to recompile all the Lisp files using interpreted code. 980 ;; if you need to recompile all the Lisp files using interpreted code.
981 `(menu-item ,(purecopy "Mule (Multilingual Environment)") mule-menu-keymap 981 `(menu-item ,(purecopy "Mule (Multilingual Environment)") ,mule-menu-keymap
982 ;; Most of the MULE menu actually does make sense in unibyte mode, 982 ;; Most of the MULE menu actually does make sense in unibyte mode,
983 ;; e.g. language selection. 983 ;; e.g. language selection.
984 ;;; :visible '(default-value 'enable-multibyte-characters) 984 ;;; :visible '(default-value 'enable-multibyte-characters)
985 )) 985 ))
986 ;(setq menu-bar-final-items (cons 'mule menu-bar-final-items)) 986 ;(setq menu-bar-final-items (cons 'mule menu-bar-final-items))
987 ;(define-key menu-bar-options-menu [preferences] 987 ;(define-key menu-bar-options-menu [preferences]
988 ; `(menu-item ,(purecopy "Preferences") menu-bar-preferences-menu 988 ; `(menu-item ,(purecopy "Preferences") ,menu-bar-preferences-menu
989 ; :help ,(purecopy "Toggle important global options"))) 989 ; :help ,(purecopy "Toggle important global options")))
990 990
991 (define-key menu-bar-options-menu [mule-separator] 991 (define-key menu-bar-options-menu [mule-separator]
992 '("--")) 992 '("--"))
993 993
994 (define-key menu-bar-options-menu [debug-on-quit] 994 (define-key menu-bar-options-menu [debug-on-quit]
1109 (not word-wrap))) 1109 (not word-wrap)))
1110 :visible (menu-bar-menu-frame-live-and-visible-p) 1110 :visible (menu-bar-menu-frame-live-and-visible-p)
1111 :enable (not (truncated-partial-width-window-p)))) 1111 :enable (not (truncated-partial-width-window-p))))
1112 1112
1113 (define-key menu-bar-options-menu [line-wrapping] 1113 (define-key menu-bar-options-menu [line-wrapping]
1114 `(menu-item ,(purecopy "Line Wrapping in this Buffer") menu-bar-line-wrapping-menu)) 1114 `(menu-item ,(purecopy "Line Wrapping in this Buffer") ,menu-bar-line-wrapping-menu))
1115 1115
1116 1116
1117 (define-key menu-bar-options-menu [highlight-separator] 1117 (define-key menu-bar-options-menu [highlight-separator]
1118 '("--")) 1118 '("--"))
1119 (define-key menu-bar-options-menu [highlight-paren-mode] 1119 (define-key menu-bar-options-menu [highlight-paren-mode]
1150 (if known (cdr known) (symbol-name read-mail-command)))) 1150 (if known (cdr known) (symbol-name read-mail-command))))
1151 1151
1152 (defvar menu-bar-games-menu (make-sparse-keymap "Games")) 1152 (defvar menu-bar-games-menu (make-sparse-keymap "Games"))
1153 1153
1154 (define-key menu-bar-tools-menu [games] 1154 (define-key menu-bar-tools-menu [games]
1155 `(menu-item ,(purecopy "Games") menu-bar-games-menu)) 1155 `(menu-item ,(purecopy "Games") ,menu-bar-games-menu))
1156 1156
1157 (define-key menu-bar-tools-menu [separator-games] 1157 (define-key menu-bar-tools-menu [separator-games]
1158 '("--")) 1158 '("--"))
1159 1159
1160 (define-key menu-bar-games-menu [zone] 1160 (define-key menu-bar-games-menu [zone]
1199 1199
1200 (defvar menu-bar-encryption-decryption-menu 1200 (defvar menu-bar-encryption-decryption-menu
1201 (make-sparse-keymap "Encryption/Decryption")) 1201 (make-sparse-keymap "Encryption/Decryption"))
1202 1202
1203 (define-key menu-bar-tools-menu [encryption-decryption] 1203 (define-key menu-bar-tools-menu [encryption-decryption]
1204 `(menu-item ,(purecopy "Encryption/Decryption") menu-bar-encryption-decryption-menu)) 1204 `(menu-item ,(purecopy "Encryption/Decryption") ,menu-bar-encryption-decryption-menu))
1205 1205
1206 (define-key menu-bar-tools-menu [separator-encryption-decryption] 1206 (define-key menu-bar-tools-menu [separator-encryption-decryption]
1207 '("--")) 1207 '("--"))
1208 1208
1209 (define-key menu-bar-encryption-decryption-menu [insert-keys] 1209 (define-key menu-bar-encryption-decryption-menu [insert-keys]
1278 '("--")) 1278 '("--"))
1279 1279
1280 (define-key menu-bar-tools-menu [directory-search] 1280 (define-key menu-bar-tools-menu [directory-search]
1281 `(menu-item ,(purecopy "Directory Search") eudc-tools-menu)) 1281 `(menu-item ,(purecopy "Directory Search") eudc-tools-menu))
1282 (define-key menu-bar-tools-menu [compose-mail] 1282 (define-key menu-bar-tools-menu [compose-mail]
1283 `(list 1283 `(menu-item (format "Send Mail (with %s)" (send-mail-item-name)) compose-mail
1284 'menu-item `(format "Send Mail (with %s)" (send-mail-item-name)) 1284 :visible (and mail-user-agent (not (eq mail-user-agent 'ignore)))
1285 'compose-mail 1285 :help ,(purecopy "Send a mail message")))
1286 :visible `(and mail-user-agent (not (eq mail-user-agent 'ignore)))
1287 :help ,(purecopy "Send a mail message")))
1288 (define-key menu-bar-tools-menu [rmail] 1286 (define-key menu-bar-tools-menu [rmail]
1289 `(list 1287 `(menu-item (format "Read Mail (with %s)" (read-mail-item-name)) menu-bar-read-mail
1290 'menu-item `(format "Read Mail (with %s)" (read-mail-item-name)) 1288 :visible (and read-mail-command (not (eq read-mail-command 'ignore)))
1291 'menu-bar-read-mail 1289 :help ,(purecopy "Read your mail and reply to it")))
1292 :visible `(and read-mail-command (not (eq read-mail-command 'ignore)))
1293 :help ,(purecopy "Read your mail and reply to it")))
1294 1290
1295 (defun menu-bar-read-mail () 1291 (defun menu-bar-read-mail ()
1296 "Read mail using `read-mail-command'." 1292 "Read mail using `read-mail-command'."
1297 (interactive) 1293 (interactive)
1298 (call-interactively read-mail-command)) 1294 (call-interactively read-mail-command))
1366 `(menu-item ,(purecopy "Describe Input Method...") describe-input-method 1362 `(menu-item ,(purecopy "Describe Input Method...") describe-input-method
1367 :visible (default-value 'enable-multibyte-characters) 1363 :visible (default-value 'enable-multibyte-characters)
1368 :help ,(purecopy "Keyboard layout for specific input method"))) 1364 :help ,(purecopy "Keyboard layout for specific input method")))
1369 (define-key menu-bar-describe-menu [describe-language-environment] 1365 (define-key menu-bar-describe-menu [describe-language-environment]
1370 `(menu-item ,(purecopy "Describe Language Environment") 1366 `(menu-item ,(purecopy "Describe Language Environment")
1371 describe-language-environment-map)) 1367 ,describe-language-environment-map))
1372 1368
1373 (define-key menu-bar-describe-menu [separator-desc-mule] 1369 (define-key menu-bar-describe-menu [separator-desc-mule]
1374 '("--")) 1370 '("--"))
1375 1371
1376 (define-key menu-bar-describe-menu [list-keybindings] 1372 (define-key menu-bar-describe-menu [list-keybindings]
1514 :help ,(purecopy "Lisp packages distributed separately for use in Emacs"))) 1510 :help ,(purecopy "Lisp packages distributed separately for use in Emacs")))
1515 (define-key menu-bar-help-menu [find-emacs-packages] 1511 (define-key menu-bar-help-menu [find-emacs-packages]
1516 `(menu-item ,(purecopy "Find Emacs Packages") finder-by-keyword 1512 `(menu-item ,(purecopy "Find Emacs Packages") finder-by-keyword
1517 :help ,(purecopy "Find packages and features by keyword"))) 1513 :help ,(purecopy "Find packages and features by keyword")))
1518 (define-key menu-bar-help-menu [more-manuals] 1514 (define-key menu-bar-help-menu [more-manuals]
1519 `(menu-item ,(purecopy "More Manuals") menu-bar-manuals-menu)) 1515 `(menu-item ,(purecopy "More Manuals") ,menu-bar-manuals-menu))
1520 (define-key menu-bar-help-menu [emacs-manual] 1516 (define-key menu-bar-help-menu [emacs-manual]
1521 `(menu-item ,(purecopy "Read the Emacs Manual") info-emacs-manual 1517 `(menu-item ,(purecopy "Read the Emacs Manual") info-emacs-manual
1522 :help ,(purecopy "Full documentation of Emacs features"))) 1518 :help ,(purecopy "Full documentation of Emacs features")))
1523 (define-key menu-bar-help-menu [describe] 1519 (define-key menu-bar-help-menu [describe]
1524 `(menu-item ,(purecopy "Describe") menu-bar-describe-menu)) 1520 `(menu-item ,(purecopy "Describe") ,menu-bar-describe-menu))
1525 (define-key menu-bar-help-menu [search-documentation] 1521 (define-key menu-bar-help-menu [search-documentation]
1526 `(menu-item ,(purecopy "Search Documentation") menu-bar-search-documentation-menu)) 1522 `(menu-item ,(purecopy "Search Documentation") ,menu-bar-search-documentation-menu))
1527 (define-key menu-bar-help-menu [sep1] 1523 (define-key menu-bar-help-menu [sep1]
1528 '("--")) 1524 '("--"))
1529 (define-key menu-bar-help-menu [emacs-psychotherapist] 1525 (define-key menu-bar-help-menu [emacs-psychotherapist]
1530 `(menu-item ,(purecopy "Emacs Psychotherapist") doctor 1526 `(menu-item ,(purecopy "Emacs Psychotherapist") doctor
1531 :help ,(purecopy "Our doctor will help you feel better"))) 1527 :help ,(purecopy "Our doctor will help you feel better")))
1866 (define-key map [menu-bar minibuf] 1862 (define-key map [menu-bar minibuf]
1867 (cons "Minibuf" (make-sparse-keymap "Minibuf")))) 1863 (cons "Minibuf" (make-sparse-keymap "Minibuf"))))
1868 1864
1869 (let ((map minibuffer-local-completion-map)) 1865 (let ((map minibuffer-local-completion-map))
1870 (define-key map [menu-bar minibuf ?\?] 1866 (define-key map [menu-bar minibuf ?\?]
1871 `(menu-item ,(purecopy "List Completions") 'minibuffer-completion-help 1867 `(menu-item ,(purecopy "List Completions") minibuffer-completion-help
1872 :help ,(purecopy "Display all possible completions"))) 1868 :help ,(purecopy "Display all possible completions")))
1873 (define-key map [menu-bar minibuf space] 1869 (define-key map [menu-bar minibuf space]
1874 `(menu-item ,(purecopy "Complete Word") 'minibuffer-complete-word 1870 `(menu-item ,(purecopy "Complete Word") minibuffer-complete-word
1875 :help ,(purecopy "Complete at most one word"))) 1871 :help ,(purecopy "Complete at most one word")))
1876 (define-key map [menu-bar minibuf tab] 1872 (define-key map [menu-bar minibuf tab]
1877 `(menu-item ,(purecopy "Complete") 'minibuffer-complete 1873 `(menu-item ,(purecopy "Complete") minibuffer-complete
1878 :help ,(purecopy "Complete as far as possible")))) 1874 :help ,(purecopy "Complete as far as possible"))))
1879 1875
1880 (let ((map minibuffer-local-map)) 1876 (let ((map minibuffer-local-map))
1881 (define-key map [menu-bar minibuf quit] 1877 (define-key map [menu-bar minibuf quit]
1882 `(menu-item ,(purecopy "Quit") 'abort-recursive-edit 1878 `(menu-item ,(purecopy "Quit") abort-recursive-edit
1883 :help ,(purecopy "Abort input and exit minibuffer"))) 1879 :help ,(purecopy "Abort input and exit minibuffer")))
1884 (define-key map [menu-bar minibuf return] 1880 (define-key map [menu-bar minibuf return]
1885 `(menu-item ,(purecopy "Enter") 'exit-minibuffer 1881 `(menu-item ,(purecopy "Enter") exit-minibuffer
1886 :key-sequence "\r" 1882 :key-sequence "\r"
1887 :help ,(purecopy "Terminate input and exit minibuffer"))) 1883 :help ,(purecopy "Terminate input and exit minibuffer")))
1888 (define-key map [menu-bar minibuf isearch-forward] 1884 (define-key map [menu-bar minibuf isearch-forward]
1889 `(menu-item ,(purecopy "Isearch History Forward") 'isearch-forward 1885 `(menu-item ,(purecopy "Isearch History Forward") isearch-forward
1890 :help ,(purecopy "Incrementally search minibuffer history forward"))) 1886 :help ,(purecopy "Incrementally search minibuffer history forward")))
1891 (define-key map [menu-bar minibuf isearch-backward] 1887 (define-key map [menu-bar minibuf isearch-backward]
1892 `(menu-item ,(purecopy "Isearch History Backward") 'isearch-backward 1888 `(menu-item ,(purecopy "Isearch History Backward") isearch-backward
1893 :help ,(purecopy "Incrementally search minibuffer history backward"))) 1889 :help ,(purecopy "Incrementally search minibuffer history backward")))
1894 (define-key map [menu-bar minibuf next] 1890 (define-key map [menu-bar minibuf next]
1895 `(menu-item ,(purecopy "Next History Item") 'next-history-element 1891 `(menu-item ,(purecopy "Next History Item") next-history-element
1896 :help ,(purecopy "Put next minibuffer history element in the minibuffer"))) 1892 :help ,(purecopy "Put next minibuffer history element in the minibuffer")))
1897 (define-key map [menu-bar minibuf previous] 1893 (define-key map [menu-bar minibuf previous]
1898 `(menu-item ,(purecopy "Previous History Item") 'previous-history-element 1894 `(menu-item ,(purecopy "Previous History Item") previous-history-element
1899 :help ,(purecopy "Put previous minibuffer history element in the minibuffer")))) 1895 :help ,(purecopy "Put previous minibuffer history element in the minibuffer"))))
1900 1896
1901 ;;;###autoload 1897 ;;;###autoload
1902 ;; This comment is taken from tool-bar.el near 1898 ;; This comment is taken from tool-bar.el near
1903 ;; (put 'tool-bar-mode ...) 1899 ;; (put 'tool-bar-mode ...)
1904 ;; We want to pretend the menu bar by standard is on, as this will make 1900 ;; We want to pretend the menu bar by standard is on, as this will make