diff options
Diffstat (limited to 'lisp/buff-menu.el')
| -rw-r--r-- | lisp/buff-menu.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 44e494e98a6..4eac52ac4a5 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -5,6 +5,7 @@ ;; Maintainer: FSF ;; Keywords: convenience +;; Package: emacs ;; This file is part of GNU Emacs. @@ -302,9 +303,7 @@ negative ARG, display other buffers as well." (defun Buffer-menu-buffer (error-if-non-existent-p) "Return buffer described by this line of buffer menu." - (let* ((where (save-excursion - (beginning-of-line) - (+ (point) Buffer-menu-buffer-column))) + (let* ((where (+ (line-beginning-position) Buffer-menu-buffer-column)) (name (and (not (eobp)) (get-text-property where 'buffer-name))) (buf (and (not (eobp)) (get-text-property where 'buffer)))) (if name @@ -923,5 +922,4 @@ For more information, see the function `buffer-menu'." (set-buffer-modified-p nil) (current-buffer)))) -;; arch-tag: e7dfcfc9-6cb2-46e4-bf55-8ef1936d83c6 ;;; buff-menu.el ends here |