comparison lisp/help.el @ 23640:51102c1dc0c3

(describe-variable): Don't quote link to source.

23639:516fc58a7b7b

	  ;; Make a hyperlink to the library if appropriate.  (Don't
	  ;; change the format of the buffer's initial line in case
	  ;; anything expects the current format.)
	  (let ((file-name (describe-function-find-file variable)))
	    (when file-name
	      (princ "\n\nDefined in `")
	      (princ file-name)
	      (princ "'.")
	      (with-current-buffer "*Help*"
		(save-excursion
		  (re-search-backward "`\\([^`']+\\)'" nil t)
		  (help-xref-button 1 (lambda (arg)
					(let ((location
					       (find-variable-noselect arg)))
					  (pop-to-buffer (car location))
					  (goto-char (cdr location))))

23640:51102c1dc0c3

	  ;; Make a hyperlink to the library if appropriate.  (Don't
	  ;; change the format of the buffer's initial line in case
	  ;; anything expects the current format.)
	  (let ((file-name (describe-function-find-file variable)))
	    (when file-name
	      ;; Don't quote this, or it can get re-interpreted later
	      ;; by `help-make-xrefs'.
	      (princ "\n\nDefined in ")
	      (princ file-name)
	      (princ ".")
	      (with-current-buffer "*Help*"
		(save-excursion
		  (re-search-backward "Defined in \\([^.]+\\)." nil t)
		  (help-xref-button 1 (lambda (arg)
					(let ((location
					       (find-variable-noselect arg)))
					  (pop-to-buffer (car location))
					  (goto-char (cdr location))))