[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/button.el
From: |
Daniel Pfeiffer |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/button.el |
Date: |
Wed, 13 Oct 2004 15:08:22 -0400 |
Index: emacs/lisp/button.el
diff -c emacs/lisp/button.el:1.13 emacs/lisp/button.el:1.14
*** emacs/lisp/button.el:1.13 Mon Sep 1 15:45:08 2003
--- emacs/lisp/button.el Wed Oct 13 18:52:52 2004
***************
*** 78,83 ****
--- 78,84 ----
(put 'default-button 'mouse-face 'highlight)
(put 'default-button 'keymap button-map)
(put 'default-button 'type 'button)
+ ;; action may be either a function to call, or a marker to go to
(put 'default-button 'action 'ignore)
(put 'default-button 'help-echo "mouse-2, RET: Push this button")
;; Make overlay buttons go away if their underlying text is deleted.
***************
*** 217,225 ****
If USE-MOUSE-ACTION is non-nil, invoke the button's mouse-action
instead of its normal action; if the button has no mouse-action,
the normal action is used instead."
! (funcall (or (and use-mouse-action (button-get button 'mouse-action))
! (button-get button 'action))
! button))
(defun button-label (button)
"Return BUTTON's text label."
--- 218,231 ----
If USE-MOUSE-ACTION is non-nil, invoke the button's mouse-action
instead of its normal action; if the button has no mouse-action,
the normal action is used instead."
! (let ((action (or (and use-mouse-action (button-get button 'mouse-action))
! (button-get button 'action))))
! (if (markerp action)
! (save-selected-window
! (select-window (display-buffer (marker-buffer action)))
! (goto-char action)
! (recenter 0))
! (funcall action button))))
(defun button-label (button)
"Return BUTTON's text label."
***************
*** 373,382 ****
(defun push-button (&optional pos use-mouse-action)
"Perform the action specified by a button at location POS.
! POS may be either a buffer position or a mouse-event.
! If USE-MOUSE-ACTION is non-nil, invoke the button's mouse-action
instead of its normal action; if the button has no mouse-action,
! the normal action is used instead.
POS defaults to point, except when `push-button' is invoked
interactively as the result of a mouse-event, in which case, the
mouse event is used.
--- 379,389 ----
(defun push-button (&optional pos use-mouse-action)
"Perform the action specified by a button at location POS.
! POS may be either a buffer position or a mouse-event. If
! USE-MOUSE-ACTION is non-nil, invoke the button's mouse-action
instead of its normal action; if the button has no mouse-action,
! the normal action is used instead. The action may be either a
! function to call or a marker to display.
POS defaults to point, except when `push-button' is invoked
interactively as the result of a mouse-event, in which case, the
mouse event is used.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/button.el,
Daniel Pfeiffer <=