From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 17 May 1995 20:52:45 +0000 (+0000)
Subject: (Buffer-menu-buffer): Give more informative error
X-Git-Tag: emacs-19.34~4016
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=078c09a28dd5f5e7026f8dfb7804b77be25e51ff;p=emacs.git

(Buffer-menu-buffer): Give more informative error
message if user attempts a selection at end of buffer.
---

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.
   (let* ((where (save-excursion
 		  (beginning-of-line)
 		  (+ (point) Buffer-menu-buffer-column)))
-	 (name (get-text-property where 'buffer-name)))
+	 (name (and (not (eobp)) (get-text-property where 'buffer-name))))
     (if name
 	(or (get-buffer name)
 	    (if error-if-non-existent-p