4.3BSD/usr/contrib/emacs/lisp/aton.elc

(defun occur-menu (string) "\
Show menu of lines containing match for REGEXP.
Enters recursive edit on text showing an entry for each matching line.
User can move to an entry and then exit with \\[exit-recursive-edit] to
move to the line in the original buffer described by the selected entry.
Abort with \\[abort-recursive-edit] to avoid moving in the original buffer.

If REGEXP is empty then THE EXACT SAME menu is presented again,
with cursor initially at the next successive entry.
This is useful for stepping through located lines rapidly in order." (interactive "sOccur menu (regexp): ") (byte-code "LjÇÇÌÍ!peÎÏ\"?
ƒ{Š
qˆÐ )ˆŠebˆÑ‰ˆÒ#…oÓ ˆÔ`\"\\‰ˆ`‰	ˆ`‰ˆÕ ˆ`‰
ˆŠ
qˆÖ×!Ø\"ˆÙ	
#ˆÚ )ˆÛÑ!ˆ‚)ˆ
qˆÜ!)‚|LjÝÞ‹!.‡" [ln track-eol accumbuf databuf prev rebuild-summary string nil t beg end buffer-read-only get-buffer-create " *Occur menu*" string-equal "" erase-buffer 1 re-search-forward beginning-of-line count-lines end-of-line insert int-to-string ". " insert-buffer-substring newline forward-line set-buffer-modified-p goto-line ((byte-code "Ä!ˆÅ ˆ	ƒeb‚ÆÇ!ˆdÇUƒ ÈÉ!‚!ʈËÌÍ!!ˆÎ )ˆÏ ˆÐ!‡" [accumbuf rebuild-summary buffer-read-only t switch-to-buffer delete-other-windows forward-line 1 error "No occurrences found." nil message substitute-command-keys "Use \\[exit-recursive-edit] to select line, \\[abort-recursive-edit] to abort." recursive-edit beginning-of-line read] 16))] 32))