From 4989ef3d871f2510dcf9cf65e7fddd81deeff82e Mon Sep 17 00:00:00 2001 From: Jameson Graef Rollins <jrollins@finestructure.net> Date: Wed, 23 Dec 2009 21:23:19 -0500 Subject: [PATCH] rework Debian emacsen-startup script. --- debian/notmuch.emacsen-startup | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) 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 <naumann@unileoben.ac.at> -;; Modified by Dirk Eddelbuettel <edd@debian.org> -;; Adapted for dh-make by Jim Van Zandt <jrv@debian.org> ;; 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")) + )) -- 2.45.2