[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/which-func.el
From: |
Daniel Pfeiffer |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/which-func.el |
Date: |
Sat, 17 Jul 2004 04:12:15 -0400 |
Index: emacs/lisp/progmodes/which-func.el
diff -c emacs/lisp/progmodes/which-func.el:1.4
emacs/lisp/progmodes/which-func.el:1.5
*** emacs/lisp/progmodes/which-func.el:1.4 Sun Jan 18 14:00:34 2004
--- emacs/lisp/progmodes/which-func.el Sat Jul 17 08:08:57 2004
***************
*** 99,105 ****
:group 'which-func
:type 'integer)
! (defcustom which-func-format '("[" which-func-current "]")
"Format for displaying the function in the mode line."
:group 'which-func
:type 'sexp)
--- 99,131 ----
:group 'which-func
:type 'integer)
! (defvar which-func-keymap
! (let ((map (make-sparse-keymap)))
! (define-key map [mode-line mouse-1] 'beginning-of-defun)
! (define-key map [mode-line mouse-2]
! (lambda ()
! (interactive)
! (if (eq (point-min) 1)
! (narrow-to-defun)
! (widen))))
! (define-key map [mode-line mouse-3] 'end-of-defun)
! map)
! "Keymap to display on mode line which-func.")
!
! (defface which-func-face
! '((t (:inherit font-lock-function-name-face)))
! "Face used to highlight mode line function names.
! Defaults to `font-lock-function-name-face' if font-lock is loaded."
! :group 'which-func)
!
! (defcustom which-func-format
! `("["
! (:propertize which-func-current
! local-map ,which-func-keymap
! face which-func-face
! ;;mouse-face highlight ; currently not evaluated :-(
! help-echo "mouse-1: go to beginning, mouse-2: toggle rest
visibility, mouse-3: go to end")
! "]")
"Format for displaying the function in the mode line."
:group 'which-func
:type 'sexp)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/progmodes/which-func.el,
Daniel Pfeiffer <=