aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2000-07-09 18:36:21 +0000
committerStefan Monnier2000-07-09 18:36:21 +0000
commitf45aab653b455d319ad271b0a43939a4c3f07e37 (patch)
treef7699bbe6dbb6296d04e66f85cbb4428d2b00d2f
parent0b50c67ff63a78e90b16901612d9f8ab43d05f7a (diff)
downloademacs-f45aab653b455d319ad271b0a43939a4c3f07e37.tar.gz
emacs-f45aab653b455d319ad271b0a43939a4c3f07e37.zip
(mouse-drag-region): Use functionp rather than fboundp.
-rw-r--r--lisp/ChangeLog13
-rw-r--r--lisp/mouse.el2
2 files changed, 14 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 51c23f6fe8c..c39dc035b63 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
12000-07-09 Stefan Monnier <monnier@cs.yale.edu>
2
3 * mouse.el (mouse-drag-region): Use functionp rather than fboundp.
4
12000-07-07 Gerd Moellmann <gerd@gnu.org> 52000-07-07 Gerd Moellmann <gerd@gnu.org>
2 6
3 * bindings.el: Bind ´[delete]' to delete-char. 7 * bindings.el: Bind ´[delete]' to delete-char.
@@ -32,6 +36,15 @@
32 * rmail.el (mail-unsent-separator): Changed "the" to "\\w+", as 36 * rmail.el (mail-unsent-separator): Changed "the" to "\\w+", as
33 exim can use "your message" instead of "the message". 37 exim can use "your message" instead of "the message".
34 38
392000-07-06 Stefan Monnier <monnier@cs.yale.edu>
40
41 * facemenu.el: Docstrings fixes.
42 (facemenu-get-face): Don't use internal-find-face.
43 (facemenu-iterate): Rename arg to match the docstring.
44
45 * newcomment.el (uncomment-region): Be more careful when skipping
46 backwards over `=' not to bump into BOBP.
47
352000-07-05 Michael Kifer <kifer@cs.sunysb.edu> 482000-07-05 Michael Kifer <kifer@cs.sunysb.edu>
36 49
37 * ediff-diff.el (ediff-wordify): Use syntax table. 50 * ediff-diff.el (ediff-wordify): Use syntax table.
diff --git a/lisp/mouse.el b/lisp/mouse.el
index c67d22c158e..e54ecd0cf80 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -677,7 +677,7 @@ remains active. Otherwise, it remains until the next input event."
677 (mouse-set-region-1)))) 677 (mouse-set-region-1))))
678 (delete-overlay mouse-drag-overlay) 678 (delete-overlay mouse-drag-overlay)
679 ;; Run the binding of the terminating up-event. 679 ;; Run the binding of the terminating up-event.
680 (when (and (fboundp fun) 680 (when (and (functionp fun)
681 (= start-hscroll (window-hscroll start-window))) 681 (= start-hscroll (window-hscroll start-window)))
682 (setq unread-command-events 682 (setq unread-command-events
683 (cons event unread-command-events))))) 683 (cons event unread-command-events)))))