PageRenderTime 7ms CodeModel.GetById 1ms app.highlight 4ms RepoModel.GetById 1ms app.codeStats 0ms

/debian/emacsen-startup

http://github.com/tybor/Liberty
#! | 26 lines | 25 code | 1 blank | 0 comment | 0 complexity | b1c74aac04fa021583e6dc88a2098a7a MD5 | raw file
 1;; -*-emacs-lisp-*-
 2;;
 3;; Emacs startup file, e.g.  /etc/emacs/site-start.d/50libertyeiffel.el
 4;; for the Debian libertyeiffel 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 libertyeiffel 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/libertyeiffel")))
18;; If package-dir does not exist, the libertyeiffel 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 'eiffel-mode "eiffel"
23      "Major mode for editing Liberty Eiffel files." t)
24    (add-to-list 'auto-mode-alist '("\\.e$" . eiffel-mode))
25    (add-to-list 'auto-mode-alist '("\\.se$" . eiffel-mode))
26    (add-to-list 'auto-mode-alist '("\\.ace$" . eiffel-mode))))