Mercurial > emacs
changeset 85835:f3bfe76fe370
(strokes-alphabetic-lessp): Simplify. Doc fix.
(strokes-unload-hook): Remove function and variable.
(strokes-unload-function): New-style unload function,
adapted from `strokes-unload-hook'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 31 Oct 2007 12:49:11 +0000 |
| parents | 7400d979a9d9 |
| children | e22b1d805f02 |
| files | lisp/strokes.el |
| diffstat | 1 files changed, 6 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/strokes.el Wed Oct 31 12:46:47 2007 +0000 +++ b/lisp/strokes.el Wed Oct 31 12:49:11 2007 +0000 @@ -1370,10 +1370,8 @@ (goto-char (point-min)))) (defun strokes-alphabetic-lessp (stroke1 stroke2) - "T if command name for STROKE1 is less than STROKE2's in lexicographic order." - (let ((command-name-1 (symbol-name (cdr stroke1))) - (command-name-2 (symbol-name (cdr stroke2)))) - (string-lessp command-name-1 command-name-2))) + "Return t if STROKE1's command name precedes STROKE2's in lexicographic order." + (string-lessp (cdr stroke1) (cdr stroke2))) (defvar strokes-mode-map (let ((map (make-sparse-keymap))) @@ -1745,11 +1743,11 @@ ;; strokes-decode-buffer does a save-excursion. (forward-char))) -(defun strokes-unload-hook () +(defun strokes-unload-function () + "Unload the Strokes library." (strokes-mode -1) - (remove-hook 'kill-emacs-query-functions 'strokes-prompt-user-save-strokes)) - -(add-hook 'strokes-unload-hook 'strokes-unload-hook) + ;; continue standard unloading + nil) (run-hooks 'strokes-load-hook) (provide 'strokes)