Codebase list findbugs / d154e27 debian / emacsen-startup.ex
d154e27

Tree @d154e27 (Download .tar.gz)

emacsen-startup.ex @d154e27raw · history · blame

;; -*-emacs-lisp-*-
;;
;; Emacs startup file, e.g.  /etc/emacs/site-start.d/50findbugs.el
;; for the Debian findbugs package
;;
;; Originally contributed by Nils Naumann <naumann@unileoben.ac.at>
;; Modified by Dirk Eddelbuettel <edd@debian.org>
;; Adapted for dh-make by Jim Van Zandt <jrv@debian.org>

;; The findbugs package follows the Debian/GNU Linux 'emacsen' policy and
;; byte-compiles its elisp files for each 'emacs flavor' (emacs19,
;; xemacs19, emacs20, xemacs20...).  The compiled code is then
;; installed in a subdirectory of the respective site-lisp directory.
;; We have to add this to the load-path:
(let ((package-dir (concat "/usr/share/"
                           (symbol-name debian-emacs-flavor)
                           "/site-lisp/findbugs")))
;; If package-dir does not exist, the findbugs package must have
;; removed but not purged, and we should skip the setup.
  (when (file-directory-p package-dir)
    (if (fboundp 'debian-pkg-add-load-path-item)
        (debian-pkg-add-load-path-item package-dir)
      (setq load-path (cons package-dir load-path)))
    (autoload 'findbugs-mode "findbugs-mode"
      "Major mode for editing findbugs files." t)
    (add-to-list 'auto-mode-alist '("\\.findbugs$" . findbugs-mode))))