Mercurial > libpst
annotate debian/emacsen-startup.ex @ 103:0af0bbe166e1
create dummy top-of-folder descriptor if needed for corrupt pst files
author | Carl Byington <carl@five-ten-sg.com> |
---|---|
date | Tue, 07 Oct 2008 10:45:50 -0700 |
parents | 535075b4d261 |
children |
rev | line source |
---|---|
78
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
1 ;; -*-emacs-lisp-*- |
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
2 ;; |
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
3 ;; Emacs startup file, e.g. /etc/emacs/site-start.d/50libpst.el |
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
4 ;; for the Debian libpst package |
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
5 ;; |
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
6 ;; Originally contributed by Nils Naumann <naumann@unileoben.ac.at> |
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
7 ;; Modified by Dirk Eddelbuettel <edd@debian.org> |
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
8 ;; Adapted for dh-make by Jim Van Zandt <jrv@debian.org> |
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
9 |
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
10 ;; The libpst package follows the Debian/GNU Linux 'emacsen' policy and |
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
11 ;; byte-compiles its elisp files for each 'emacs flavor' (emacs19, |
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
12 ;; xemacs19, emacs20, xemacs20...). The compiled code is then |
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
13 ;; installed in a subdirectory of the respective site-lisp directory. |
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
14 ;; We have to add this to the load-path: |
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
15 (let ((package-dir (concat "/usr/share/" |
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
16 (symbol-name flavor) |
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
17 "/site-lisp/libpst"))) |
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
18 ;; If package-dir does not exist, the libpst package must have |
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
19 ;; removed but not purged, and we should skip the setup. |
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
20 (when (file-directory-p package-dir) |
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
21 (setq load-path (cons package-dir load-path)) |
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
22 (autoload 'libpst-mode "libpst-mode" |
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
23 "Major mode for editing libpst files." t) |
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
24 (add-to-list 'auto-mode-alist '("\\.libpst$" . libpst-mode)))) |
535075b4d261
Patch from Joachim Metz for debian packaging, and fix for incorrect length on lz decompression.
Carl Byington <carl@five-ten-sg.com>
parents:
diff
changeset
|
25 |