summaryrefslogtreecommitdiff
path: root/lisp/help-fns.el
diff options
context:
space:
mode:
authorNick Roberts <nickrob@snap.net.nz>2005-05-19 00:13:09 +0000
committerNick Roberts <nickrob@snap.net.nz>2005-05-19 00:13:09 +0000
commit1bd539774234c7752daf9ee8cc39beb5916513b2 (patch)
tree94f6a1a0dcd13299606fbaadaa80ad64a2b55996 /lisp/help-fns.el
parent2dade9c6789ca8a68fb86413e2a7ab7d197fa1e5 (diff)
downloademacs-1bd539774234c7752daf9ee8cc39beb5916513b2.tar.gz
(describe-variable): Remove hyperlinks in a
variable's value as these are quite frequently inappropriate.
Diffstat (limited to 'lisp/help-fns.el')
-rw-r--r--lisp/help-fns.el7
1 files changed, 5 insertions, 2 deletions
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))