comparison lisp/simple.el @ 83515:f7a396df2380

Merged from emacs@sv.gnu.org Patches applied: * emacs@sv.gnu.org/emacs--devo--0--patch-263 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-264 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-265 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/gnus--rel--5.10--patch-99 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-100 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-555
author Karoly Lorentey <lorentey@elte.hu>
date Fri, 05 May 2006 10:30:28 +0000
parents d9f8d2a65d18 dd437ac4b2c6
children 1321f6cfb389
comparison
equal deleted inserted replaced
83514:d9f8d2a65d18 83515:f7a396df2380
1267 (previous-matching-history-element regexp (- n))) 1267 (previous-matching-history-element regexp (- n)))
1268 1268
1269 (defvar minibuffer-temporary-goal-position nil) 1269 (defvar minibuffer-temporary-goal-position nil)
1270 1270
1271 (defun next-history-element (n) 1271 (defun next-history-element (n)
1272 "Insert the next element of the minibuffer history into the minibuffer." 1272 "Puts next element of the minibuffer history in the minibuffer.
1273 With argument N, it uses the Nth following element."
1273 (interactive "p") 1274 (interactive "p")
1274 (or (zerop n) 1275 (or (zerop n)
1275 (let ((narg (- minibuffer-history-position n)) 1276 (let ((narg (- minibuffer-history-position n))
1276 (minimum (if minibuffer-default -1 0)) 1277 (minimum (if minibuffer-default -1 0))
1277 elt minibuffer-returned-to-present) 1278 elt minibuffer-returned-to-present)
1310 (prin1-to-string elt)) 1311 (prin1-to-string elt))
1311 elt)) 1312 elt))
1312 (goto-char (or minibuffer-temporary-goal-position (point-max)))))) 1313 (goto-char (or minibuffer-temporary-goal-position (point-max))))))
1313 1314
1314 (defun previous-history-element (n) 1315 (defun previous-history-element (n)
1315 "Inserts the previous element of the minibuffer history into the minibuffer." 1316 "Puts previous element of the minibuffer history in the minibuffer.
1317 With argument N, it uses the Nth previous element."
1316 (interactive "p") 1318 (interactive "p")
1317 (next-history-element (- n))) 1319 (next-history-element (- n)))
1318 1320
1319 (defun next-complete-history-element (n) 1321 (defun next-complete-history-element (n)
1320 "Get next history element which completes the minibuffer before the point. 1322 "Get next history element which completes the minibuffer before the point.