Don't redo key bindings on loading, put them only in loaddefs.el.

2024-11-21 06:55:39 +00:00 · 2003-08-02 22:06:12 +00:00 · 2003-08-02 22:06:12 +00:00 · a1ff29b98a
commit a1ff29b98a
parent 80f5d2efec
5 changed files with 59 additions and 87 deletions
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@ -1,5 +1,11 @@
 2003-08-02  Andreas Schwab  <schwab@suse.de>

+	* textmodes/ispell.el: Don't redo key bindings on loading, put
+	them only in loaddefs.el.
+	* bookmark.el: Likewise.
+	* dabbrev.el: Likewise.
+	* emerge.el: Likewise.
+
 	* apropos.el (apropos-words-to-regexp): Only add `wild' if `words'
 	has more than one member.

--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@ -1,6 +1,6 @@
 ;;; bookmark.el --- set bookmarks, maybe annotate them, jump to them later

-;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 2001 Free Software Foundation
+;; Copyright (C) 1993, 1994, 1995, 1996, 1997, 2001, 2003 Free Software Foundation

 ;; Author: Karl Fogel <kfogel@red-bean.com>
 ;; Maintainer: Karl Fogel <kfogel@red-bean.com>
@ -234,34 +234,21 @@ so that you have a bookmark prefix, just use `global-set-key' and bind a
 key of your choice to `bookmark-map'.  All interactive bookmark
 functions have a binding in this keymap.")

