diff options
| author | Dave Love <fx@gnu.org> | 1998-11-05 18:55:38 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 1998-11-05 18:55:38 +0000 |
| commit | 3b3e7de595cb67917177b2489af5775581dbb11e (patch) | |
| tree | f161f99cc50751aa00853808a0bc34211dafb19c /lisp | |
| parent | 484fa2c1ecd619f1bf26a6d1e2e206d55b4805d6 (diff) | |
| download | emacs-3b3e7de595cb67917177b2489af5775581dbb11e.tar.gz emacs-3b3e7de595cb67917177b2489af5775581dbb11e.tar.bz2 emacs-3b3e7de595cb67917177b2489af5775581dbb11e.zip | |
(describe-variable): Don't quote link to source.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/help.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/help.el b/lisp/help.el index 2e2b9459b53..ce21fa90416 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -748,12 +748,14 @@ Returns the documentation as a string, also." ;; anything expects the current format.) (let ((file-name (describe-function-find-file variable))) (when file-name - (princ "\n\nDefined in `") + ;; Don't quote this, or it can get re-interpreted later + ;; by `help-make-xrefs'. + (princ "\n\nDefined in ") (princ file-name) - (princ "'.") + (princ ".") (with-current-buffer "*Help*" (save-excursion - (re-search-backward "`\\([^`']+\\)'" nil t) + (re-search-backward "Defined in \\([^.]+\\)." nil t) (help-xref-button 1 (lambda (arg) (let ((location (find-variable-noselect arg))) |