[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r104409: Use Buffer-menu-buffer-colum
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r104409: Use Buffer-menu-buffer-column to replace hard-coded values (Bug#8539). |
Date: |
Sat, 28 May 2011 15:13:00 -0400 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r104409: Use Buffer-menu-buffer-column to replace hard-coded values (Bug#8539).,
Chong Yidong <=