From a1ff29b98a40cc1f543634cffb7d3f0430e7db5b Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sat, 2 Aug 2003 22:06:12 +0000 Subject: [PATCH] Don't redo key bindings on loading, put them only in loaddefs.el. --- lisp/ChangeLog | 6 +++ lisp/bookmark.el | 91 +++++++++++++++------------------------- lisp/dabbrev.el | 8 ++-- lisp/emerge.el | 40 +++++++----------- lisp/textmodes/ispell.el | 3 +- 5 files changed, 60 insertions(+), 88 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 28146912eca..e72ca752ebe 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,11 @@ 2003-08-02 Andreas Schwab + * 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. diff --git a/lisp/bookmark.el b/lisp/bookmark.el index 2252087b102..2e1a7595094 100644 --- 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 ;; Maintainer: Karl Fogel @@ -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 ;;;; diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el index 202cb9edf74..11a8aac6f6e 100644 --- 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) diff --git a/lisp/emerge.el b/lisp/emerge.el index b3e411735e3..f3972ac5973 100644 --- 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 -(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 (fset 'menu-bar-emerge-menu (symbol-value 'menu-bar-emerge-menu)) + +;;;###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 diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 4772fe8a3c8..5848956ac2a 100644 --- 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) -- 2.39.2