procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use simple buttons, instead of widget buttons, in vc-log.

Browse source 
* lisp/vc/vc.el (vc-print-log-setup-buttons): Instead of using the
widget library for buttons, just use button.el.

* lisp/vc/log-view.el (log-view-mode-map): Don't inherit from
widget-keymap.
This commit is contained in:
Chong Yidong 2011-02-12 22:07:53 -05:00
parent 8a36c07fc8
commit 75d4dcc9d2
3 changed files with 22 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,3 +1,11 @@
2011-02-13 Chong Yidong <cyd@stupidchicken.com>
* vc/vc.el (vc-print-log-setup-buttons): Instead of using the
widget library for buttons, just use button.el.
* vc/log-view.el (log-view-mode-map): Don't inherit from
widget-keymap.
2011-02-12 Glenn Morris <rgm@gnu.org>
* emacs-lisp/cl-seq.el (union, nunion, intersection)

1
lisp/vc/log-view.el
View file

@ -147,7 +147,6 @@
("\M-n" . log-view-file-next)
("\M-p" . log-view-file-prev))
"Log-View's keymap."
:inherit widget-keymap
:group 'log-view)
(easy-menu-define log-view-mode-menu log-view-mode-map

30
lisp/vc/vc.el
View file

@ -2014,22 +2014,20 @@ Not all VC backends support short logs!")
(goto-char (point-max))
(lexical-let ((working-revision working-revision)
(limit limit))
(widget-create 'push-button
:notify (lambda (&rest ignore)
(vc-print-log-internal
log-view-vc-backend log-view-vc-fileset
working-revision nil (* 2 limit)))
:help-echo "Show the log again, and double the number of log entries shown"
"Show 2X entries")
(widget-insert " ")
(widget-create 'push-button
:notify (lambda (&rest ignore)
(vc-print-log-internal
log-view-vc-backend log-view-vc-fileset
working-revision nil nil))
:help-echo "Show the log again, showing all entries"
"Show unlimited entries"))
(widget-setup)))
(insert "\n")
(insert-text-button "Show 2X entries"
'action (lambda (&rest ignore)
(vc-print-log-internal
log-view-vc-backend log-view-vc-fileset
working-revision nil (* 2 limit)))
'help-echo "Show the log again, and double the number of log entries shown")
(insert " ")
(insert-text-button "Show unlimited entries"
'action (lambda (&rest ignore)
(vc-print-log-internal
log-view-vc-backend log-view-vc-fileset
working-revision nil nil))
'help-echo "Show the log again, including all entries"))))
(defun vc-print-log-internal (backend files working-revision
&optional is-start-revision limit)