equal
deleted
inserted
replaced
1452 |
1452 |
1453 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1453 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1454 (message "info-lookup") |
1454 (message "info-lookup") |
1455 |
1455 |
1456 ;; Info index nodes for automake under Debian. |
1456 ;; Info index nodes for automake under Debian. |
1457 (setq my-fix-for-automake-info-lookup |
1457 (defvar my-fix-for-automake-info-lookup |
1458 '(("(automake-1.11)Macro Index" nil |
1458 '(("(automake-1.11)Macro Index" nil |
1459 "^`" "['(]") |
1459 "^`" "['(]") |
1460 ("(automake-1.11)Variable Index" nil |
1460 ("(automake-1.11)Variable Index" nil |
1461 "^`" "['(]") |
1461 "^`" "['(]") |
1462 ("(automake-1.11)General Index" nil |
1462 ("(automake-1.11)General Index" nil |
1463 "^`" "['(]"))) |
1463 "^`" "['(]"))) |
1464 |
1464 |
1465 ;; Add `my-fix-for-automake-info-lookup' entries to the end of doc-spec for |
1465 ;; Add `my-fix-for-automake-info-lookup' entries to the end of doc-spec for |
1466 ;; some modes. |
1466 ;; some modes. |
1467 (my--eval-after-load info-look |
1467 (my--eval-after-load info-look |
1468 (mapc |
1468 (mapc |
1551 org-reverse-note-order t |
1551 org-reverse-note-order t |
1552 org-hide-leading-stars t |
1552 org-hide-leading-stars t |
1553 org-tags-column 64 |
1553 org-tags-column 64 |
1554 org-archive-save-context-info '(time file olpath todo itags) |
1554 org-archive-save-context-info '(time file olpath todo itags) |
1555 ) |
1555 ) |
1556 (setq my-org-agenda-todo-file (concat org-directory "/TODO.org")) |
1556 (defvar my-org-agenda-todo-file (concat org-directory "/TODO.org")) |
1557 (setq my-org-agenda-note-file (concat org-directory "/NOTE.org")) |
1557 (defvar my-org-agenda-note-file (concat org-directory "/NOTE.org")) |
1558 (setq org-agenda-file-regexp "\\`[^.#].*[^_]\\.org\\'" |
1558 (setq org-agenda-file-regexp "\\`[^.#].*[^_]\\.org\\'" |
1559 org-agenda-files (list org-directory)) |
1559 org-agenda-files (list org-directory)) |
1560 ;; (setq my-org-agenda-learning-file (concat org-directory "/LEARNING.org")) |
1560 ;; (setq my-org-agenda-learning-file (concat org-directory "/LEARNING.org")) |
1561 ;; (setq org-agenda-files `(,my-org-agenda-todo-file ,my-org-agenda-note-file ,my-org-agenda-learning-file)) |
1561 ;; (setq org-agenda-files `(,my-org-agenda-todo-file ,my-org-agenda-note-file ,my-org-agenda-learning-file)) |
1562 (define-key global-map "\C-va" 'org-agenda) |
1562 (define-key global-map "\C-va" 'org-agenda) |
1668 ( ,(concat "\\<\\(" (regexp-opt '("TODO" "FIX" "FIXME" "HACK" "XXX")) ":?\\)\\>") 1 'font-lock-warning-face t) |
1668 ( ,(concat "\\<\\(" (regexp-opt '("TODO" "FIX" "FIXME" "HACK" "XXX")) ":?\\)\\>") 1 'font-lock-warning-face t) |
1669 ;; 64 times, for highlight C-u C-u C-u <key> |
1669 ;; 64 times, for highlight C-u C-u C-u <key> |
1670 ;; ("\\([^[:space:]]\\)\\1\\{63\\}" 0 'my-contrasty-face t) |
1670 ;; ("\\([^[:space:]]\\)\\1\\{63\\}" 0 'my-contrasty-face t) |
1671 )) |
1671 )) |
1672 ) |
1672 ) |
1673 |
|
1674 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
1675 (message "fortune") |
|
1676 (setq fortune-file "~/XXX") |
|
1677 |
1673 |
1678 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1674 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1679 (message "mail, message") |
1675 (message "mail, message") |
1680 |
1676 |
1681 (eval-when 'compile (require 'message)) |
1677 (eval-when 'compile (require 'message)) |