diff options
| author | Richard M. Stallman | 2001-11-07 04:35:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2001-11-07 04:35:20 +0000 |
| commit | ed210b402880b6a92a4eaa155125eba3783b63f7 (patch) | |
| tree | b7d894a80eac778dc7f7b9162f5ba3ae7989f208 | |
| parent | e4059eed38e7d03df8c3053e5d122b9865f859d7 (diff) | |
| download | emacs-ed210b402880b6a92a4eaa155125eba3783b63f7.tar.gz emacs-ed210b402880b6a92a4eaa155125eba3783b63f7.zip | |
(Info-fontify-node): Highlight every third menu item.
| -rw-r--r-- | lisp/info.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/info.el b/lisp/info.el index 38c077a5417..8b8447a7b6b 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -2622,7 +2622,7 @@ the variable `Info-file-list-for-emacs'." | |||
| 2622 | (let ((n 0)) | 2622 | (let ((n 0)) |
| 2623 | (while (re-search-forward "^\\* +\\([^:\t\n]*\\):" nil t) | 2623 | (while (re-search-forward "^\\* +\\([^:\t\n]*\\):" nil t) |
| 2624 | (setq n (1+ n)) | 2624 | (setq n (1+ n)) |
| 2625 | (if (memq n '(5 9)) ; visual aids to help with 1-9 keys | 2625 | (if (zerop (% n 3)) ; visual aids to help with 1-9 keys |
| 2626 | (put-text-property (match-beginning 0) | 2626 | (put-text-property (match-beginning 0) |
| 2627 | (1+ (match-beginning 0)) | 2627 | (1+ (match-beginning 0)) |
| 2628 | 'face 'info-menu-5)) | 2628 | 'face 'info-menu-5)) |