emacs-diffs
[Top][All Lists]
Advanced

[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)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]