Mercurial > emacs

changeset 22061:eed26995bfad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ad-handle-definition, defadvice): Fix error messages.
author Richard M. Stallman <rms@gnu.org>
date Thu, 14 May 1998 05:39:59 +0000
parents 530d5f35aa4e
children 029145c16497
files lisp/emacs-lisp/advice.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/advice.el	Thu May 14 05:23:24 1998 +0000
+++ b/lisp/emacs-lisp/advice.el	Thu May 14 05:39:59 1998 +0000
@@ -3557,7 +3557,7 @@
 		;; 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 @@
 
 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 @@
 		(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