# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1351202554 -10800
# Node ID eb7992880db9feeffa89f2a8bd68030b59071bf0
# Parent  78ae3a2419f19482427259c7fcd1684b0ace6b33
Disable yas. Add info-lookup fix for automake manual.

diff -r 78ae3a2419f1 -r eb7992880db9 .emacs-my
--- a/.emacs-my	Wed Oct 24 22:45:25 2012 +0300
+++ b/.emacs-my	Fri Oct 26 01:02:34 2012 +0300
@@ -779,13 +779,13 @@
 (setq my-yas-root-directory "~/.emacs.d/my-yas")
 (setq yas/ignore-filenames-as-triggers t)
 
-(eval-after-load 'yasnippet
-  '(progn
-     (cond
-      ((listp yas/root-directory) (add-to-list 'yas/root-directory my-yas-root-directory))
-      ((stringp yas/root-directory) (setq yas/root-directory (list my-yas-root-directory yas/root-directory)))
-      (t (error "I expect that yas/root-directory is a list of string")) )
-     (mapc 'yas/load-directory yas/root-directory)))
+;; (eval-after-load 'yasnippet
+;;   '(progn
+;;      (cond
+;;       ((listp yas/root-directory) (add-to-list 'yas/root-directory my-yas-root-directory))
+;;       ((stringp yas/root-directory) (setq yas/root-directory (list my-yas-root-directory yas/root-directory)))
+;;       (t (error "I expect that yas/root-directory is a list of string")) )
+;;      (mapc 'yas/load-directory yas/root-directory)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "open file, ffap, dired")
@@ -1139,6 +1139,31 @@
     ))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "info-lookup")
+
+;; Info index nodes for automake under Debian.
+(setq my-fix-for-automake-info-lookup
+      '(("(automake-1.11)Macro Index" nil
+         "^`" "['(]")
+        ("(automake-1.11)Variable Index" nil
+         "^`" "['(]")
+        ("(automake-1.11)General Index" nil
+         "^`" "['(]")))
+
+;; Add `my-fix-for-automake-info-lookup' entries to the end of doc-spec for
+;; some modes.
+(eval-after-load 'info-look
+  '(progn
+     (mapc
+      (lambda (mode)
+        (let ( (doc-spec (info-lookup->doc-spec 'symbol mode)) )
+          (mapc
+           (lambda (doc-spec-item)
+             (setcdr (last doc-spec) (list doc-spec-item)))
+           my-fix-for-automake-info-lookup)))
+      '(makefile-mode autoconf-mode))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "man, woman")
 
 ;; Assume that cygwin-mount already activated.