From 7aca2ebc8da5c0014e81020062437a9ca12ad12d Mon Sep 17 00:00:00 2001 From: rubikitch Date: Fri, 23 Jul 2010 06:42:54 +0900 Subject: [PATCH] anything-config.el (anything-c-source-info-pages): reformat --- anything-config.el | 33 +++++++++++++++++---------------- 1 file changed, 17 insertions(+), 16 deletions(-) diff --git a/anything-config.el b/anything-config.el index 6d822e4..369c920 100644 --- a/anything-config.el +++ b/anything-config.el @@ -2269,22 +2269,23 @@ source.") (defvar anything-c-source-info-pages `((name . "Info Pages") - (candidates . (lambda () - (if anything-c-info-pages - anything-c-info-pages - (setq anything-c-info-pages - (save-window-excursion - (save-excursion - (require 'info) - (Info-find-node "dir" "top") - (goto-char (point-min)) - (let ((info-topic-regexp "\\* +\\([^:]+: ([^)]+)[^.]*\\)\\.") - topics) - (while (re-search-forward info-topic-regexp nil t) - (add-to-list 'topics (match-string-no-properties 1))) - (goto-char (point-min)) - (Info-exit) - topics))))))) + (candidates + . (lambda () + (if anything-c-info-pages + anything-c-info-pages + (setq anything-c-info-pages + (save-window-excursion + (save-excursion + (require 'info) + (Info-find-node "dir" "top") + (goto-char (point-min)) + (let ((info-topic-regexp "\\* +\\([^:]+: ([^)]+)[^.]*\\)\\.") + topics) + (while (re-search-forward info-topic-regexp nil t) + (add-to-list 'topics (match-string-no-properties 1))) + (goto-char (point-min)) + (Info-exit) + topics))))))) (action . (("Show with Info" .(lambda (node-str) (info (replace-regexp-in-string "^[^:]+: " "" -- 2.11.4.GIT