(Buffer-menu-buffer): Give more informative error
authorKarl Heuer <kwzh@gnu.org>
Wed, 17 May 1995 20:52:45 +0000 (20:52 +0000)
committerKarl Heuer <kwzh@gnu.org>
Wed, 17 May 1995 20:52:45 +0000 (20:52 +0000)
message if user attempts a selection at end of buffer.

lisp/buff-menu.el

index 5bbafd1..f1eff3a 100644 (file)
@@ -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