procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use Buffer-menu-buffer-column to replace hard-coded values (Bug#8539).

Browse source 
* lisp/buff-menu.el (Buffer-menu-revert-function, Buffer-menu-sort):
Use Buffer-menu-buffer-column.
This commit is contained in:
Alp Aker 2011-05-28 15:13:00 -04:00 • committed by Chong Yidong
parent 6b5681bf6b
commit 60ed8c727a
2 changed files with 15 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,5 +1,11 @@
2011-05-28 Alp Aker <aker@pitt.edu> (tiny change)
* buff-menu.el (Buffer-menu-revert-function, Buffer-menu-sort):
Use Buffer-menu-buffer-column (Bug#8539).
2011-05-28 Chong Yidong <cyd@stupidchicken.com>
* emacs-lisp/re-builder.el (re-builder): Improve doc (Bug#8286).
2011-05-28 Dima Kogan <dkogan@cds.caltech.edu> (tiny change)

12
lisp/buff-menu.el
View file

@ -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