You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

44 lines
1.8 KiB
EmacsLisp

2 years ago
;; File: startup.el.in
;; Description: Emacsen startup for dictionaries-common in Debian
;; Authors: Rafael Laboissiè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
(concat "/usr/share/"
(symbol-name debian-emacs-flavor)
"/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.