--- 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.