Mercurial > emacs

changeset 6624:ca39bae3744d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Info-fontify-node): Add mouse-face properties. Increase size limit for fontifying to 30000.
author Richard M. Stallman <rms@gnu.org>
date Fri, 01 Apr 1994 10:10:24 +0000
parents 1d60a75efa87
children d53ff9fcf05a
files lisp/info.el
diffstat 1 files changed, 10 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Fri Apr 01 08:25:12 1994 +0000
+++ b/lisp/info.el	Fri Apr 01 10:10:24 1994 +0000
@@ -1508,18 +1508,22 @@
 		(looking-at "[ \t]*[^:, \t\n]+:[ \t]+\\([^:,\t\n]+\\),?")
 	      (goto-char (match-end 0))
 	      (put-text-property (match-beginning 1) (match-end 1)
-				 'face 'info-xref))))
+				 'face 'info-xref)
+	      (put-text-property (match-beginning 1) (match-end 1)
+				 'mouse-face 'highlight))))
       (goto-char (point-min))
       (while (re-search-forward "\\*Note[ \n\t]*\\([^:]*\\):" nil t)
 	(if (= (char-after (1- (match-beginning 0))) ?\") ; hack
 	    nil
 	  (put-text-property (match-beginning 1) (match-end 1)
-			     'face 'info-xref)))
+			     'face 'info-xref)
+	  (put-text-property (match-beginning 1) (match-end 1)
+			     'mouse-face 'highlight)))
       (goto-char (point-min))
       (if (and (search-forward "\n* Menu:" nil t)
 	       (not (string-match "\\<Index\\>" Info-current-node))
 	       ;; Don't take time to annotate huge menus
-	       (< (- (point-max) (point)) 10000))
+	       (< (- (point-max) (point)) 30000))
 	  (let ((n 0))
 	    (while (re-search-forward "^\\* \\([^:\t\n]*\\):" nil t)
 	      (setq n (1+ n))
@@ -1528,7 +1532,9 @@
 				     (1+ (match-beginning 0))
 				     'face 'info-menu-5))
 	      (put-text-property (match-beginning 1) (match-end 1)
-				 'face 'info-node))))
+				 'face 'info-node)
+	      (put-text-property (match-beginning 1) (match-end 1)
+				 'mouse-face 'highlight))))
       (set-buffer-modified-p nil))))
 
 (provide 'info)