Lines Matching +defs:default +defs:file +defs:name +defs:coding +defs:system
15 ;; This file is part of GNU Emacs.
28 ;; along with GNU Emacs; see the file COPYING. If not, write to the
33 ;; when this file is edited for release with GNU emacs.
44 ;; You particularly may want to change the default dictionary for your
46 ;; Most dictionary changes should be made in this file so all users can
48 ;; file. Use the variable `ispell-local-dictionary-alist' to specify
51 ;; Depending on the mail system you use, you may want to include these:
56 ;; Ispell has a TeX parser and a nroff parser (the default).
103 ;; prefixed by the comment characters). See the end of this file for
183 ;; A coding system is now required for all languages.
193 ;; Multibyte character coding support added for process interactions.
301 (defcustom ispell-choices-win-default-height 2
302 "*The default size of the `*Choices*' window, including mode line.
307 (defcustom ispell-program-name
308 (or (locate-file "aspell" exec-path exec-suffixes 'file-executable-p)
315 (cond ((file-exists-p "/usr/dict/web2") "/usr/dict/web2")
316 ((file-exists-p "/usr/share/dict/web2") "/usr/share/dict/web2")
317 ((file-exists-p "/usr/dict/words") "/usr/dict/words")
318 ((file-exists-p "/usr/lib/dict/words") "/usr/lib/dict/words")
319 ((file-exists-p "/usr/share/dict/words") "/usr/share/dict/words")
320 ((file-exists-p "/usr/share/lib/dict/words")
322 ((file-exists-p "/sys/dict") "/sys/dict")
325 :type '(choice file (const :tag "None" nil))
330 :type '(choice file (const :tag "None" nil))
365 (cond ((file-exists-p "/bin/look") "/bin/look")
366 ((file-exists-p "/usr/local/bin/look") "/usr/local/bin/look")
367 ((file-exists-p "/usr/bin/look") "/usr/bin/look")
370 This must be an absolute file name."
371 :type 'file
374 (defcustom ispell-look-p (file-exists-p ispell-look-command)
429 window system by evaluating the following on startup to set this variable:
430 (and window-system (condition-case () (require 'framepop) (error nil)))"
436 "*File name of your personal spelling dictionary, or nil.
437 If nil, the default personal dictionary, \"~/.ispell_DICTNAME\" is used,
438 where DICTNAME is the name of your default dictionary."
439 :type '(choice file
440 (const :tag "default" nil))
454 The value must be a string dictionary name,
461 is automatically set when defined in the file with either
464 (const :tag "default" nil))
480 (defcustom ispell-skip-html 'use-mode-name
483 guess whether SGML markup should be skipped according to the name of the
486 (const :tag "use-mode-name" use-mode-name))
501 (string :tag "Dictionary name")
502 (const :tag "default" nil))
513 (const :tag "default" nil))
514 (coding-system :tag "Coding System")))
524 '((nil ; default (English.aff)
637 ;; include Russian iso coding system too?
674 nil means the default dictionary.
704 have been configured in an Ispell affix file. (For example, umlauts
716 LANGUAGE.aff file \(e.g., english.aff\).")
746 "Ensure that `ispell-program-name' is valid and the correct version.
748 Otherwise returns the library directory name, if that is defined."
758 ;; avoid bugs when syntax of `.' changes in various default modes
759 (default-major-mode 'fundamental-mode)
760 (default-directory (or (and (boundp 'temporary-file-directory)
761 temporary-file-directory)
762 default-directory))
770 ispell-program-name nil t nil
773 (memq system-type '(ms-dos windows-nt)))
775 (file-name-nondirectory ispell-program-name)))
793 (error "%s exited with %s %s" ispell-program-name
806 ispell-program-name (car ispell-required-version)
829 "Like `call-process' but defend against bad `default-directory'."
830 (let ((default-directory default-directory))
831 (unless (and (file-directory-p default-directory)
832 (file-readable-p default-directory))
833 (setq default-directory (expand-file-name "~/")))
837 "Like `call-process-region' but defend against bad `default-directory'."
838 (let ((default-directory default-directory))
839 (unless (and (file-directory-p default-directory)
840 (file-readable-p default-directory))
841 (setq default-directory (expand-file-name "~/")))
847 ;;; because otherwise this file gets autoloaded every time Emacs starts
912 (ispell-call-process ispell-program-name nil t nil "dicts")
927 ;; Add a default entry
929 (default-dict
932 (push default-dict ispell-dictionary-alist))
945 (ispell-call-process ispell-program-name nil t nil "config" key)
948 (defun ispell-aspell-find-dictionary (dict-name)
949 ;; This returns nil if the data file does not exist.
951 ;; file does exist -- rms?
953 (and (string-match "^[[:alpha:]]+" dict-name)
954 (match-string 0 dict-name)))
955 (data-file
963 (insert-file-contents data-file)
979 (list dict-name
984 (list "-d" dict-name "--encoding=utf-8")
990 (file-error
996 (let ((aliases (file-expand-wildcards
1001 (dolist (alias-file aliases)
1003 (insert-file-contents alias-file)
1006 (let* ((aliasname (file-name-sans-extension
1007 (file-name-nondirectory alias-file)))
1021 (dict-list (cons "default" nil))
1022 name load-dict)
1024 (setq name (car dict)
1028 name
1033 (file-exists-p (concat ispell-library-directory
1034 "/" name ".hash"))
1035 (file-exists-p (concat ispell-library-directory "/" name ".has"))
1037 (or (file-exists-p (concat ispell-library-directory
1039 (file-exists-p (concat ispell-library-directory
1041 (setq dict-list (cons name dict-list))))
1051 :help "Supply explicit dictionary file name"))
1123 (current-menubar (or current-menubar default-menubar))
1144 (setq dicts (cons "default" nil)))
1145 (dolist (name dicts)
1149 (concat "Select " (capitalize name))
1150 (list 'ispell-change-dictionary name)
1178 "The name of the current dictionary, or nil for the default.
1183 "The name of the current personal dictionary, or nil for the default.
1195 (fboundp 'decode-coding-string)
1196 (ispell-get-coding-system))
1197 (decode-coding-string str (ispell-get-coding-system))
1259 (defun ispell-get-coding-system ()
1309 There can be multiple of these keywords in the file.")
1313 The keyword must be followed by a valid dictionary name, defined in
1324 "The keyword for overriding default Ispell parsing.
1339 ;; assume multiline uuencoded file? "\nM.*$"?
1344 ;; Matches e-mail addresses, file names, http addresses, etc. The
1355 ;; identification of the computer name, e.g.:
1416 If non-nil, the value must be a string, which is a file name.
1421 set when defined in the file with either `ispell-pdict-keyword' or the
1426 (defvar ispell-buffer-local-name nil
1427 "Contains the buffer name if local word definitions were used.
1430 (defvar ispell-parser 'use-mode-name
1432 Special value `use-mode-name' tries to guess using the name of `major-mode'.
1436 You can set this variable in hooks in your init file -- eg:
1487 ;; Asynchronous subprocesses aren't supported on this losing system.
1496 (default-major-mode 'fundamental-mode)
1505 (setq default-directory defdir)
1508 (let (coding-system-for-read coding-system-for-write status)
1511 (setq coding-system-for-read (ispell-get-coding-system)
1512 coding-system-for-write (ispell-get-coding-system)))
1519 ispell-program-name nil
1560 ;; characters that is supported by buffer-file-coding-system.
1660 (ispell-add-per-file-word-list (car poss)))
1796 (line ispell-choices-win-default-height)
1801 ispell-choices-win-default-height))
1812 " -- dict: " (or ispell-current-dictionary "default")
1813 " -- prog: " (file-name-nondirectory ispell-program-name)))
1978 line ispell-choices-win-default-height)
2081 (if (< line ispell-choices-win-default-height)
2083 (- ispell-choices-win-default-height
2093 (ispell-overlay-window (max line ispell-choices-win-default-height)))
2189 Optional second argument contains the dictionary to use; the default is
2206 (message "Starting \"%s\" process..." (file-name-nondirectory prog))
2226 (file-name-nondirectory prog) status)
2253 ;;; This is the case when a process dies or fails. The default behavior
2370 window-system))
2384 (and (featurep 'xemacs) window-system))
2486 (let ((default-directory default-directory)
2488 (unless (and (file-directory-p default-directory)
2489 (file-readable-p default-directory))
2490 ;; Defend against bad `default-directory'.
2491 (setq default-directory (expand-file-name "~/")))
2506 (expand-file-name ispell-current-personal-dictionary)))))
2510 (setq ispell-buffer-local-name nil)
2515 "ispell" nil ispell-program-name
2532 ;; we're in the same default directory!
2534 (equal ispell-process-directory default-directory)))
2539 (or ispell-local-dictionary ispell-dictionary "default"))
2542 ispell-process-directory default-directory
2552 (fboundp 'set-process-coding-system))
2553 (set-process-coding-system ispell-process (ispell-get-coding-system)
2554 (ispell-get-coding-system)))
2560 (error "%s did not output version line" ispell-program-name))
2630 (if (equal dict "default") (setq dict nil))
2636 ispell-dictionary "default")))
2638 ispell-dictionary "default"))
2639 ;; Specified dictionary is the default already. Could reload
2648 ;; set default dictionary
2688 (buffer-name) "region")
2689 (file-name-nondirectory ispell-program-name)
2690 (or ispell-current-dictionary "default"))
2708 (file-name-nondirectory ispell-program-name)
2709 (or ispell-current-dictionary "default")))
2786 (file-name-nondirectory ispell-program-name)
2787 (or ispell-current-dictionary "default"))))))
2895 Return value `nil' if file with large attachments are saved.
2993 (let ((coding (ispell-get-coding-system))
2996 (equal (encode-coding-string string coding)
2997 (encode-coding-string (buffer-substring-no-properties
2999 coding)))))
3086 (ispell-add-per-file-word-list (car poss)))
3138 (file-name-nondirectory ispell-program-name)
3139 (or ispell-current-dictionary "default"))))
3192 (buffer-name (marker-buffer ispell-region-end)))
3257 (ispell-add-per-file-word-list word))
3488 in your .emacs file:
3520 (default-prefix ; Vanilla cite prefix (just used for cite-regexp)
3540 default-prefix))
3552 (t default-prefix)))
3648 Overrides the default parsing mode.
3655 (or (and (eq ispell-parser 'use-mode-name)
3657 (symbol-name major-mode)))
3668 (downcase (symbol-name major-mode)))))))
3669 ;; Set default extended character mode for given buffer, if any.
3735 (if (and ispell-buffer-local-name
3736 (not (equal ispell-buffer-local-name (buffer-name))))
3744 (or ispell-buffer-local-name
3745 (setq ispell-buffer-local-name (buffer-name)))
3762 (defun ispell-add-per-file-word-list (word)
3763 "Add WORD to the per-file word list."
3764 (or ispell-buffer-local-name
3765 (setq ispell-buffer-local-name (buffer-name)))
3802 ;;; mode: name(-mode)
3819 ;;; The following places this file in nroff parsing and extended char modes.