]>
Commit | Line | Data |
---|---|---|
1 | ;; -*-emacs-lisp-*- | |
2 | ;; | |
3 | ;; Emacs startup file, e.g. /etc/emacs/site-start.d/50hmcfgusb.el | |
4 | ;; for the Debian hmcfgusb package | |
5 | ;; | |
6 | ;; Originally contributed by Nils Naumann <naumann@unileoben.ac.at> | |
7 | ;; Modified by Dirk Eddelbuettel <edd@debian.org> | |
8 | ;; Adapted for dh-make by Jim Van Zandt <jrv@debian.org> | |
9 | ||
10 | ;; The hmcfgusb package follows the Debian/GNU Linux 'emacsen' policy and | |
11 | ;; byte-compiles its elisp files for each 'emacs flavor' (emacs19, | |
12 | ;; xemacs19, emacs20, xemacs20...). The compiled code is then | |
13 | ;; installed in a subdirectory of the respective site-lisp directory. | |
14 | ;; We have to add this to the load-path: | |
15 | (let ((package-dir (concat "/usr/share/" | |
16 | (symbol-name flavor) | |
17 | "/site-lisp/hmcfgusb"))) | |
18 | ;; If package-dir does not exist, the hmcfgusb package must have | |
19 | ;; removed but not purged, and we should skip the setup. | |
20 | (when (file-directory-p package-dir) | |
21 | (setq load-path (cons package-dir load-path)) | |
22 | (autoload 'hmcfgusb-mode "hmcfgusb-mode" | |
23 | "Major mode for editing hmcfgusb files." t) | |
24 | (add-to-list 'auto-mode-alist '("\\.hmcfgusb$" . hmcfgusb-mode)))) | |
25 |