1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
;; -*- Emacs-Lisp -*-
;;
;; Copyright Holder: HIRAOKA Kazuyuki <khi@users.sourceforge.jp>
;; Modifier: Yuki Fujimura <ykfj@users.sourceforge.jp>
;;
;; First, try followed.
;;
;; $ HOWM_TEST=t emacs -q -no-site-file -l /usr/share/doc/howm/sample/dot.emacs
;;
;; If it reproduces, report to upstream author.
;;
;; If it it not reproduces, its source of trouble will be your .emacs.
;;
;; You may pursue the exact cause of bug, and properly report to
;; upstream author or package maintainer.
;;
(let ((flavor debian-emacs-flavor))
(load-file "/etc/emacs/site-start.d/50howm.el"))
(setq debug-on-error t)
(setq inhibit-startup-message t)
(setq howm-sample-directory "/usr/share/doc/howm/sample")
(setq howm-directory (expand-file-name (make-temp-name "howm-test-")
(or (getenv "TMPDIR")
(getenv "TEMP")
(getenv "TMP")
"/tmp")))
(setq howm-keyword-file (expand-file-name ".howm-keys" howm-directory))
(setq howm-history-file (expand-file-name ".howm-history" howm-directory))
;(setq howm-menu-lang 'ja)
(setq howm-history-limit nil) ;; Don't erase my ~/.howm-history.
(require 'howm)
(let ((howm-version (concat howm-version " (Debian Unofficial Package)")))
(make-directory howm-directory)
(call-process "cp" nil nil nil
"-rp" howm-sample-directory howm-directory)
(add-hook 'kill-emacs-hook
(lambda ()
(call-process "rm" nil nil nil
"-rf" howm-directory)
))
(howm-test))
|
