[Emacs-diffs] Changes to emacs/lisp/help-fns.el

[Nick Roberts]

Index: emacs/lisp/help-fns.el
diff -c emacs/lisp/help-fns.el:1.66 emacs/lisp/help-fns.el:1.67
*** emacs/lisp/help-fns.el:1.66 Wed Mar 30 22:50:17 2005
--- emacs/lisp/help-fns.el      Thu May 19 00:13:09 2005
***************
*** 535,541 ****
                (terpri)
                (let ((from (point)))
                  (pp val)
!                 (help-xref-on-pp from (point))
                  (if (< (point) (+ from 20))
                      (delete-region (1- from) from)))))
            (terpri)
--- 535,543 ----
                (terpri)
                (let ((from (point)))
                  (pp val)
!                 ;; 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,562 ****
                    ;; sensible size before prettyprinting.  -- fx
                    (let ((from (point)))
                      (pp val)
!                     (help-xref-on-pp from (point))
                      (if (< (point) (+ from 20))
                        (delete-region (1- from) from))))))
              (terpri))
--- 558,565 ----
                    ;; sensible size before prettyprinting.  -- fx
                    (let ((from (point)))
                      (pp val)
!                     ;; See previous comment for this function.
!                     ;; (help-xref-on-pp from (point))
                      (if (< (point) (+ from 20))
                        (delete-region (1- from) from))))))
              (terpri))