;;; apropos.el --- apropos commands for users and programmers
;; Copyright (C) 1989, 1994, 1995, 2001, 2002, 2003, 2004,
-;; 2005, 2006 Free Software Foundation, Inc.
+;; 2005, 2006, 2007 Free Software Foundation, Inc.
;; Author: Joe Wells <jbw@bigbird.bu.edu>
;; Rewritten: Daniel Pfeiffer <occitan@esperanto.org>
"Apropos pattern as entered by user.")
(defvar apropos-pattern-quoted nil
- "Apropos pattern passed through `regexp-quoute'.")
+ "Apropos pattern passed through `regexp-quote'.")
(defvar apropos-words ()
"Current list of apropos words extracted from `apropos-pattern'.")
(defvar apropos-synonyms '(
("find" "open" "edit")
("kill" "cut")
- ("yank" "paste"))
+ ("yank" "paste")
+ ("region" "selection"))
"List of synonyms known by apropos.
-Each element is a list of words where the first word is the standard emacs
+Each element is a list of words where the first word is the standard Emacs
term, and the rest of the words are alternative terms.")
\f
;; Calculate key-bindings if we want them.
(and do-keys
(commandp symbol)
+ (not (eq symbol 'self-insert-command))
(indent-to 30 1)
(if (let ((keys
(save-excursion