diff options
| author | Richard M. Stallman | 1994-12-24 01:35:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-12-24 01:35:28 +0000 |
| commit | dd1ae35538db74e01b7f32b61a22e7c4ec271387 (patch) | |
| tree | 51b355b4d0b443d4aa1c4b9e4b715748c45deefa | |
| parent | 7313ccdbd00f786160b04715c7dcb664e7ebffc0 (diff) | |
| download | emacs-dd1ae35538db74e01b7f32b61a22e7c4ec271387.tar.gz emacs-dd1ae35538db74e01b7f32b61a22e7c4ec271387.zip | |
(dabbrev-completion): Now searches all buffers when given prefix arg 16.
(dabbrev--version): Variable deleted.
| -rw-r--r-- | lisp/dabbrev.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el index f9df40e211b..486496a9a48 100644 --- a/lisp/dabbrev.el +++ b/lisp/dabbrev.el | |||
| @@ -4,8 +4,7 @@ | |||
| 4 | ;; Author: Don Morrison | 4 | ;; Author: Don Morrison |
| 5 | ;; Maintainer: Lars Lindberg <Lars.Lindberg@sypro.cap.se> | 5 | ;; Maintainer: Lars Lindberg <Lars.Lindberg@sypro.cap.se> |
| 6 | ;; Created: 16 Mars 1992 | 6 | ;; Created: 16 Mars 1992 |
| 7 | ;; Version: 4.4.2 beta | 7 | ;; Lindberg's last update version: 5.2 |
| 8 | (defun dabbrev--version () "4.4.2 beta") | ||
| 9 | ;; Keywords: abbrev expand completion | 8 | ;; Keywords: abbrev expand completion |
| 10 | 9 | ||
| 11 | ;; This program is free software; you can redistribute it and/or modify | 10 | ;; This program is free software; you can redistribute it and/or modify |
| @@ -309,13 +308,18 @@ and presents suggestions for completion. | |||
| 309 | 308 | ||
| 310 | With a prefix argument, it searches all buffers accepted by the | 309 | With a prefix argument, it searches all buffers accepted by the |
| 311 | function pointed out by `dabbrev-friend-buffer-function' to find the | 310 | function pointed out by `dabbrev-friend-buffer-function' to find the |
| 312 | completions. \(The argument value does not matter.) | 311 | completions. |
| 312 | |||
| 313 | If the prefix argument is 16 (which comes from C-u C-u), | ||
| 314 | then it searches *all* buffers. | ||
| 313 | 315 | ||
| 314 | With no prefix argument, it reuses an old completion list | 316 | With no prefix argument, it reuses an old completion list |
| 315 | if there is a suitable one already." | 317 | if there is a suitable one already." |
| 316 | 318 | ||
| 317 | (interactive "*P") | 319 | (interactive "*P") |
| 318 | (let* ((dabbrev-always-check-other-buffers (and arg t)) | 320 | (let* ((dabbrev-always-check-other-buffers (and arg t)) |
| 321 | (dabbrev-check-rest-of-buffers | ||
| 322 | (and arg (= (prefix-numeric-value arg) 16))) | ||
| 319 | (abbrev (dabbrev--abbrev-at-point)) | 323 | (abbrev (dabbrev--abbrev-at-point)) |
| 320 | (ignore-case-p (and (eval dabbrev-case-fold-search) | 324 | (ignore-case-p (and (eval dabbrev-case-fold-search) |
| 321 | (or (not dabbrev-upcase-means-case-search) | 325 | (or (not dabbrev-upcase-means-case-search) |