Mercurial > emacs

comparison lisp/bookmark.el @ 6282:1b76cf849b2f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-bookmark-map): Autoload the whole setup.
author Richard M. Stallman <rms@gnu.org>
date Thu, 10 Mar 1994 04:24:29 +0000
parents 069c54e77fd1
children 33477d79a6f2
comparison
equal deleted inserted replaced
6281:e98ae7dec34d 6282:1b76cf849b2f
1252 event)) 1252 event))
1253 1253
1254 ;; Thanks to Roland McGrath for fixing menubar.el so that the 1254 ;; Thanks to Roland McGrath for fixing menubar.el so that the
1255 ;; following works, and for explaining what to do to make it work. 1255 ;; following works, and for explaining what to do to make it work.
1256 1256
1257 ;;;###autoload
1257 (defvar menu-bar-bookmark-map (make-sparse-keymap "Bookmark functions.")) 1258 (defvar menu-bar-bookmark-map (make-sparse-keymap "Bookmark functions."))
1258 1259
1259 ;; make bookmarks appear toward the right side of the menu. 1260 ;;;###autoload
1260 (if (boundp 'menu-bar-final-items) 1261 (fset 'menu-bar-bookmark-map (symbol-value 'menu-bar-bookmark-map))
1261 (if menu-bar-final-items 1262
1262 (setq menu-bar-final-items 1263 ;;;###autoload
1263 (cons 'bookmark menu-bar-final-items)))
1264 (setq menu-bar-final-items '(bookmark)))
1265
1266 (define-key menu-bar-bookmark-map [load] 1264 (define-key menu-bar-bookmark-map [load]
1267 '("Load a bookmark file" . bookmark-load)) 1265 '("Load a bookmark file" . bookmark-load))
1268 1266
1267 ;;;###autoload
1269 (define-key menu-bar-bookmark-map [write] 1268 (define-key menu-bar-bookmark-map [write]
1270 '("Write \(to another file\)" . bookmark-write)) 1269 '("Write \(to another file\)" . bookmark-write))
1271 1270
1271 ;;;###autoload
1272 (define-key menu-bar-bookmark-map [save] 1272 (define-key menu-bar-bookmark-map [save]
1273 '("Save \(in default file\)" . bookmark-save)) 1273 '("Save \(in default file\)" . bookmark-save))
1274 1274
1275 ;;;###autoload
1275 (define-key menu-bar-bookmark-map [edit] 1276 (define-key menu-bar-bookmark-map [edit]
1276 '("Edit Bookmark List" . list-bookmarks)) 1277 '("Edit Bookmark List" . list-bookmarks))
1277 1278
1279 ;;;###autoload
1278 (define-key menu-bar-bookmark-map [delete] 1280 (define-key menu-bar-bookmark-map [delete]
1279 '("Delete bookmark" . bookmark-menu-bar-delete)) 1281 '("Delete bookmark" . bookmark-menu-bar-delete))
1280 1282
1283 ;;;###autoload
1281 (define-key menu-bar-bookmark-map [rename] 1284 (define-key menu-bar-bookmark-map [rename]
1282 '("Rename bookmark" . bookmark-menu-bar-rename)) 1285 '("Rename bookmark" . bookmark-menu-bar-rename))
1283 1286
1287 ;;;###autoload
1284 (define-key menu-bar-bookmark-map [locate] 1288 (define-key menu-bar-bookmark-map [locate]
1285 '("Insert location" . bookmark-menu-bar-locate)) 1289 '("Insert location" . bookmark-menu-bar-locate))
1286 1290
1291 ;;;###autoload
1287 (define-key menu-bar-bookmark-map [insert] 1292 (define-key menu-bar-bookmark-map [insert]
1288 '("Insert contents" . bookmark-menu-bar-insert)) 1293 '("Insert contents" . bookmark-menu-bar-insert))
1289 1294
1295 ;;;###autoload
1290 (define-key menu-bar-bookmark-map [set] 1296 (define-key menu-bar-bookmark-map [set]
1291 '("Set bookmark" . bookmark-set)) 1297 '("Set bookmark" . bookmark-set))
1292 1298
1299 ;;;###autoload
1293 (define-key menu-bar-bookmark-map [jump] 1300 (define-key menu-bar-bookmark-map [jump]
1294 '("Jump to bookmark" . bookmark-menu-bar-jump)) 1301 '("Jump to bookmark" . bookmark-menu-bar-jump))
1295
1296 ;;;###autoload (autoload 'menu-bar-bookmark-map "bookmark" nil t 'keymap)
1297 1302
1298 (fset 'menu-bar-bookmark-map (symbol-value 'menu-bar-bookmark-map)) 1303 (fset 'menu-bar-bookmark-map (symbol-value 'menu-bar-bookmark-map))
1299 1304
1300 ;;;; end bookmark menu-bar stuff ;;;; 1305 ;;;; end bookmark menu-bar stuff ;;;;
1301 1306