1 |
;;; bookmark.el --- set bookmarks, maybe annotate them, jump to them later |
;;; bookmark.el --- set bookmarks, maybe annotate them, jump to them later |
2 |
|
|
3 |
;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 2001 Free Software Foundation |
;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 2001, 2003 Free Software Foundation |
4 |
|
|
5 |
;; Author: Karl Fogel <kfogel@red-bean.com> |
;; Author: Karl Fogel <kfogel@red-bean.com> |
6 |
;; Maintainer: Karl Fogel <kfogel@red-bean.com> |
;; Maintainer: Karl Fogel <kfogel@red-bean.com> |
234 |
key of your choice to `bookmark-map'. All interactive bookmark |
key of your choice to `bookmark-map'. All interactive bookmark |
235 |
functions have a binding in this keymap.") |
functions have a binding in this keymap.") |
236 |
|
|
237 |
;;;###autoload |
;;;###autoload (define-prefix-command 'bookmark-map) |
|
(define-prefix-command 'bookmark-map) |
|
238 |
|
|
239 |
;; Read the help on all of these functions for details... |
;; Read the help on all of these functions for details... |
240 |
;;;###autoload |
;;;###autoload (define-key bookmark-map "x" 'bookmark-set) |
241 |
(define-key bookmark-map "x" 'bookmark-set) |
;;;###autoload (define-key bookmark-map "m" 'bookmark-set) ; "m" for "mark" |
242 |
;;;###autoload |
;;;###autoload (define-key bookmark-map "j" 'bookmark-jump) |
243 |
(define-key bookmark-map "m" 'bookmark-set) ; "m" for "mark" |
;;;###autoload (define-key bookmark-map "g" 'bookmark-jump) ; "g" for "go" |
244 |
;;;###autoload |
;;;###autoload (define-key bookmark-map "i" 'bookmark-insert) |
245 |
(define-key bookmark-map "j" 'bookmark-jump) |
;;;###autoload (define-key bookmark-map "e" 'edit-bookmarks) |
246 |
;;;###autoload |
;;;###autoload (define-key bookmark-map "f" 'bookmark-insert-location) ; "f" for "find" |
247 |
(define-key bookmark-map "g" 'bookmark-jump) ; "g" for "go" |
;;;###autoload (define-key bookmark-map "r" 'bookmark-rename) |
248 |
;;;###autoload |
;;;###autoload (define-key bookmark-map "d" 'bookmark-delete) |
249 |
(define-key bookmark-map "i" 'bookmark-insert) |
;;;###autoload (define-key bookmark-map "l" 'bookmark-load) |
250 |
;;;###autoload |
;;;###autoload (define-key bookmark-map "w" 'bookmark-write) |
251 |
(define-key bookmark-map "e" 'edit-bookmarks) |
;;;###autoload (define-key bookmark-map "s" 'bookmark-save) |
|
;;;###autoload |
|
|
(define-key bookmark-map "f" 'bookmark-insert-location) ; "f" for "find" |
|
|
;;;###autoload |
|
|
(define-key bookmark-map "r" 'bookmark-rename) |
|
|
;;;###autoload |
|
|
(define-key bookmark-map "d" 'bookmark-delete) |
|
|
;;;###autoload |
|
|
(define-key bookmark-map "l" 'bookmark-load) |
|
|
;;;###autoload |
|
|
(define-key bookmark-map "w" 'bookmark-write) |
|
|
;;;###autoload |
|
|
(define-key bookmark-map "s" 'bookmark-save) |
|
252 |
|
|
253 |
|
|
254 |
;;; The annotation maps. |
;;; The annotation maps. |
2213 |
(cons 'bookmark menu-bar-final-items))) |
(cons 'bookmark menu-bar-final-items))) |
2214 |
(setq menu-bar-final-items '(bookmark))) |
(setq menu-bar-final-items '(bookmark))) |
2215 |
|
|
2216 |
;;;###autoload |
;;;###autoload (define-key menu-bar-bookmark-map [load] |
2217 |
(define-key menu-bar-bookmark-map [load] |
;;;###autoload '("Load a Bookmark File..." . bookmark-load)) |
|
'("Load a Bookmark File..." . bookmark-load)) |
|
2218 |
|
|
2219 |
;;;###autoload |
;;;###autoload (define-key menu-bar-bookmark-map [write] |
2220 |
(define-key menu-bar-bookmark-map [write] |
;;;###autoload '("Save Bookmarks As..." . bookmark-write)) |
|
'("Save Bookmarks As..." . bookmark-write)) |
|
2221 |
|
|
2222 |
;;;###autoload |
;;;###autoload (define-key menu-bar-bookmark-map [save] |
2223 |
(define-key menu-bar-bookmark-map [save] |
;;;###autoload '("Save Bookmarks" . bookmark-save)) |
|
'("Save Bookmarks" . bookmark-save)) |
|
2224 |
|
|
2225 |
;;;###autoload |
;;;###autoload (define-key menu-bar-bookmark-map [edit] |
2226 |
(define-key menu-bar-bookmark-map [edit] |
;;;###autoload '("Edit Bookmark List" . bookmark-bmenu-list)) |
|
'("Edit Bookmark List" . bookmark-bmenu-list)) |
|
2227 |
|
|
2228 |
;;;###autoload |
;;;###autoload (define-key menu-bar-bookmark-map [delete] |
2229 |
(define-key menu-bar-bookmark-map [delete] |
;;;###autoload '("Delete Bookmark" . bookmark-menu-delete)) |
|
'("Delete Bookmark" . bookmark-menu-delete)) |
|
2230 |
|
|
2231 |
;;;###autoload |
;;;###autoload (define-key menu-bar-bookmark-map [rename] |
2232 |
(define-key menu-bar-bookmark-map [rename] |
;;;###autoload '("Rename Bookmark" . bookmark-menu-rename)) |
|
'("Rename Bookmark" . bookmark-menu-rename)) |
|
2233 |
|
|
2234 |
;;;###autoload |
;;;###autoload (define-key menu-bar-bookmark-map [locate] |
2235 |
(define-key menu-bar-bookmark-map [locate] |
;;;###autoload '("Insert Location" . bookmark-menu-locate)) |
|
'("Insert Location" . bookmark-menu-locate)) |
|
2236 |
|
|
2237 |
;;;###autoload |
;;;###autoload (define-key menu-bar-bookmark-map [insert] |
2238 |
(define-key menu-bar-bookmark-map [insert] |
;;;###autoload '("Insert Contents" . bookmark-menu-insert)) |
|
'("Insert Contents" . bookmark-menu-insert)) |
|
2239 |
|
|
2240 |
;;;###autoload |
;;;###autoload (define-key menu-bar-bookmark-map [set] |
2241 |
(define-key menu-bar-bookmark-map [set] |
;;;###autoload '("Set Bookmark" . bookmark-set)) |
|
'("Set Bookmark" . bookmark-set)) |
|
2242 |
|
|
2243 |
;;;###autoload |
;;;###autoload (define-key menu-bar-bookmark-map [jump] |
2244 |
(define-key menu-bar-bookmark-map [jump] |
;;;###autoload '("Jump to Bookmark" . bookmark-menu-jump)) |
|
'("Jump to Bookmark" . bookmark-menu-jump)) |
|
2245 |
|
|
2246 |
;;;; end bookmark menu stuff ;;;; |
;;;; end bookmark menu stuff ;;;; |
2247 |
|
|