diff options
| author | Karl Heuer | 1995-05-17 20:52:45 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-05-17 20:52:45 +0000 |
| commit | 078c09a28dd5f5e7026f8dfb7804b77be25e51ff (patch) | |
| tree | 2d2be22334df50c1aa5a2273f86fac86e65383a2 | |
| parent | c91e1ad0f3454a613ad4371ba484d380c5ae1d59 (diff) | |
| download | emacs-078c09a28dd5f5e7026f8dfb7804b77be25e51ff.tar.gz emacs-078c09a28dd5f5e7026f8dfb7804b77be25e51ff.zip | |
(Buffer-menu-buffer): Give more informative error
message if user attempts a selection at end of buffer.
| -rw-r--r-- | lisp/buff-menu.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 5bbafd128a4..f1eff3a003e 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el | |||
| @@ -141,7 +141,7 @@ Letters do not insert themselves; instead, they are commands. | |||
| 141 | (let* ((where (save-excursion | 141 | (let* ((where (save-excursion |
| 142 | (beginning-of-line) | 142 | (beginning-of-line) |
| 143 | (+ (point) Buffer-menu-buffer-column))) | 143 | (+ (point) Buffer-menu-buffer-column))) |
| 144 | (name (get-text-property where 'buffer-name))) | 144 | (name (and (not (eobp)) (get-text-property where 'buffer-name)))) |
| 145 | (if name | 145 | (if name |
| 146 | (or (get-buffer name) | 146 | (or (get-buffer name) |
| 147 | (if error-if-non-existent-p | 147 | (if error-if-non-existent-p |