(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
;; This way we avoid problems with unusual buffer names.
(setq this-buffer-line-start
(+ this-buffer-line-start Buffer-menu-buffer-column))
- (put-text-property this-buffer-line-start (point)
- 'buffer-name name)
- (put-text-property this-buffer-line-start (point)
- 'mouse-face 'highlight)
- (indent-to 17 2)
+ (let ((name-end (point)))
+ (indent-to 17 2)
+ (put-text-property this-buffer-line-start name-end
+ 'buffer-name name)
+ (put-text-property this-buffer-line-start name-end
+ 'mouse-face 'highlight))
(let (size
mode
(excess (- (current-column) 17)))