Mercurial > emacs

comparison lisp/bookmark.el @ 105744:b0a732611398

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* keymap.c (Fmake_sparse_keymap): Purecopy the name. * eval.c (Fautoload): Purecopy the filename. Simplify. * category.c (Fdefine_category): Purecopy docstring. * international/mule-cmds.el (set-language-info-alist): Purecopy lang-env. (leim-list-header, leim-list-entry-regexp): Change defvars to defconst. (charset): Purecopy the name. (define-char-code-property): Purecopy string arguments. * emacs-lisp/byte-run.el (make-obsolete, make-obsolete-variable): Purecopy string arguments. * emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): * ediff-hook.el (menu-bar-ediff-menu): * buff-menu.el (Buffer-menu-mode-map): Purecopy names and tooltips. * bookmark.el (menu-bar-bookmark-map): Add :help and purecopy the name.
author Dan Nicolaescu <dann@ics.uci.edu>
date Sat, 24 Oct 2009 06:32:03 +0000
parents e2fcb7b1231c
children 110c55336723
comparison
equal deleted inserted replaced
105743:f8478bbd8ebe 105744:b0a732611398
2099 ;; Emacs menubar stuff. 2099 ;; Emacs menubar stuff.
2100 2100
2101 ;;;###autoload 2101 ;;;###autoload
2102 (defvar menu-bar-bookmark-map 2102 (defvar menu-bar-bookmark-map
2103 (let ((map (make-sparse-keymap "Bookmark functions"))) 2103 (let ((map (make-sparse-keymap "Bookmark functions")))
2104 (define-key map [load] '("Load a Bookmark File..." . bookmark-load)) 2104 (define-key map [load]
2105 (define-key map [write] '("Save Bookmarks As..." . bookmark-write)) 2105 `(menu-item ,(purecopy "Load a Bookmark File...") bookmark-load
2106 (define-key map [save] '("Save Bookmarks" . bookmark-save)) 2106 :help ,(purecopy "Load bookmarks from a bookmark file)")))
2107 (define-key map [edit] '("Edit Bookmark List" . bookmark-bmenu-list)) 2107 (define-key map [write]
2108 (define-key map [delete] '("Delete Bookmark..." . bookmark-delete)) 2108 `(menu-item ,(purecopy "Save Bookmarks As...") bookmark-write
2109 (define-key map [rename] '("Rename Bookmark..." . bookmark-rename)) 2109 :help ,(purecopy "Write bookmarks to a file (reading the file name with the minibuffer)")))
2110 (define-key map [locate] '("Insert Location..." . bookmark-locate)) 2110 (define-key map [save]
2111 (define-key map [insert] '("Insert Contents..." . bookmark-insert)) 2111 `(menu-item ,(purecopy "Save Bookmarks") bookmark-save
2112 (define-key map [set] '("Set Bookmark..." . bookmark-set)) 2112 :help ,(purecopy "Save currently defined bookmarks")))
2113 (define-key map [jump] '("Jump to Bookmark..." . bookmark-jump)) 2113 (define-key map [edit]
2114 `(menu-item ,(purecopy "Edit Bookmark List") bookmark-bmenu-list
2115 :help ,(purecopy "Display a list of existing bookmarks")))
2116 (define-key map [delete]
2117 `(menu-item ,(purecopy "Delete Bookmark...") bookmark-delete
2118 :help ,(purecopy "Delete a bookmark from the bookmark list")))
2119 (define-key map [rename]
2120 `(menu-item ,(purecopy "Rename Bookmark...") bookmark-rename
2121 :help ,(purecopy "Change the name of a bookmark")))
2122 (define-key map [locate]
2123 `(menu-item ,(purecopy "Insert Location...") bookmark-locate
2124 :help ,(purecopy "Insert the name of the file associated with a bookmark")))
2125 (define-key map [insert]
2126 `(menu-item ,(purecopy "Insert Contents...") bookmark-insert
2127 :help ,(purecopy "Insert the text of the file pointed to by a bookmark")))
2128 (define-key map [set]
2129 `(menu-item ,(purecopy "Set Bookmark...") bookmark-set
2130 :help ,(purecopy "Set a bookmark named inside a file.")))
2131 (define-key map [jump]
2132 `(menu-item ,(purecopy "Jump to Bookmark...") bookmark-jump
2133 :help ,(purecopy "Jump to a bookmark (a point in some file)")))
2114 map)) 2134 map))
2115 2135
2116 ;;;###autoload 2136 ;;;###autoload
2117 (defalias 'menu-bar-bookmark-map menu-bar-bookmark-map) 2137 (defalias 'menu-bar-bookmark-map menu-bar-bookmark-map)
2118 2138