- (setq buffer-read-only nil)
- (erase-buffer)
- (mapcar
- (function (lambda (assoc)
- (let ((keyword (car assoc)))
- (insert (symbol-name keyword))
- (insert-at-column 14 (concat (cdr assoc) "\n"))
- (cons (symbol-name keyword) keyword))))
- finder-known-keywords)
- (goto-char (point-min))
- (setq finder-headmark (point))
- (setq buffer-read-only t)
- (set-buffer-modified-p nil)
- (balance-windows)
- (finder-summary))
+ (if (get-buffer "*Finder*")
+ (pop-to-buffer "*Finder*")
+ (pop-to-buffer (set-buffer (get-buffer-create "*Finder*")))
+ (finder-mode)
+ (setq buffer-read-only nil)
+ (erase-buffer)
+ (mapcar
+ (lambda (assoc)
+ (let ((keyword (car assoc)))
+ (insert (symbol-name keyword))
+ (finder-insert-at-column 14 (concat (cdr assoc) "\n"))
+ (finder-mouse-face-on-line)))
+ finder-known-keywords)
+ (goto-char (point-min))
+ (setq finder-headmark (point))
+ (setq buffer-read-only t)
+ (set-buffer-modified-p nil)
+ (balance-windows)
+ (finder-summary)))