monnier pushed a commit to branch master in repository elpa. commit a23c258c1358463b7618fcbf158cc542389de97f Author: Teemu Likonen <tliko...@iki.fi> Date: Sun Jan 2 10:45:08 2011 +0000
Siirretään signaalien määrittelyt samaan paikkaan --- wcheck-mode.el | 50 ++++++++++++++++++++++++++++---------------------- 1 files changed, 28 insertions(+), 22 deletions(-) diff --git a/wcheck-mode.el b/wcheck-mode.el index 8626a62..5ae763b 100644 --- a/wcheck-mode.el +++ b/wcheck-mode.el @@ -605,6 +605,34 @@ This is used when language does not define a face." ,@body))) +;;; Conditions + + +(wcheck-define-condition wcheck-error '(error wcheck-error)) + + +(wcheck-define-condition + wcheck-language-does-not-exist-error + '(error wcheck-error wcheck-language-does-not-exist-error)) + + +(wcheck-define-condition + wcheck-program-not-configured-error + '(error wcheck-error wcheck-program-not-configured-error)) + + +(wcheck-define-condition + wcheck-suggestion-error + '(error wcheck-error wcheck-suggestion-error)) + + +(wcheck-define-condition + wcheck-suggestion-program-error + '(error wcheck-error + wcheck-suggestion-error + wcheck-suggestion-program-error)) + + ;;; Interactive commands @@ -665,17 +693,6 @@ interactively) then change the global default language." (cdr error-data))))) -(wcheck-define-condition wcheck-error '(error wcheck-error)) - -(wcheck-define-condition - wcheck-language-does-not-exist-error - '(error wcheck-error wcheck-language-does-not-exist-error)) - -(wcheck-define-condition - wcheck-program-not-configured-error - '(error wcheck-error wcheck-program-not-configured-error)) - - (defun wcheck-mode-turn-on () ;; Turn the mode on, but first some checks. (let ((buffer (current-buffer)) @@ -1231,17 +1248,6 @@ the text and (3) marker at the end of the text." start end))))) -(wcheck-define-condition - wcheck-suggestion-error - '(error wcheck-error wcheck-suggestion-error)) - -(wcheck-define-condition - wcheck-suggestion-program-error - '(error wcheck-error - wcheck-suggestion-error - wcheck-suggestion-program-error)) - - ;;;###autoload (defun wcheck-spelling-suggestions (pos &optional event) "Offer spelling suggestions for marked text.