# HG changeset patch # User Richard M. Stallman # Date 1005107720 0 # Node ID 4126b1d76d8fca7032a275565a4b1549ef12520f # Parent 7ea12eee70040b1ed58e84898c1cc27be9f692fe (Info-fontify-node): Highlight every third menu item. diff -r 7ea12eee7004 -r 4126b1d76d8f lisp/info.el --- a/lisp/info.el Wed Nov 07 04:27:40 2001 +0000 +++ b/lisp/info.el Wed Nov 07 04:35:20 2001 +0000 @@ -2622,7 +2622,7 @@ (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))