projects / hmcfgusb / blame
| Commit | Line | Data |
|---|---|---|
| b5850466 J |
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 |