diff lisp/help-fns.el @ 83307:21eea50897a7

Merged from miles@gnu.org--gnu-2005 (patch 69, 313-319) Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-313 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-314 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-315 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-316 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-317 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-318 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-319 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-69 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-347
author Karoly Lorentey <lorentey@elte.hu>
date Fri, 20 May 2005 17:44:36 +0000
parents aa4ff0258607 3de160e732f1
children 6aee1e9b0bd7
line wrap: on
line diff
--- a/lisp/help-fns.el	Mon May 16 15:49:27 2005 +0000
+++ b/lisp/help-fns.el	Fri May 20 17:44:36 2005 +0000
@@ -542,7 +542,9 @@
 		(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)
@@ -565,7 +567,8 @@
 		    ;; 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))