Mercurial > emacs
comparison lisp/ehelp.el @ 55379:a5a7f792d532
(electric-help-command-loop): Check whether the last character is visible,
not (point-max).
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 06 May 2004 00:43:33 +0000 |
| parents | ca50b63ed141 |
| children | 40f8936f0305 4c90ffeb71c5 |
comparison
equal
deleted
inserted
replaced
| 55378:f406ef28e71a | 55379:a5a7f792d532 |
|---|---|
| 213 (function (lambda () | 213 (function (lambda () |
| 214 (sit-for 0) ;necessary if last command was end-of-buffer or | 214 (sit-for 0) ;necessary if last command was end-of-buffer or |
| 215 ;beginning-of-buffer - otherwise pos-visible-in-window-p | 215 ;beginning-of-buffer - otherwise pos-visible-in-window-p |
| 216 ;will yield a wrong result. | 216 ;will yield a wrong result. |
| 217 (let ((min (pos-visible-in-window-p (point-min))) | 217 (let ((min (pos-visible-in-window-p (point-min))) |
| 218 (max (pos-visible-in-window-p (point-max)))) | 218 (max (pos-visible-in-window-p (1- (point-max))))) |
| 219 (cond (isearch-mode 'noprompt) | 219 (cond (isearch-mode 'noprompt) |
| 220 ((and min max) | 220 ((and min max) |
| 221 (cond (standard "Press q to exit, r to retain ") | 221 (cond (standard "Press q to exit, r to retain ") |
| 222 (neither) | 222 (neither) |
| 223 (t (setq neither (substitute-command-keys "Press \\[electric-help-exit] to exit, \\[electric-help-retain] to retain "))))) | 223 (t (setq neither (substitute-command-keys "Press \\[electric-help-exit] to exit, \\[electric-help-retain] to retain "))))) |