From: Richard M. Stallman Date: Wed, 7 Nov 2001 04:35:20 +0000 (+0000) Subject: (Info-fontify-node): Highlight every third menu item. X-Git-Tag: ttn-vms-21-2-B4~18770 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ed210b402880b6a92a4eaa155125eba3783b63f7;p=emacs.git (Info-fontify-node): Highlight every third menu item. --- 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'." (let ((n 0)) (while (re-search-forward "^\\* +\\([^:\t\n]*\\):" nil t) (setq n (1+ n)) - (if (memq n '(5 9)) ; visual aids to help with 1-9 keys + (if (zerop (% n 3)) ; visual aids to help with 1-9 keys (put-text-property (match-beginning 0) (1+ (match-beginning 0)) 'face 'info-menu-5))