summaryrefslogtreecommitdiff
path: root/lisp/tempo.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2014-02-28 18:31:05 -0800
committerGlenn Morris <rgm@gnu.org>2014-02-28 18:31:05 -0800
commitb829360f5052d532a00f4693f9ca6494a348449e (patch)
tree4a69d121129eaabef08afa3cd76e6730387a20ce /lisp/tempo.el
parent5c410a9b800eeb93c58945dec0387697108ad5e2 (diff)
downloademacs-b829360f5052d532a00f4693f9ca6494a348449e.tar.gz
Replace some uses of obsolete argument of display-completion-list
* lisp/minibuffer.el (completion-hilit-commonality): Make `base-size' argument optional. Short-cut if `prefix-len' is 0. * lisp/comint.el (comint-dynamic-list-completions): Doc fix. * lisp/comint.el (comint-dynamic-list-completions): * lisp/filecache.el (file-cache-minibuffer-complete): * lisp/tempo.el (tempo-display-completions): * lisp/eshell/em-hist.el (eshell-list-history): Replace use of obsolete argument of display-completion-list. * lisp/tempo.el: Use utf-8 for author name.
Diffstat (limited to 'lisp/tempo.el')
-rw-r--r--lisp/tempo.el16
1 files changed, 10 insertions, 6 deletions
diff --git a/lisp/tempo.el b/lisp/tempo.el
index 9ff7a49146d..9b6cd75b313 100644
--- a/lisp/tempo.el
+++ b/lisp/tempo.el
@@ -2,9 +2,9 @@
;; Copyright (C) 1994-1995, 2001-2014 Free Software Foundation, Inc.
-;; Author: David K}gedal <davidk@lysator.liu.se>
+;; Author: David Kågedal <davidk@lysator.liu.se>
;; Created: 16 Feb 1994
-;; K}gedal's last version number: 1.2.4
+;; Kågedal's last version number: 1.2.4
;; Keywords: extensions, languages, tools
;; This file is part of GNU Emacs.
@@ -723,13 +723,13 @@ non-nil, a buffer containing possible completions is displayed."
(if tempo-leave-completion-buffer
(with-output-to-temp-buffer "*Completions*"
(display-completion-list
- (all-completions string tag-list)
- string))
+ (completion-hilit-commonality (all-completions string tag-list)
+ (length string))))
(save-window-excursion
(with-output-to-temp-buffer "*Completions*"
(display-completion-list
- (all-completions string tag-list)
- string))
+ (completion-hilit-commonality (all-completions string tag-list)
+ (length string))))
(sit-for 32767))))
;;;
@@ -763,3 +763,7 @@ space bar, and looks something like this:
(provide 'tempo)
;;; tempo.el ends here
+
+;; Local Variables:
+;; coding: utf-8
+;; End: