[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 [emacs-unico
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/which-func.el [emacs-unicode-2] |
Date: |
Fri, 23 Jul 2004 00:56:44 -0400 |
Index: emacs/lisp/progmodes/which-func.el
diff -c emacs/lisp/progmodes/which-func.el:1.1.2.1
emacs/lisp/progmodes/which-func.el:1.1.2.2
*** emacs/lisp/progmodes/which-func.el:1.1.2.1 Fri Apr 16 12:50:36 2004
--- emacs/lisp/progmodes/which-func.el Fri Jul 23 04:30:39 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 [emacs-unicode-2],
Miles Bader <=