equal
deleted
inserted
replaced
777 (message "yasnippet") |
777 (message "yasnippet") |
778 |
778 |
779 (setq my-yas-root-directory "~/.emacs.d/my-yas") |
779 (setq my-yas-root-directory "~/.emacs.d/my-yas") |
780 (setq yas/ignore-filenames-as-triggers t) |
780 (setq yas/ignore-filenames-as-triggers t) |
781 |
781 |
782 (eval-after-load 'yasnippet |
782 ;; (eval-after-load 'yasnippet |
783 '(progn |
783 ;; '(progn |
784 (cond |
784 ;; (cond |
785 ((listp yas/root-directory) (add-to-list 'yas/root-directory my-yas-root-directory)) |
785 ;; ((listp yas/root-directory) (add-to-list 'yas/root-directory my-yas-root-directory)) |
786 ((stringp yas/root-directory) (setq yas/root-directory (list my-yas-root-directory yas/root-directory))) |
786 ;; ((stringp yas/root-directory) (setq yas/root-directory (list my-yas-root-directory yas/root-directory))) |
787 (t (error "I expect that yas/root-directory is a list of string")) ) |
787 ;; (t (error "I expect that yas/root-directory is a list of string")) ) |
788 (mapc 'yas/load-directory yas/root-directory))) |
788 ;; (mapc 'yas/load-directory yas/root-directory))) |
789 |
789 |
790 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
790 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
791 (message "open file, ffap, dired") |
791 (message "open file, ffap, dired") |
792 |
792 |
793 (setq-default save-place t) |
793 (setq-default save-place t) |
1135 ;; Redefine path-separator to UNIX to update Info-directory-list. |
1135 ;; Redefine path-separator to UNIX to update Info-directory-list. |
1136 (let ( (path-separator ":") ) |
1136 (let ( (path-separator ":") ) |
1137 (require 'info) |
1137 (require 'info) |
1138 (info-initialize) |
1138 (info-initialize) |
1139 )) |
1139 )) |
|
1140 |
|
1141 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
1142 (message "info-lookup") |
|
1143 |
|
1144 ;; Info index nodes for automake under Debian. |
|
1145 (setq my-fix-for-automake-info-lookup |
|
1146 '(("(automake-1.11)Macro Index" nil |
|
1147 "^`" "['(]") |
|
1148 ("(automake-1.11)Variable Index" nil |
|
1149 "^`" "['(]") |
|
1150 ("(automake-1.11)General Index" nil |
|
1151 "^`" "['(]"))) |
|
1152 |
|
1153 ;; Add `my-fix-for-automake-info-lookup' entries to the end of doc-spec for |
|
1154 ;; some modes. |
|
1155 (eval-after-load 'info-look |
|
1156 '(progn |
|
1157 (mapc |
|
1158 (lambda (mode) |
|
1159 (let ( (doc-spec (info-lookup->doc-spec 'symbol mode)) ) |
|
1160 (mapc |
|
1161 (lambda (doc-spec-item) |
|
1162 (setcdr (last doc-spec) (list doc-spec-item))) |
|
1163 my-fix-for-automake-info-lookup))) |
|
1164 '(makefile-mode autoconf-mode)))) |
1140 |
1165 |
1141 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1166 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1142 (message "man, woman") |
1167 (message "man, woman") |
1143 |
1168 |
1144 ;; Assume that cygwin-mount already activated. |
1169 ;; Assume that cygwin-mount already activated. |