55 |
&optional prompt inhibit-quit |
&optional prompt inhibit-quit |
56 |
loop-function loop-state) |
loop-function loop-state) |
57 |
|
|
58 |
(let (cmd |
(let (cmd |
59 |
(err nil) |
(err nil) |
60 |
(prompt-string prompt)) |
(prompt-string prompt)) |
61 |
(while t |
(while t |
62 |
(if (not (or (stringp prompt) (eq prompt nil) (eq prompt 'noprompt))) |
(if (not (or (stringp prompt) (eq prompt nil) (eq prompt 'noprompt))) |
123 |
(ding) |
(ding) |
124 |
(throw return-tag nil)) |
(throw return-tag nil)) |
125 |
|
|
126 |
;; This function is like pop-to-buffer, sort of. |
;; This function is like pop-to-buffer, sort of. |
127 |
;; The algorithm is |
;; The algorithm is |
128 |
;; If there is a window displaying buffer |
;; If there is a window displaying buffer |
129 |
;; Select it |
;; Select it |