[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Buffer menu fix
From: |
Stefan Monnier |
Subject: |
Re: Buffer menu fix |
Date: |
Wed, 07 Sep 2005 08:07:50 -0400 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux) |
> (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
- Re: Buffer menu fix, (continued)
- Re: Buffer menu fix, Chong Yidong, 2005/09/05
- Re: Buffer menu fix, Eli Zaretskii, 2005/09/05
- Re: Buffer menu fix, Chong Yidong, 2005/09/05
- Re: Buffer menu fix, Chong Yidong, 2005/09/05
- Re: Buffer menu fix, Eli Zaretskii, 2005/09/06
- Re: Buffer menu fix, Thien-Thi Nguyen, 2005/09/06
- Re: Buffer menu fix, Chong Yidong, 2005/09/06
- Re: Buffer menu fix, Kim F. Storm, 2005/09/06
- Re: Buffer menu fix, Chong Yidong, 2005/09/06
- Re: Buffer menu fix, Chong Yidong, 2005/09/07
- Re: Buffer menu fix,
Stefan Monnier <=
- Re: Buffer menu fix, Kim F. Storm, 2005/09/07
- Re: Buffer menu fix, Chong Yidong, 2005/09/07
Re: Buffer menu fix, Richard M. Stallman, 2005/09/05
Buffer menu fix, Nick Roberts, 2005/09/05
Re: Buffer menu fix, Richard M. Stallman, 2005/09/06