diff options
| author | Allan Dixon Jr. <allandixonjr@gmail.com> | 2016-11-06 05:17:47 -0500 |
|---|---|---|
| committer | Allan Dixon Jr. <allandixonjr@gmail.com> | 2016-11-06 05:17:47 -0500 |
| commit | d0fe60cd08290487e9cecb81d7bef58662753098 (patch) | |
| tree | ac60ee1787a8a0f7eba338d340158c38b41f5af0 /debian/emacsen-startup | |
| parent | 95b1e9489b8bed332041631a1545b43f26a1503b (diff) | |
| parent | b944f50dbcb3960274a80de2369f6faef326ba44 (diff) | |
a2ps (1:4.14-2) unstable; urgency=medium
* QA upload.
* Ack for NMU.
* Add debian/source/options to allow to build twice.
* Bump Standards-Version to 3.9.8.
* Fix, update the debian/watch file.
* Set Debian QA Group as maintainer. (see #840888)
* Run wrap-and-sort.
[dgit import unpatched a2ps 1:4.14-2]
Diffstat (limited to 'debian/emacsen-startup')
| -rw-r--r-- | debian/emacsen-startup | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/debian/emacsen-startup b/debian/emacsen-startup new file mode 100644 index 0000000..2075ee3 --- /dev/null +++ b/debian/emacsen-startup @@ -0,0 +1,47 @@ +;; -*-emacs-lisp-*- +;; +;; Emacs startup file for the Debian a2ps 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@vanzandt.mv.com> + +;; The a2ps 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: +(setq load-path (cons (concat "/usr/share/" + (symbol-name flavor) + "/site-lisp/a2ps") load-path)) +;; a2ps +(autoload 'a2ps-mode "a2ps" nil t) +(setq auto-mode-alist + (cons '(".*\\.a2ps$" . a2ps-mode) + auto-mode-alist)) + +;; a2ps-print +(autoload 'a2ps-buffer "a2ps-print" + "Print buffer contents as with Unix command `a2ps'. + `a2ps-switches' is a list of extra switches (strings) to pass to a2ps." + t) +(autoload 'a2ps-region "a2ps-print" + "Print region contents as with Unix command `a2ps'. + `a2ps-switches' is a list of extra switches (strings) to pass to a2ps." + t) + +(if (featurep 'xemacs) + (progn + (global-set-key 'f22 'a2ps-buffer) + (global-set-key '(shift f22) 'a2ps-region-1) + (add-menu-button '("File") ["a2ps-print" a2ps-buffer "--"]) + ) + (progn + (global-set-key [f22] 'a2ps-buffer) + (global-set-key [S-f22] 'a2ps-region-1) + (define-key-after menu-bar-files-menu [a2ps-print] + '(menu-item "a2ps" a2ps-buffer :help "Print with a2ps") + 'ps-print-region) + ) + ) + |