Mercurial > emacs
comparison lisp/bookmark.el @ 18709:a82b89790f9c
Make global bindings only via loaddefs.el.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 10 Jul 1997 06:43:19 +0000 |
parents | cd7152c1ca13 |
children | 6324d603cf6e |
comparison
equal
deleted
inserted
replaced
18708:965c5ee65d86 | 18709:a82b89790f9c |
---|---|
228 'buffer-substring-without-properties) | 228 'buffer-substring-without-properties) |
229 (fset 'buffer-substring-no-properties 'buffer-substring))) | 229 (fset 'buffer-substring-no-properties 'buffer-substring))) |
230 | 230 |
231 | 231 |
232 ;;; Keymap stuff: | 232 ;;; Keymap stuff: |
233 ;; some people have C-x r set to rmail or whatever. We don't want to | 233 |
234 ;; assume that C-x r is a prefix map just because it's distributed | 234 ;; Set up these bindings dumping time *only*; |
235 ;; that way... | 235 ;; if the user alters them, don't override the user when loading bookmark.el. |
236 ;; These are the distribution keybindings suggested by RMS, everything | 236 |
237 ;; else will be done with M-x or the menubar: | 237 ;;;###autoload (define-key ctl-x-map "rb" 'bookmark-jump) |
238 ;;;###autoload | 238 ;;;###autoload (define-key ctl-x-map "rm" 'bookmark-set) |
239 (if (symbolp (key-binding "\C-xr")) | 239 ;;;###autoload (define-key ctl-x-map "rl" 'bookmark-bmenu-list) |
240 nil | |
241 (progn (define-key ctl-x-map "rb" 'bookmark-jump) | |
242 (define-key ctl-x-map "rm" 'bookmark-set) | |
243 (define-key ctl-x-map "rl" 'bookmark-bmenu-list))) | |
244 | |
245 ;; define the map, so it can be bound by those who desire to do so: | |
246 | 240 |
247 ;;;###autoload | 241 ;;;###autoload |
248 (defvar bookmark-map nil | 242 (defvar bookmark-map nil |
249 "Keymap containing bindings to bookmark functions. | 243 "Keymap containing bindings to bookmark functions. |
250 It is not bound to any key by default: to bind it | 244 It is not bound to any key by default: to bind it |