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
72a20032
Commit
72a20032
authored
Oct 14, 2007
by
Richard M. Stallman
Browse files
(describe-function-1): Find source of advised functions.
parent
15975e35
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
31 additions
and
5 deletions
+31
-5
lisp/ChangeLog
lisp/ChangeLog
+18
-0
lisp/help-fns.el
lisp/help-fns.el
+13
-5
No files found.
lisp/ChangeLog
View file @
72a20032
2007-10-14 Richard Stallman <rms@gnu.org>
* emacs-lisp/advice.el (documentation): Advice deleted.
Doc for advised functions is now handled at C level.
This is now handled at C level.
(ad-stop-advice, ad-start-advice): Don't enable or disable
advice for `documentation'.
(ad-advised-definition-docstring-regexp): Var deleted.
(ad-make-advised-definition-docstring): Store orig name
as text property of string.
(ad-advised-definition-p): Check for text property of docstring.
* help-fns.el (describe-function-1): Find source of advised functions.
2007-10-14 Juri Linkov <juri@jurta.org>
* faces.el (describe-face): Allow handling a string as the face name.
...
...
@@ -371,6 +385,10 @@
* net/trampver.el: Update release number.
2007-10-09 Richard Stallman <rms@gnu.org>
* play/gamegrid.el (gamegrid-setup-default-font): Use face-spec-set.
2007-10-09 Juanma Barranquero <lekktu@gmail.com>
* follow.el: Require easymenu.
...
...
lisp/help-fns.el
View file @
72a20032
...
...
@@ -251,8 +251,15 @@ face (according to `face-differs-from-default-p')."
;;;###autoload
(
defun
describe-function-1
(
function
)
(
let*
((
def
(
if
(
symbolp
function
)
(
symbol-function
function
)
(
let*
((
advised
(
and
(
featurep
'advice
)
(
ad-get-advice-info
function
)))
;; If the function is advised, get the symbol that has the
;; real definition.
(
real-function
(
if
advised
(
cdr
(
assq
'origname
advised
))
function
))
;; Get the real definition.
(
def
(
if
(
symbolp
real-function
)
(
symbol-function
real-function
)
function
))
file-name
string
(
beg
(
if
(
commandp
def
)
"an interactive "
"a "
)))
...
...
@@ -334,7 +341,7 @@ face (according to `face-differs-from-default-p')."
(
with-current-buffer
standard-output
(
save-excursion
(
re-search-backward
"`\\([^`']+\\)'"
nil
t
)
(
help-xref-button
1
'help-function-def
function
file-name
))))
(
help-xref-button
1
'help-function-def
real-
function
file-name
))))
(
princ
"."
)
(
terpri
)
(
when
(
commandp
function
)
...
...
@@ -383,8 +390,9 @@ face (according to `face-differs-from-default-p')."
((
listp
arglist
)
(
format
"%S"
(
help-make-usage
function
arglist
)))
((
stringp
arglist
)
arglist
)
;; Maybe the arglist is in the docstring of the alias.
((
let
((
fun
function
))
;; Maybe the arglist is in the docstring of a symbol
;; this one is aliased to.
((
let
((
fun
real-function
))
(
while
(
and
(
symbolp
fun
)
(
setq
fun
(
symbol-function
fun
))
(
not
(
setq
usage
(
help-split-fundoc
...
...
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