diff options
| author | Alp Aker <aker@pitt.edu> | 2011-05-28 15:13:00 -0400 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2011-05-28 15:13:00 -0400 |
| commit | 60ed8c727a898dee2c3be447009f31e763c8491a (patch) | |
| tree | d3d06578abd3d313dd8117ea7ec59ce25a684def /lisp/buff-menu.el | |
| parent | 6b5681bf6ba37a9a8e8098229736872d11d55f87 (diff) | |
| download | emacs-60ed8c727a898dee2c3be447009f31e763c8491a.tar.gz | |
Use Buffer-menu-buffer-column to replace hard-coded values (Bug#8539).
* lisp/buff-menu.el (Buffer-menu-revert-function, Buffer-menu-sort):
Use Buffer-menu-buffer-column.
Diffstat (limited to 'lisp/buff-menu.el')
| -rw-r--r-- | lisp/buff-menu.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 9886b30d122..6da9d908305 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -278,7 +278,7 @@ Letters do not insert themselves; instead, they are commands. (let ((opoint (point)) (eobp (eobp)) (ocol (current-column)) - (oline (progn (move-to-column 4) + (oline (progn (move-to-column Buffer-menu-buffer-column) (get-text-property (point) 'buffer))) (prop (point-min)) ;; do not make undo records for the reversion. @@ -703,7 +703,11 @@ For more information, see the function `buffer-menu'." (save-excursion (Buffer-menu-beginning) (while (not (eobp)) - (when (buffer-live-p (setq buf (get-text-property (+ (point) 4) 'buffer))) + (when (buffer-live-p + (setq buf (get-text-property + (+ (point) + Buffer-menu-buffer-column) + 'buffer))) (setq m1 (char-after) m1 (if (memq m1 '(?> ?D)) m1) m2 (char-after (+ (point) 2)) @@ -715,7 +719,9 @@ For more information, see the function `buffer-menu'." (save-excursion (Buffer-menu-beginning) (while (not (eobp)) - (when (setq buf (assq (get-text-property (+ (point) 4) 'buffer) l)) + (when (setq buf (assq (get-text-property (+ (point) + Buffer-menu-buffer-column) + 'buffer) l)) (setq m1 (cadr buf) m2 (cadr (cdr buf))) (when m1 |