diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-05-14 05:39:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-05-14 05:39:59 +0000 |
| commit | 2036d16f5156093a02c384dffeec1bd766d0fee2 (patch) | |
| tree | c56c6c0a1a7e8629d4d51f8c9c09119fcae62d36 | |
| parent | 0f2aa0e118094903e79b5acd7b30faafd4bd8615 (diff) | |
| download | emacs-2036d16f5156093a02c384dffeec1bd766d0fee2.tar.gz emacs-2036d16f5156093a02c384dffeec1bd766d0fee2.tar.bz2 emacs-2036d16f5156093a02c384dffeec1bd766d0fee2.zip | |
(ad-handle-definition, defadvice): Fix error messages.
| -rw-r--r-- | lisp/emacs-lisp/advice.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el index 33e2ab6b4fc..afb2c419778 100644 --- a/lisp/emacs-lisp/advice.el +++ b/lisp/emacs-lisp/advice.el @@ -3557,7 +3557,7 @@ the value of `ad-redefinition-action' and de/activate again." ;; we have a redefinition: (if (not (memq ad-redefinition-action '(accept discard warn))) (error "ad-handle-definition (see its doc): `%s' %s" - function "illegally redefined") + function "invalidly redefined") (if (eq ad-redefinition-action 'discard) (ad-safe-fset function original-definition) (ad-set-orig-definition function current-definition) @@ -3794,13 +3794,13 @@ during preloading. Look at the file `advice.el' for comprehensive documentation." (if (not (ad-name-p function)) - (error "defadvice: Illegal function name: %s" function)) + (error "defadvice: Invalid function name: %s" function)) (let* ((class (car args)) (name (if (not (ad-class-p class)) - (error "defadvice: Illegal advice class: %s" class) + (error "defadvice: Invalid advice class: %s" class) (nth 1 args))) (position (if (not (ad-name-p name)) - (error "defadvice: Illegal advice name: %s" name) + (error "defadvice: Invalid advice name: %s" name) (setq args (nthcdr 2 args)) (if (ad-position-p (car args)) (prog1 (car args) @@ -3817,7 +3817,7 @@ Look at the file `advice.el' for comprehensive documentation." (cond ((eq completion t) flag) ((assoc completion ad-defadvice-flags) (intern completion)) - (t (error "defadvice: Illegal or ambiguous flag: %s" + (t (error "defadvice: Invalid or ambiguous flag: %s" flag)))))) args)) (advice (ad-make-advice |