aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1994-12-24 01:35:28 +0000
committerRichard M. Stallman1994-12-24 01:35:28 +0000
commitdd1ae35538db74e01b7f32b61a22e7c4ec271387 (patch)
tree51b355b4d0b443d4aa1c4b9e4b715748c45deefa
parent7313ccdbd00f786160b04715c7dcb664e7ebffc0 (diff)
downloademacs-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.el10
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
310With a prefix argument, it searches all buffers accepted by the 309With a prefix argument, it searches all buffers accepted by the
311function pointed out by `dabbrev-friend-buffer-function' to find the 310function pointed out by `dabbrev-friend-buffer-function' to find the
312completions. \(The argument value does not matter.) 311completions.
312
313If the prefix argument is 16 (which comes from C-u C-u),
314then it searches *all* buffers.
313 315
314With no prefix argument, it reuses an old completion list 316With no prefix argument, it reuses an old completion list
315if there is a suitable one already." 317if 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)