From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: =?iso-8859-1?Q?S=E9bastien_Vauban?= Newsgroups: gmane.emacs.help Subject: Re: Anything.el for Windows Date: Thu, 14 Feb 2008 15:33:31 +0100 Organization: Sebastien Vauban Message-ID: <87r6ff4ngk.fsf@mundaneum.com> References: <87ve55gc7n.fsf@mundaneum.com> <87ir138k0h.fsf@mundaneum.com> <87r6fqpbno.fsf@mundaneum.com> <874pcfjz2x.fsf@mundaneum.com> <87myq6iftr.fsf@mundaneum.com> <87odamcg3i.fsf@mundaneum.com> <87y79n65xz.fsf@mundaneum.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: ger.gmane.org 1203000065 18160 80.91.229.12 (14 Feb 2008 14:41:05 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 14 Feb 2008 14:41:05 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Thu Feb 14 15:41:29 2008 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1JPfGy-0002u4-09 for geh-help-gnu-emacs@m.gmane.org; Thu, 14 Feb 2008 15:41:12 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1JPfGU-00030r-3G for geh-help-gnu-emacs@m.gmane.org; Thu, 14 Feb 2008 09:40:42 -0500 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!newsserver.news.garr.it!kanaga.switch.ch!switch.ch!feeder2.ecngs.de!ecngs!feeder.ecngs.de!feed1.news.be.easynet.net!reader0.news.be.easynet.net!not-for-mail Original-Newsgroups: gnu.emacs.help X-Www-site: Under construction... User-Agent: Gnus/5.110007 (No Gnus v0.7) Emacs/23.0.60 (gnu/linux) Cancel-Lock: sha1:0/RVFEchU0wNoeNjUWR7++BU9Fk= Original-Lines: 163 Original-NNTP-Posting-Date: 14 Feb 2008 14:33:31 GMT Original-NNTP-Posting-Host: 81.188.7.152 Original-X-Trace: 1202999611 reader0.news.be.easynet.net 1585 [::ffff:81.188.7.152]:58643 Original-X-Complaints-To: abuse@be.easynet.net Original-Xref: shelby.stanford.edu gnu.emacs.help:156138 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:51514 Archived-At: Hi Tassilo, Sorry to disturb you again... >> I've git'ted your file as well, but my problem still stays!? > > Ok. > >> FYI, here's my `anything-sources' with the latest "sources" file: >> >> Value: [...] >> ((name . "Info Pages") >> (candidates lambda nil >> (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 "^[^:]+: " "" node-str)))) >> (requires-pattern . 2))) >> >> The problem seems to stay, even with the updated versions of >> both `anything.el' and `anything-sources.el'. > > Indeed, it's the same error... OK. >> Can you help me? > > Are those the only settings that you have? Yes, no trace of "anything" somewhere else in my `.emacs'. > ;; open anything > (GNUEmacs > (when (require 'anything-config) ; loads `anything.el' too > > ;; source of candidates for anything > (setq anything-sources > (list anything-c-source-locate > anything-c-source-tracker-search > anything-c-source-bookmarks ;; 1 > anything-c-source-file-name-history ;; 2 > anything-c-source-buffers ;; 3 > anything-c-source-man-pages ;; 4 > anything-c-source-info-pages ;; 5 > )) > > ;; do not show more candidates than this limit from inidividual s= ources > (setq anything-candidate-number-limit 10) > > ;; make anything minibuffer better input latency > (defadvice anything-check-minibuffer-input (around sit-for activa= te) > (if (sit-for anything-idle-delay t) > ad-do-it)) > > ;; select anything > (global-set-key [(f3)] 'anything))) > > What is `GNUEmacs'? It's a macro to handle snippets of code that only work with GNU Emacs or with XEmacs: --8<---------------cut here---------------start------------->8--- (defmacro GNUEmacs (&rest body) "Execute any number of forms if running under GNU Emacs." (list 'if (not running-xemacs) (cons 'progn body))) (defmacro XEmacs (&rest body) "Execute any number of forms if running under XEmacs." (list 'if running-xemacs (cons 'progn body))) --8<---------------cut here---------------end--------------->8--- I surrounded the "anything" code with GNUEmacs because my first (very quick) trials showed me problems running `anything' under XEmacs. > Anyway, to me it looks all right. I suspect you have a broken > anything-c-source-info-pages lying around somewhere. Because this is > defvar'ed the broken value won't be overwritten when requiring > anything-config. Oops, I don't imagine I could have done that=A0;-) > What does `C-h v anything-c-source-info-pages' say? --8<---------------cut here---------------start------------->8--- anything-c-source-info-pages is a variable defined in `anything-config.el'. Its value is shown below. Documentation: Not documented as a variable. Value:=20 ((name . "Info Pages") (candidates lambda nil (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 "^[^:]+: " "" node-str)))) (requires-pattern . 2)) --8<---------------cut here---------------end--------------->8--- Hope it helps. Seb --=20 S=E9bastien=A0Vauban