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