Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
2036d16f
Commit
2036d16f
authored
May 14, 1998
by
Richard M. Stallman
Browse files
(ad-handle-definition, defadvice): Fix error messages.
parent
0f2aa0e1
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
5 deletions
+5
-5
lisp/emacs-lisp/advice.el
lisp/emacs-lisp/advice.el
+5
-5
No files found.
lisp/emacs-lisp/advice.el
View file @
2036d16f
...
...
@@ -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
"i
llegal
ly redefined"
)
function
"i
nvalid
ly 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: I
llegal
function name: %s"
function
))
(
error
"defadvice: I
nvalid
function name: %s"
function
))
(
let*
((
class
(
car
args
))
(
name
(
if
(
not
(
ad-class-p
class
))
(
error
"defadvice: I
llegal
advice class: %s"
class
)
(
error
"defadvice: I
nvalid
advice class: %s"
class
)
(
nth
1
args
)))
(
position
(
if
(
not
(
ad-name-p
name
))
(
error
"defadvice: I
llegal
advice name: %s"
name
)
(
error
"defadvice: I
nvalid
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: I
llegal
or ambiguous flag: %s"
(
t
(
error
"defadvice: I
nvalid
or ambiguous flag: %s"
flag
))))))
args
))
(
advice
(
ad-make-advice
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment