rework Debian emacsen-startup script.
authorJameson Graef Rollins <jrollins@finestructure.net>
Thu, 24 Dec 2009 02:23:19 +0000 (21:23 -0500)
committerJameson Graef Rollins <jrollins@finestructure.net>
Thu, 24 Dec 2009 02:42:04 +0000 (21:42 -0500)
debian/notmuch.emacsen-startup

index 73f387ec474ea23c27064bed38301a27aff46277..25a527f5fc8d99244329a1530feafee881861569 100644 (file)
@@ -2,18 +2,22 @@
 ;;
 ;; Emacs startup file, e.g.  /etc/emacs/site-start.d/50notmuch.el
 ;; for the Debian notmuch package
 ;;
 ;; 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.
 
 
 ;; 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
   (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"))
+  ))