From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Andy Wingo Newsgroups: gmane.lisp.guile.user Subject: Re: getting help for your guile libraries in emacs Date: Sun, 25 Nov 2007 19:40:03 +0100 Message-ID: <87prxygoe4.fsf@pobox.com> References: <87odditcl3.fsf@pobox.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1196016021 7358 80.91.229.12 (25 Nov 2007 18:40:21 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sun, 25 Nov 2007 18:40:21 +0000 (UTC) To: guile-user Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Sun Nov 25 19:40:28 2007 Return-path: Envelope-to: guile-user@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1IwMP5-0004tv-KP for guile-user@m.gmane.org; Sun, 25 Nov 2007 19:40:27 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IwMOq-0000aM-QQ for guile-user@m.gmane.org; Sun, 25 Nov 2007 13:40:12 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1IwMOn-0000a9-4h for guile-user@gnu.org; Sun, 25 Nov 2007 13:40:09 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1IwMOk-0000Zq-Q9 for guile-user@gnu.org; Sun, 25 Nov 2007 13:40:08 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IwMOk-0000Zn-Jd for guile-user@gnu.org; Sun, 25 Nov 2007 13:40:06 -0500 Original-Received: from ambient.dashsystems.com ([216.27.85.7] helo=kettle.ambient-hosting.net) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1IwMOk-00065B-6N for guile-user@gnu.org; Sun, 25 Nov 2007 13:40:06 -0500 Original-Received: from localhost.localdomain (ambient-hosting.net [10.1.6.1]) by kettle.ambient-hosting.net (Postfix) with ESMTP id 8CA62880BC for ; Sun, 25 Nov 2007 13:40:04 -0500 (EST) Original-Received: by localhost.localdomain (Postfix, from userid 1000) id 72D121182DA; Sun, 25 Nov 2007 19:40:03 +0100 (CET) In-Reply-To: <87odditcl3.fsf@pobox.com> (Andy Wingo's message of "Sun\, 25 Nov 2007 19\:16\:40 +0100") User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.1.50 (gnu/linux) X-detected-kernel: by monty-python.gnu.org: Linux 2.4-2.6 X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: guile-user-bounces+guile-user=m.gmane.org@gnu.org Errors-To: guile-user-bounces+guile-user=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.user:6297 Archived-At: On Sun 25 Nov 2007 19:16, Andy Wingo writes: > In your .emacs: So, turns out there was a typo, a missing definition for mapcan (?), and a lack of a require statement. Try this: (require 'info-look) (setq scheme-mode-doc-specs nil) (setq Info-additional-directory-list (list "~/src/guile-1.8/doc/ref" "~/src/guile-1.8/doc/goops")) (setq scheme-mode-doc-specs '(("(guile)Procedure Index" nil "^ -+ .*: " " ") ("(guile)Variable Index" nil "^ -+ .*: " " ") ("(guile)R5RS Index" nil "^ -+ .*: " " ") ("(goops)Function and Variable Index" nil "^ -+ .*: " " "))) (setq guile-gnome-platform-dir "~/src/guile-gnome/platform/") (setq guile-gnome-platform-doc-paths '("glib/doc/gobject" "glib/doc/glib" "atk/doc" "pango/doc/pango" "pango/doc/pangocairo" "gtk/doc/gdk" "gtk/doc/gtk" "libglade/doc" "gnome-vfs/doc" "libgnome/doc" "libgnomeui/doc" "libgnomecanvas/doc" "gconf/doc")) (setq guile-gnome-platform-doc-names (mapcar (lambda (x) (string-match "^\\([a-z0-9-]+\\)/doc/?\\([a-z0-9-]+\\)?$" x) (or (match-string 2 x) (match-string 1 x))) guile-gnome-platform-doc-paths)) (if guile-gnome-platform-dir (nconc Info-additional-directory-list (mapcar (lambda (path) (concat guile-gnome-platform-dir path)) guile-gnome-platform-doc-paths))) (defun mapcan (f l) (apply 'nconc (mapcar f l))) (nconc scheme-mode-doc-specs (mapcan (lambda (wrapset) (list (list (concat "(guile-gnome-" wrapset ")Type Index") nil "^ -+ .*: " " ") (list (concat "(guile-gnome-" wrapset ")Function Index") nil "^ -+ .*: " " "))) guile-gnome-platform-doc-names)) (info-lookup-add-help :mode 'scheme-mode :regexp "[^()`',\" \t\n]+" :ignore-case nil :doc-spec scheme-mode-doc-specs) Cheers, Andy -- http://wingolog.org/ _______________________________________________ Guile-user mailing list Guile-user@gnu.org http://lists.gnu.org/mailman/listinfo/guile-user