From: Nick Roberts <nickrob@snap.net.nz>
Date: Thu, 19 May 2005 00:13:09 +0000 (+0000)
Subject: (describe-variable): Remove hyperlinks in a
X-Git-Tag: ttn-vms-21-2-B4~164
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1bd539774234c7752daf9ee8cc39beb5916513b2;p=emacs.git

(describe-variable): Remove hyperlinks in a
variable's value as these are quite frequently inappropriate.
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 4bf0a4775a0..c11aaf6da76 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -535,7 +535,9 @@ it is displayed along with the global value."
 		(terpri)
 		(let ((from (point)))
 		  (pp val)
-		  (help-xref-on-pp from (point))
+		  ;; Hyperlinks in variable's value are quite frequently
+		  ;; inappropriate e.g C-h v <RET> features <RET>
+		  ;; (help-xref-on-pp from (point))
 		  (if (< (point) (+ from 20))
 		      (delete-region (1- from) from)))))
 	    (terpri)
@@ -556,7 +558,8 @@ it is displayed along with the global value."
 		    ;; sensible size before prettyprinting.  -- fx
 		    (let ((from (point)))
 		      (pp val)
-		      (help-xref-on-pp from (point))
+		      ;; See previous comment for this function.
+		      ;; (help-xref-on-pp from (point))
 		      (if (< (point) (+ from 20))
 			(delete-region (1- from) from))))))
 	      (terpri))