Mercurial > emacs

changeset 28718:74b19c6efdd1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(help-xref-on-pp): New function. (describe-variable): Use it to display xrefs in a symbol's value.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 26 Apr 2000 17:32:20 +0000
parents 228d0bc8e997
children f56c181fb849
files lisp/help.el
diffstat 1 files changed, 38 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/help.el	Wed Apr 26 17:12:34 2000 +0000
+++ b/lisp/help.el	Wed Apr 26 17:32:20 2000 +0000
@@ -751,6 +751,29 @@
 	  (set-syntax-table stab)))
     (error 0)))
 
+(defun help-xref-on-pp (from to)
+  "Add xrefs for symbols in `pp's output between FROM and TO."
+  (let ((ost (syntax-table)))
+    (unwind-protect
+	(save-excursion
+	  (save-restriction
+	    (set-syntax-table emacs-lisp-mode-syntax-table)
+	    (narrow-to-region from to)
+	    (goto-char (point-min))
+	    (while (not (eobp))
+	      (cond
+	       ((looking-at "\"") (forward-sexp 1))
+	       ((looking-at "#<") (search-forward ">" nil 'move))
+	       ((looking-at "\\(\\(\\sw\\|\\s_\\)+\\)")
+		(let* ((sym (intern-soft
+			     (buffer-substring (match-beginning 1) (match-end 1))))
+		       (fn (cond ((fboundp sym) #'describe-function)
+				 ((and sym (boundp sym)) #'describe-variable))))
+		  (when fn (help-xref-button 1 fn sym)))
+		(goto-char (match-end 1)))
+	       (t (forward-char 1))))))
+      (set-syntax-table ost))))
+
 (defun describe-variable (variable)
   "Display the full documentation of VARIABLE (a symbol).
 Returns the documentation as a string, also."
@@ -772,20 +795,27 @@
 	  (if (not (boundp variable))
 	      (progn
 		(princ " is void")
+		(setq valvoid t))
+	    (let ((val (symbol-value variable)))
+	      (with-current-buffer standard-output
+		(princ "'s value is ")
 		(terpri)
-		(setq valvoid t))
-	    (princ "'s value is ")
-	    (terpri)
-	    (pp (symbol-value variable))
-	    (terpri))
+		(let ((from (point)))
+		  (pp val)
+		  (help-xref-on-pp from (point))))))
+	  (terpri)
 	  (if (local-variable-p variable)
 	      (progn
 		(princ (format "Local in buffer %s; " (buffer-name)))
 		(if (not (default-boundp variable))
 		    (princ "globally void")
-		  (princ "global value is ")
-		  (terpri)
-		  (pp (default-value variable)))
+		  (let ((val (default-value variable)))
+		    (with-current-buffer standard-output
+		      (princ "global value is ")
+		      (terpri)
+		      (let ((from (point)))
+			(pp val)
+			(help-xref-on-pp from (point))))))
 		(terpri)))
 	  (terpri)
 	  (save-current-buffer