From: Stefan Monnier Date: Thu, 10 Mar 2005 14:45:31 +0000 (+0000) Subject: (tooltip-mode): Don't complain that you can't turn the X-Git-Tag: ttn-vms-21-2-B4~1853 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ef75a6477366c638e58c8660eb9e0ccfbde85c49;p=emacs.git (tooltip-mode): Don't complain that you can't turn the feature ON when the user requests to turn it OFF. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b9952c55973..daf15811bdc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,15 +1,18 @@ +2005-03-10 Stefan Monnier + + * tooltip.el (tooltip-mode): Don't complain that you can't turn the + feature ON when the user requests to turn it OFF. + 2005-03-10 Lute Kamstra * emacs-lisp/debug.el (debug-entry-code): Delete it. - (implement-debug-on-entry): New function to replace - debug-entry-code. + (implement-debug-on-entry): New function to replace debug-entry-code. (debug-on-entry-1): Use implement-debug-on-entry. Delete the second argument as the 2005-03-07 change makes it obsolete. (debug-on-entry, cancel-debug-on-entry): Update call to debug-on-entry-1. (debug, debugger-setup-buffer): Comment update. - (debugger-frame-number): Update to work with - implement-debug-on-entry. + (debugger-frame-number): Update to work with implement-debug-on-entry. 2005-03-10 Jay Belanger @@ -54,7 +57,7 @@ * textmodes/ispell.el (ispell-insert-word): New function. (ispell-word): Use ispell-insert-word to insert a new word. - (ispell-process-line): Likewise + (ispell-process-line): Likewise. (ispell-complete-word): Likewise. 2005-03-09 Glenn Morris diff --git a/lisp/tooltip.el b/lisp/tooltip.el index 6d81ee39d7f..e4cab1beba1 100644 --- a/lisp/tooltip.el +++ b/lisp/tooltip.el @@ -188,7 +188,7 @@ This might return nil if the event did not occur over a buffer." With ARG, turn tooltip mode on if and only if ARG is positive." :global t :group 'tooltip - (unless (fboundp 'x-show-tip) + (unless (or (null tooltip-mode) (fboundp 'x-show-tip)) (error "Sorry, tooltips are not yet available on this system")) (let ((hook-fn (if tooltip-mode 'add-hook 'remove-hook))) (funcall hook-fn 'change-major-mode-hook 'tooltip-change-major-mode)