From 5e867b61855e551994ab17a4a0fb21c04fab6503 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Mon, 7 Sep 2009 08:48:43 +0000 Subject: Use extended form of define-minor-mode --- lib/bufhist.el | 16 ++-------------- 1 file changed, 2 insertions(+), 14 deletions(-) (limited to 'lib/bufhist.el') diff --git a/lib/bufhist.el b/lib/bufhist.el index ddde0ef8..9ef3b6b9 100644 --- a/lib/bufhist.el +++ b/lib/bufhist.el @@ -119,22 +119,12 @@ Commands:\\ \\[bufhist-last] bufhist-last go to last (current) item in history. \\[bufhist-clear] bufhist-clear clear history. \\[bufhist-delete] bufhist-clear delete current item from history." - nil "" bufhist-minor-mode-map) - -; For newer versions of define-minor-mode we can use extra -; args above instead of hook function below: -; :group 'bufhist -; (if bufhist-mode -; (bufhist-init) -; (bufhist-exit))) -; This doesn't work, e.g. with XEmacs 21.4.15. - -(defun bufhist-toggle-fn () + nil "" bufhist-minor-mode-map + :group 'bufhist (if bufhist-mode (bufhist-init) (bufhist-exit))) - (make-variable-buffer-local 'bufhist-ring) (make-variable-buffer-local 'bufhist-ring-pos) (make-variable-buffer-local 'bufhist-lastswitch-modified-tick) @@ -343,6 +333,4 @@ The size defaults to `bufhist-ring-size'." (widget-setup)) -(add-hook 'bufhist-mode-hook 'bufhist-toggle-fn) - (provide 'bufhist) -- cgit v1.2.3