From: Jameson Graef Rollins Date: Thu, 24 Dec 2009 02:23:19 +0000 (-0500) Subject: rework Debian emacsen-startup script. X-Git-Tag: debian-0.1-1~19^2~15 X-Git-Url: https://git.notmuchmail.org/git?p=notmuch;a=commitdiff_plain;h=4989ef3d871f2510dcf9cf65e7fddd81deeff82e;ds=sidebyside rework Debian emacsen-startup script. --- diff --git a/debian/notmuch.emacsen-startup b/debian/notmuch.emacsen-startup index 73f387ec..25a527f5 100644 --- a/debian/notmuch.emacsen-startup +++ b/debian/notmuch.emacsen-startup @@ -2,18 +2,22 @@ ;; ;; Emacs startup file, e.g. /etc/emacs/site-start.d/50notmuch.el ;; for the Debian notmuch package -;; -;; Originally contributed by Nils Naumann -;; Modified by Dirk Eddelbuettel -;; Adapted for dh-make by Jim Van Zandt ;; The notmuch 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. -(if (not (file-exists-p "/usr/share/emacs/site-lisp/notmuch")) - (message "Package notmuch removed but not purged. Skipping setup.") +(cond + ((not (file-exists-p "/usr/share/emacs/site-lisp/notmuch")) + (message "Package notmuch removed but not purged. Skipping setup.")) + ((not (file-exists-p (concat "/usr/share/" + (symbol-name debian-emacs-flavor) + "/site-lisp/notmuch"))) + (message "Package notmuch not fully installed. Skipping setup.")) + (t (debian-pkg-add-load-path-item - (concat - "/usr/share/" (symbol-name debian-emacs-flavor) "/site-lisp/notmuch")) + (concat "/usr/share/" + (symbol-name debian-emacs-flavor) + "/site-lisp/notmuch")) + ))