Mercurial > emacs
changeset 67777:8eda669e2619
(get-next-valid-buffer, last-buffer)
(next-error-buffer-p, next-error-find-buffer)
(minibuffer-history-sexp-flag): Doc fix.
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Fri, 23 Dec 2005 21:50:38 +0000 |
parents | 923593002b13 |
children | 0c0bb618627a |
files | lisp/simple.el |
diffstat | 1 files changed, 9 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Fri Dec 23 21:49:51 2005 +0000 +++ b/lisp/simple.el Fri Dec 23 21:50:38 2005 +0000 @@ -52,15 +52,15 @@ "Highlight (un)matching of parens and expressions." :group 'matching) -(defun get-next-valid-buffer (list &optional buffer visible-ok frame) "\ -Search LIST for a valid buffer to display in FRAME. +(defun get-next-valid-buffer (list &optional buffer visible-ok frame) + "Search LIST for a valid buffer to display in FRAME. Return nil when all buffers in LIST are undesirable for display, otherwise return the first suitable buffer in LIST. Buffers not visible in windows are preferred to visible buffers, unless VISIBLE-OK is non-nil. If the optional argument FRAME is nil, it defaults to the selected frame. -If BUFFER is non-nil, ignore occurances of that buffer in LIST." +If BUFFER is non-nil, ignore occurrences of that buffer in LIST." ;; This logic is more or less copied from other-buffer. (setq frame (or frame (selected-frame))) (let ((pred (frame-parameter frame 'buffer-predicate)) @@ -76,8 +76,8 @@ (setq list (cdr list)))) (car list))) -(defun last-buffer (&optional buffer visible-ok frame) "\ -Return the last non-hidden displayable buffer in the buffer list. +(defun last-buffer (&optional buffer visible-ok frame) + "Return the last non-hidden displayable buffer in the buffer list. If BUFFER is non-nil, last-buffer will ignore that buffer. Buffers not visible in windows are preferred to visible buffers, unless optional argument VISIBLE-OK is non-nil. @@ -196,7 +196,7 @@ that normally would not qualify. If it returns t, the buffer in question is treated as usable. -The function EXTRA-TEST-EXCLUSIVE, if non-nil is called in each buffer +The function EXTRA-TEST-EXCLUSIVE, if non-nil, is called in each buffer that would normally be considered usable. If it returns nil, that buffer is rejected." (and (buffer-name buffer) ;First make sure it's live. @@ -215,6 +215,7 @@ extra-test-inclusive extra-test-exclusive) "Return a `next-error' capable buffer. + If AVOID-CURRENT is non-nil, treat the current buffer as an absolute last resort only. @@ -222,7 +223,7 @@ that normally would not qualify. If it returns t, the buffer in question is treated as usable. -The function EXTRA-TEST-EXCLUSIVE, if non-nil is called in each buffer +The function EXTRA-TEST-EXCLUSIVE, if non-nil, is called in each buffer that would normally be considered usable. If it returns nil, that buffer is rejected." (or @@ -1149,7 +1150,7 @@ "Control whether history list elements are expressions or strings. If the value of this variable equals current minibuffer depth, they are expressions; otherwise they are strings. -\(That convention is designed to do the right thing fora +\(That convention is designed to do the right thing for recursive uses of the minibuffer.)") (setq minibuffer-history-variable 'minibuffer-history) (setq minibuffer-history-position nil)