/[emacs]/emacs/lisp/bookmark.el
ViewVC logotype

Diff of /emacs/lisp/bookmark.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.63 by rost, Mon Nov 18 00:14:21 2002 UTC revision 1.64 by schwab, Sat Aug 2 22:04:16 2003 UTC
# Line 1  Line 1 
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>
# Line 234  so that you have a bookmark prefix, just Line 234  so that you have a bookmark prefix, just
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.
# Line 2226  corresponding bookmark function from Lis Line 2213  corresponding bookmark function from Lis
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    

Legend:
Removed from v.1.63  
changed lines
  Added in v.1.64

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26