first commit
This commit is contained in:
57
etc_org/emacs/site-start.d/00debian-vars.el
Normal file
57
etc_org/emacs/site-start.d/00debian-vars.el
Normal file
@ -0,0 +1,57 @@
|
||||
;; 00debian-vars.el
|
||||
;;
|
||||
;; Initialize some emacs variables from debian policy files.
|
||||
;;
|
||||
;; Copyright (C) 1997, Frederic Lepied <Frederic.Lepied@sugix.frmug.org>
|
||||
;;
|
||||
;; original Author: Frederic Lepied <Frederic.Lepied@sugix.frmug.org>
|
||||
;; enhanced and documented by: Mark Eichin <eichin@kitten.gen.ma.us>
|
||||
|
||||
;;=============================================================================
|
||||
;; Autoloaded section.
|
||||
;;=============================================================================
|
||||
|
||||
|
||||
;;;###
|
||||
|
||||
(eval-when-compile
|
||||
;; Quiet byte compiler
|
||||
(defvar gnus-nntpserver-file))
|
||||
|
||||
;;;***
|
||||
|
||||
|
||||
;;=============================================================================
|
||||
;; Configuration section.
|
||||
;;=============================================================================
|
||||
(defun debian-file->string (name &optional func)
|
||||
"Convert a file into a string"
|
||||
(interactive "fFile name : ")
|
||||
(let ((filename (expand-file-name name)))
|
||||
(if (not (file-readable-p filename))
|
||||
nil
|
||||
(with-temp-buffer
|
||||
;; Do not run any user `find-file-hooks'
|
||||
(insert-file-contents-literally filename)
|
||||
(if func
|
||||
(funcall func))
|
||||
(buffer-string)))))
|
||||
|
||||
(defun debian-clean-mailname ()
|
||||
(while (search-forward "\n" nil t)
|
||||
(replace-match "" nil t)))
|
||||
|
||||
;; Particular variables, and their justification:
|
||||
;; policy/ch4.html, 4.3 Mail processing on Debian systems, /etc/mailname
|
||||
;; policy/ch-binarypkg.html, 3.5 Maintainer scripts, /etc/news/server
|
||||
|
||||
(let ((mailname
|
||||
(debian-file->string "/etc/mailname" (function debian-clean-mailname))))
|
||||
(if mailname
|
||||
(setq mail-host-address mailname)))
|
||||
|
||||
;; Don't need to check NNTPSERVER for override, gnus does that for us.
|
||||
(if (file-readable-p "/etc/news/server")
|
||||
(setq gnus-nntpserver-file "/etc/news/server"))
|
||||
|
||||
;;; 00debian-vars.el ends here
|
17
etc_org/emacs/site-start.d/50autoconf.el
Normal file
17
etc_org/emacs/site-start.d/50autoconf.el
Normal file
@ -0,0 +1,17 @@
|
||||
;; -*-emacs-lisp-*-
|
||||
;;
|
||||
;; Emacs startup file for the Debian GNU/Linux autoconf package
|
||||
|
||||
(if (not (file-exists-p "/usr/share/emacs/site-lisp/autoconf"))
|
||||
(message "Package autoconf removed but not purged. Skipping setup.")
|
||||
;; To avoid a dependency on emacsen for our modes and avoid having a
|
||||
;; separate autoconf-el package, we don't byte-compile the .el
|
||||
;; files, so we only need to add a source directory to load-path.
|
||||
(debian-pkg-add-load-path-item
|
||||
(concat "/usr/share/emacs/site-lisp/autoconf"))
|
||||
|
||||
;; autoloads for autotest-mode.el
|
||||
(autoload 'autotest-mode "autotest-mode"
|
||||
"Major mode for editing autotest files." t)
|
||||
(setq auto-mode-alist
|
||||
(cons '("\\.at\\'" . autotest-mode) auto-mode-alist)))
|
40
etc_org/emacs/site-start.d/50dictionaries-common.el
Normal file
40
etc_org/emacs/site-start.d/50dictionaries-common.el
Normal file
@ -0,0 +1,40 @@
|
||||
;; File: startup.el.in
|
||||
;; Description: Emacsen startup for dictionaries-common in Debian
|
||||
;; Authors: Rafael Laboissi<73>re <rafael@debian.org>
|
||||
;; Agustin Martin <agmartin@debian.org>
|
||||
;; Created on: Fri Oct 22 09:48:21 CEST 1999
|
||||
|
||||
(let ((skip-emacs-flavors-list '(emacs19
|
||||
emacs20
|
||||
emacs21
|
||||
emacs22
|
||||
emacs-snapshot))
|
||||
(debian-dict-entries "/var/cache/dictionaries-common/emacsen-ispell-dicts.el"))
|
||||
(if (member debian-emacs-flavor skip-emacs-flavors-list)
|
||||
(message "Skipping dictionaries-common setup for %s" debian-emacs-flavor)
|
||||
|
||||
(debian-pkg-add-load-path-item
|
||||
(concat "/usr/share/"
|
||||
(symbol-name debian-emacs-flavor)
|
||||
"/site-lisp/dictionaries-common"))
|
||||
|
||||
(autoload 'flyspell-word "flyspell" nil t)
|
||||
(autoload 'flyspell-mode "flyspell" nil t)
|
||||
(autoload 'flyspell-prog-mode "flyspell" nil t)
|
||||
|
||||
;; Load Debian emacsen cache file, with entries for installed dictionaries
|
||||
;; This might result in a call to debian-ispell, so do this only if
|
||||
;; a) It exists, that is, package is not removed.
|
||||
;; b) Not in installations under dpkg control, otherwise we might get some
|
||||
;; bogus errors on installation because of #132355 and friends.
|
||||
(if (file-exists-p "/usr/share/emacs/site-lisp/dictionaries-common/debian-ispell.el")
|
||||
(if (getenv "DPKG_RUNNING_VERSION")
|
||||
(message "Info: Skip debian-el loading if run under dpkg control.")
|
||||
(let ((coding-system-for-read 'raw-text)) ;; Read these as data streams
|
||||
(load "debian-ispell" t)
|
||||
(load debian-dict-entries t)))
|
||||
(message "Info: Package dictionaries-common removed but not purged."))))
|
||||
|
||||
;;; Previous code for loading ispell.el and refreshing spell-checking
|
||||
;;; pulldown menus has been removed from this file since it should no
|
||||
;;; longer be needed.
|
8
etc_org/emacs/site-start.el
Normal file
8
etc_org/emacs/site-start.el
Normal file
@ -0,0 +1,8 @@
|
||||
;; Emacsen independent startup file. All of the various installed
|
||||
;; flavors of emacs (emacs22, emacs23, xemacs21) will load this file
|
||||
;; at startup. Make sure any code you put here is emacs flavor
|
||||
;; independent.
|
||||
|
||||
;; Package maintainers: do not have Debian packages edit this file.
|
||||
;; See /usr/share/doc/emacsen-common/debian-emacs-policy.gz for the
|
||||
;; proper way to handle Emacs package initialization code.
|
Reference in New Issue
Block a user