[Emacs-diffs] /srv/bzr/emacs/trunk r104409: Use Buffer-menu-buffer-column to replace hard-coded values (Bug#8539).

[Chong Yidong]

------------------------------------------------------------
revno: 104409
author: Alp Aker <address@hidden>
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2011-05-28 15:13:00 -0400
message:
  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.
modified:
  lisp/ChangeLog
  lisp/buff-menu.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-28 18:48:41 +0000
+++ b/lisp/ChangeLog    2011-05-28 19:13:00 +0000
@@ -1,5 +1,11 @@
+2011-05-28  Alp Aker  <address@hidden>  (tiny change)
+
+       * buff-menu.el (Buffer-menu-revert-function, Buffer-menu-sort):
+       Use Buffer-menu-buffer-column (Bug#8539).
+
 2011-05-28  Chong Yidong  <address@hidden>
 
+
        * emacs-lisp/re-builder.el (re-builder): Improve doc (Bug#8286).
 
 2011-05-28  Dima Kogan  <address@hidden>  (tiny change)

=== modified file 'lisp/buff-menu.el'
--- a/lisp/buff-menu.el 2011-04-23 03:07:16 +0000
+++ b/lisp/buff-menu.el 2011-05-28 19:13:00 +0000
@@ -278,7 +278,7 @@
   (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 @@
     (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 @@
     (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