In org-elisp-symbol.el: correctly handle function with no documentation.

This commit is contained in:
Bastien Guerry 2008-03-05 01:55:46 +00:00
parent b6cc5e606d
commit 2a5f2004ba
2 changed files with 14 additions and 8 deletions

View File

@ -1,3 +1,8 @@
2008-03-05 Bastien Guerry <bzg@altern.org>
* lisp/org-elisp-symbol.el (org-elisp-symbol-store-link):
Correctly handle function with no documentation.
2008-02-29 Tokuya Kameshima <kames@fa2.so-net.ne.jp>
* lisp/org-bookmark.el (org-bookmark-store-link): Use

View File

@ -65,7 +65,7 @@
;; Fixme: update the docstring
;; Doc: "Convert lists to LaTeX."
;;
;; [[file:~/path/file.el::defun%20org-export-latex-lists][Function: org-export-latex-lists]]
;; [[file:~/path/file.el::defun%20my-func][Function: my-func]]
;; =====================================================================
;;
;; Put this file into your load-path and the following into your ~/.emacs:
@ -110,7 +110,8 @@
(split-string (match-string 3)) " ")
"no arg"))
(docstring (cond ((functionp sym-name)
(documentation sym-name))
(or (documentation sym-name)
"[no documentation]"))
((string-match "[Vv]ariable" stype)
(documentation-property sym-name
'variable-documentation))