View file File name : 50dictionaries-common.el Content :;; 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.