diff options
author | Pavel Janík <Pavel@Janik.cz> | 2002-01-05 19:02:27 +0000 |
---|---|---|
committer | Pavel Janík <Pavel@Janik.cz> | 2002-01-05 19:02:27 +0000 |
commit | 7cfedc97a20904ddc0a55ee51425627531a2637a (patch) | |
tree | 707faa508c03a97a01ff48af1a49730f1c2ff6ae /lisp | |
parent | 8c70a2de6bc490e9f3021623271bae46297477fd (diff) | |
download | emacs-7cfedc97a20904ddc0a55ee51425627531a2637a.tar.gz |
Remove unnecessary whitespaces.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/abbrev.el | 8 | ||||
-rw-r--r-- | lisp/apropos.el | 2 |
2 files changed, 5 insertions, 5 deletions
diff --git a/lisp/abbrev.el b/lisp/abbrev.el index ab0f715d272..25bfcf70585 100644 --- a/lisp/abbrev.el +++ b/lisp/abbrev.el @@ -28,7 +28,7 @@ ;;; Code: -(defcustom only-global-abbrevs nil +(defcustom only-global-abbrevs nil "*t means user plans to use global abbrevs only. This makes the commands that normally define mode-specific abbrevs define global abbrevs instead." @@ -103,7 +103,7 @@ Otherwise display all abbrevs." (setq found (car tables))) (setq tables (cdr tables))) found)) - + (defun prepare-abbrev-list-buffer (&optional local) (save-excursion (let ((table local-abbrev-table)) @@ -254,7 +254,7 @@ Don't use this function in a Lisp program; use `define-abbrev' instead." (y-or-n-p (format "%s expands to \"%s\"; redefine? " name (abbrev-expansion name table)))) (define-abbrev table (downcase name) exp)))) - + (defun inverse-add-mode-abbrev (arg) "Define last word before point as a mode-specific abbrev. With prefix argument N, defines the Nth word before point. @@ -263,7 +263,7 @@ Expands the abbreviation after defining it." (interactive "p") (inverse-add-abbrev (if only-global-abbrevs - global-abbrev-table + global-abbrev-table (or local-abbrev-table (error "No per-mode abbrev table"))) "Mode" arg)) diff --git a/lisp/apropos.el b/lisp/apropos.el index 3ad41627ece..0fa0e83b82d 100644 --- a/lisp/apropos.el +++ b/lisp/apropos.el @@ -161,7 +161,7 @@ for the regexp; the part that matches gets displayed in this font." 'action (lambda (button) (describe-function (button-get button 'apropos-symbol))) 'help-echo "mouse-2, RET: Display more help on this command") - + ;; We used to use `customize-variable-other-window' instead for a ;; customizable variable, but that is slow. It is better to show an ;; ordinary help buffer and let the user click on the customization |