-;;;###autoload
-(define-prefix-command 'bookmark-map)
+;;;###autoload (define-prefix-command 'bookmark-map)

 ;; Read the help on all of these functions for details...
-;;;###autoload
-(define-key bookmark-map "x" 'bookmark-set)
-;;;###autoload
-(define-key bookmark-map "m" 'bookmark-set) ; "m" for "mark"
-;;;###autoload
-(define-key bookmark-map "j" 'bookmark-jump)
-;;;###autoload
-(define-key bookmark-map "g" 'bookmark-jump) ; "g" for "go"
-;;;###autoload
-(define-key bookmark-map "i" 'bookmark-insert)
-;;;###autoload
-(define-key bookmark-map "e" 'edit-bookmarks)
-;;;###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)
+;;;###autoload (define-key bookmark-map "x" 'bookmark-set)
+;;;###autoload (define-key bookmark-map "m" 'bookmark-set) ; "m" for "mark"
+;;;###autoload (define-key bookmark-map "j" 'bookmark-jump)
+;;;###autoload (define-key bookmark-map "g" 'bookmark-jump) ; "g" for "go"
+;;;###autoload (define-key bookmark-map "i" 'bookmark-insert)
+;;;###autoload (define-key bookmark-map "e" 'edit-bookmarks)
+;;;###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)


 ;;; The annotation maps.
@ -2226,45 +2213,35 @@ corresponding bookmark function from Lisp \(the one without the
              (cons 'bookmark menu-bar-final-items)))
  (setq menu-bar-final-items '(bookmark)))

-;;;###autoload
-(define-key menu-bar-bookmark-map [load]
-  '("Load a Bookmark File..." . bookmark-load))
+;;;###autoload (define-key menu-bar-bookmark-map [load]
+;;;###autoload   '("Load a Bookmark File..." . bookmark-load))

-;;;###autoload
-(define-key menu-bar-bookmark-map [write]
-  '("Save Bookmarks As..." . bookmark-write))
+;;;###autoload (define-key menu-bar-bookmark-map [write]
+;;;###autoload   '("Save Bookmarks As..." . bookmark-write))

-;;;###autoload
-(define-key menu-bar-bookmark-map [save]
-  '("Save Bookmarks" . bookmark-save))
+;;;###autoload (define-key menu-bar-bookmark-map [save]
+;;;###autoload   '("Save Bookmarks" . bookmark-save))

-;;;###autoload
-(define-key menu-bar-bookmark-map [edit]
-  '("Edit Bookmark List" . bookmark-bmenu-list))
+;;;###autoload (define-key menu-bar-bookmark-map [edit]
+;;;###autoload   '("Edit Bookmark List" . bookmark-bmenu-list))

-;;;###autoload
-(define-key menu-bar-bookmark-map [delete]
-  '("Delete Bookmark" . bookmark-menu-delete))
+;;;###autoload (define-key menu-bar-bookmark-map [delete]
+;;;###autoload   '("Delete Bookmark" . bookmark-menu-delete))

-;;;###autoload
-(define-key menu-bar-bookmark-map [rename]
-  '("Rename Bookmark" . bookmark-menu-rename))
+;;;###autoload (define-key menu-bar-bookmark-map [rename]
+;;;###autoload   '("Rename Bookmark" . bookmark-menu-rename))

-;;;###autoload
-(define-key menu-bar-bookmark-map [locate]
-  '("Insert Location" . bookmark-menu-locate))
+;;;###autoload (define-key menu-bar-bookmark-map [locate]
+;;;###autoload   '("Insert Location" . bookmark-menu-locate))

-;;;###autoload
-(define-key menu-bar-bookmark-map [insert]
-  '("Insert Contents" . bookmark-menu-insert))
+;;;###autoload (define-key menu-bar-bookmark-map [insert]
+;;;###autoload   '("Insert Contents" . bookmark-menu-insert))

-;;;###autoload
-(define-key menu-bar-bookmark-map [set]
-  '("Set Bookmark" . bookmark-set))
+;;;###autoload (define-key menu-bar-bookmark-map [set]
+;;;###autoload   '("Set Bookmark" . bookmark-set))

-;;;###autoload
-(define-key menu-bar-bookmark-map [jump]
-  '("Jump to Bookmark" . bookmark-menu-jump))
+;;;###autoload (define-key menu-bar-bookmark-map [jump]
+;;;###autoload   '("Jump to Bookmark" . bookmark-menu-jump))

 ;;;; end bookmark menu stuff ;;;;

--- a/lisp/dabbrev.el
+++ b/lisp/dabbrev.el
@ -1,6 +1,6 @@
 ;;; dabbrev.el --- dynamic abbreviation package

-;; Copyright (C) 1985, 86, 92, 94, 96, 1997, 2000, 2001
+;; Copyright (C) 1985, 86, 92, 94, 96, 1997, 2000, 01, 2003
 ;;   Free Software Foundation, Inc.

 ;; Author: Don Morrison
@ -357,11 +357,9 @@ this list.")
 ;; Exported functions
 ;;----------------------------------------------------------------

-;;;###autoload
-(define-key esc-map "/" 'dabbrev-expand)
+;;;###autoload (define-key esc-map "/" 'dabbrev-expand)
 ;;;??? Do we want this?
-;;;###autoload
-(define-key esc-map [?\C-/] 'dabbrev-completion)
+;;;###autoload (define-key esc-map [?\C-/] 'dabbrev-completion)

 ;;;###autoload
 (defun dabbrev-completion (&optional arg)
--- a/lisp/emerge.el
+++ b/lisp/emerge.el
@ -27,30 +27,22 @@

 ;;;###autoload
 (defvar menu-bar-emerge-menu (make-sparse-keymap "Emerge"))
-;;;###autoload
-(fset 'menu-bar-emerge-menu (symbol-value 'menu-bar-emerge-menu))
+;;;###autoload (fset 'menu-bar-emerge-menu (symbol-value 'menu-bar-emerge-menu))

-;;;###autoload
-(define-key menu-bar-emerge-menu [emerge-merge-directories]
-  '("Merge Directories..." . emerge-merge-directories))
-;;;###autoload
-(define-key menu-bar-emerge-menu [emerge-revisions-with-ancestor]
-  '("Revisions with Ancestor..." . emerge-revisions-with-ancestor))
-;;;###autoload
-(define-key menu-bar-emerge-menu [emerge-revisions]
-  '("Revisions..." . emerge-revisions))
-;;;###autoload
-(define-key menu-bar-emerge-menu [emerge-files-with-ancestor]
-  '("Files with Ancestor..." . emerge-files-with-ancestor))
-;;;###autoload
-(define-key menu-bar-emerge-menu [emerge-files]
-  '("Files..." . emerge-files))
-;;;###autoload
-(define-key menu-bar-emerge-menu [emerge-buffers-with-ancestor]
-  '("Buffers with Ancestor..." . emerge-buffers-with-ancestor))
-;;;###autoload
-(define-key menu-bar-emerge-menu [emerge-buffers]
-  '("Buffers..." . emerge-buffers))
+;;;###autoload (define-key menu-bar-emerge-menu [emerge-merge-directories]
+;;;###autoload   '("Merge Directories..." . emerge-merge-directories))
+;;;###autoload (define-key menu-bar-emerge-menu [emerge-revisions-with-ancestor]
+;;;###autoload   '("Revisions with Ancestor..." . emerge-revisions-with-ancestor))
+;;;###autoload (define-key menu-bar-emerge-menu [emerge-revisions]
+;;;###autoload   '("Revisions..." . emerge-revisions))
+;;;###autoload (define-key menu-bar-emerge-menu [emerge-files-with-ancestor]
+;;;###autoload   '("Files with Ancestor..." . emerge-files-with-ancestor))
+;;;###autoload (define-key menu-bar-emerge-menu [emerge-files]
+;;;###autoload   '("Files..." . emerge-files))
+;;;###autoload (define-key menu-bar-emerge-menu [emerge-buffers-with-ancestor]
+;;;###autoload   '("Buffers with Ancestor..." . emerge-buffers-with-ancestor))
+;;;###autoload (define-key menu-bar-emerge-menu [emerge-buffers]
+;;;###autoload   '("Buffers..." . emerge-buffers))

 ;;; Macros

--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@ -1264,8 +1264,7 @@ You can set this variable in hooks in your init file -- eg:



-;;;###autoload
-(define-key esc-map "$" 'ispell-word)
+;;;###autoload (define-key esc-map "$" 'ispell-word)


 (defun ispell-accept-output (&optional timeout-secs timeout-msecs)