[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/strokes.el,v
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/strokes.el,v |
Date: |
Wed, 31 Oct 2007 12:49:11 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Juanma Barranquero <lektu> 07/10/31 12:49:11
Index: strokes.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/strokes.el,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -b -r1.32 -r1.33
--- strokes.el 13 Aug 2007 13:41:03 -0000 1.32
+++ strokes.el 31 Oct 2007 12:49:11 -0000 1.33
@@ -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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/strokes.el,v,
Juanma Barranquero <=