Changeset 3863 for trunk/lisp/buff-menu.el

Timestamp:

2005年09月10日 10時16分00秒 (3 years ago)

Author:

miyoshi

Message:

--

Files:

• trunk/lisp/buff-menu.el (modified) (1 diff)

trunk/lisp/buff-menu.el

@@ -634 +634 @@
-        (forward-line)))))
-
+(defun Buffer-menu-sort-by-column (&optional e)
+  "Sort the buffer menu by the column clicked on."
+  (interactive (list last-input-event))
+  (if e (mouse-select-window e))
+  (let* ((pos (event-start e))
+         (obj (posn-object pos))
+         (col (if obj
+                  (get-text-property (cdr obj) 'column (car obj))
+                (get-text-property (posn-point pos) 'column))))
+    (Buffer-menu-sort col)))
+
+(defvar Buffer-menu-sort-button-map
+  (let ((map (make-sparse-keymap)))
+    ;; This keymap handles both nil and non-nil values for
+    ;; Buffer-menu-use-header-line.
+    (define-key map [header-line mouse-1] 'Buffer-menu-sort-by-column)
+    (define-key map [header-line mouse-2] 'Buffer-menu-sort-by-column)
+    (define-key map [mouse-2] 'Buffer-menu-sort-by-column)
+    (define-key map [follow-link] 'mouse-face)
+    (define-key map "\C-m" 'Buffer-menu-sort-by-column)
+    map)
+  "Local keymap for Buffer menu sort buttons.")
+
-(defun Buffer-menu-make-sort-button (name column)
-  (if (equal column Buffer-menu-sort-column) (setq column nil))
-  (propertize name
-
-
-
-
-
-
-
-
+
+
+
+
+
+
-              'mouse-face 'highlight
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
-
-(defun list-buffers-noselect (&optional files-only buffer-list)