Mercurial > emacs
comparison lisp/electric.el @ 49588:37645a051842
Trailing whitespace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 11:26:42 +0000 |
| parents | 253f761ad37b |
| children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49587:e82b3fe06d4c | 49588:37645a051842 |
|---|---|
| 53 | 53 |
| 54 (defun Electric-command-loop (return-tag | 54 (defun Electric-command-loop (return-tag |
| 55 &optional prompt inhibit-quit | 55 &optional prompt inhibit-quit |
| 56 loop-function loop-state) | 56 loop-function loop-state) |
| 57 | 57 |
| 58 (let (cmd | 58 (let (cmd |
| 59 (err nil) | 59 (err nil) |
| 60 (prompt-string prompt)) | 60 (prompt-string prompt)) |
| 61 (while t | 61 (while t |
| 62 (if (not (or (stringp prompt) (eq prompt nil) (eq prompt 'noprompt))) | 62 (if (not (or (stringp prompt) (eq prompt nil) (eq prompt 'noprompt))) |
| 63 (setq prompt-string (funcall prompt))) | 63 (setq prompt-string (funcall prompt))) |
| 64 (if (not (stringp prompt-string)) | 64 (if (not (stringp prompt-string)) |
| 121 (ding)) | 121 (ding)) |
| 122 (if loop-function (funcall loop-function loop-state err)))) | 122 (if loop-function (funcall loop-function loop-state err)))) |
| 123 (ding) | 123 (ding) |
| 124 (throw return-tag nil)) | 124 (throw return-tag nil)) |
| 125 | 125 |
| 126 ;; This function is like pop-to-buffer, sort of. | 126 ;; This function is like pop-to-buffer, sort of. |
| 127 ;; The algorithm is | 127 ;; The algorithm is |
| 128 ;; If there is a window displaying buffer | 128 ;; If there is a window displaying buffer |
| 129 ;; Select it | 129 ;; Select it |
| 130 ;; Else if there is only one window | 130 ;; Else if there is only one window |
| 131 ;; Split it, selecting the window on the bottom with height being | 131 ;; Split it, selecting the window on the bottom with height being |