Mercurial > emacs

comparison lisp/pcomplete.el @ 90377:482dfed28bee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-51 Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 188-189) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 73) - Update from CVS
author Miles Bader <miles@gnu.org>
date Sun, 02 Apr 2006 01:10:03 +0000
parents c5406394f567 3a72c4c8b7ae
children 95d0cdf160ea
comparison
equal deleted inserted replaced
90376:1ad066d533a9 90377:482dfed28bee
976 (cond 976 (cond
977 ((event-matches-key-specifier-p event ? ) 977 ((event-matches-key-specifier-p event ? )
978 (set-window-configuration pcomplete-last-window-config) 978 (set-window-configuration pcomplete-last-window-config)
979 (setq pcomplete-last-window-config nil) 979 (setq pcomplete-last-window-config nil)
980 (throw 'done nil)) 980 (throw 'done nil))
981 ((event-matches-key-specifier-p event 'tab) 981 ((or (event-matches-key-specifier-p event 'tab)
982 ;; Needed on a terminal
983 (event-matches-key-specifier-p event 9))
982 (save-selected-window 984 (save-selected-window
983 (select-window (get-buffer-window "*Completions*")) 985 (select-window (get-buffer-window "*Completions*"))
984 (if (pos-visible-in-window-p (point-max)) 986 (if (pos-visible-in-window-p (point-max))
985 (goto-char (point-min)) 987 (goto-char (point-min))
986 (scroll-up))) 988 (scroll-up)))