> (defun Buffer-menu-make-sort-button (name column)
> (if (equal column Buffer-menu-sort-column) (setq column nil))
> (let* ((downname (downcase name))
> ! (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)
> (propertize name
> + 'column column
> 'help-echo (concat
> (if Buffer-menu-use-header-line
> "mouse-1, mouse-2: sort by "
Then the keymap doesn't depend on `name' or `column', so it can be created
once and for all at the toplevel, right?
Stefan
_______________________________________________
Emacs-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-devel
