diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/allout.el | 138 | ||||
| -rw-r--r-- | lisp/battery.el | 34 | ||||
| -rw-r--r-- | lisp/chistory.el | 24 | ||||
| -rw-r--r-- | lisp/cmuscheme.el | 42 | ||||
| -rw-r--r-- | lisp/compare-w.el | 19 | ||||
| -rw-r--r-- | lisp/docref.el | 34 | ||||
| -rw-r--r-- | lisp/dos-fns.el | 22 | ||||
| -rw-r--r-- | lisp/follow.el | 43 | ||||
| -rw-r--r-- | lisp/shadowfile.el | 36 | ||||
| -rw-r--r-- | lisp/tempo.el | 29 | ||||
| -rw-r--r-- | lisp/textmodes/ispell4.el | 69 | ||||
| -rw-r--r-- | lisp/tmm.el | 31 | ||||
| -rw-r--r-- | lisp/vcursor.el | 35 | ||||
| -rw-r--r-- | lisp/xscheme.el | 52 |
14 files changed, 427 insertions, 181 deletions
diff --git a/lisp/allout.el b/lisp/allout.el index 1bc9e5f41bb..515219a8118 100644 --- a/lisp/allout.el +++ b/lisp/allout.el @@ -61,6 +61,10 @@ (provide 'allout) ;;;_* USER CUSTOMIZATION VARIABLES: +(defgroup allout nil + "Extensive outline mode for use alone and with other modes." + :prefix "outline-" + :group 'outlines) ;;;_ + Layout, Mode, and Topic Header Configuration @@ -122,17 +126,19 @@ is modulo the setting of `outline-use-mode-specific-leader', which see.") (make-variable-buffer-local 'outline-layout) ;;;_ = outline-header-prefix -(defvar outline-header-prefix "." +(defcustom outline-header-prefix "." "*Leading string which helps distinguish topic headers. Outline topic header lines are identified by a leading topic header prefix, which mostly have the value of this var at their front. \(Level 1 topics are exceptions. They consist of only a single character, which is typically set to the outline-primary-bullet. Many -outlines start at level 2 to avoid this discrepancy.") +outlines start at level 2 to avoid this discrepancy." + :type 'string + :group 'allout) (make-variable-buffer-local 'outline-header-prefix) ;;;_ = outline-primary-bullet -(defvar outline-primary-bullet "*" +(defcustom outline-primary-bullet "*" "Bullet used for top-level outline topics. Outline topic header lines are identified by a leading topic header @@ -142,10 +148,12 @@ var and the respective outline-*-bullets-string vars. The value of an asterisk (`*') provides for backwards compatibility with the original emacs outline mode. See outline-plain-bullets-string and outline-distinctive-bullets-string for the range of available -bullets.") +bullets." + :type 'string + :group 'allout) (make-variable-buffer-local 'outline-primary-bullet) ;;;_ = outline-plain-bullets-string -(defvar outline-plain-bullets-string (concat outline-primary-bullet +(defcustom outline-plain-bullets-string (concat outline-primary-bullet "+-:.;,") "*The bullets normally used in outline topic prefixes. @@ -155,10 +163,12 @@ bullets. DO NOT include the close-square-bracket, `]', as a bullet. Outline mode has to be reactivated in order for changes to the value -of this var to take effect.") +of this var to take effect." + :type 'string + :group 'allout) (make-variable-buffer-local 'outline-plain-bullets-string) ;;;_ = outline-distinctive-bullets-string -(defvar outline-distinctive-bullets-string "=>([{}&!?#%\"X@$~\\" +(defcustom outline-distinctive-bullets-string "=>([{}&!?#%\"X@$~\\" "*Persistent outline header bullets used to distinguish special topics. These bullets are not offered among the regular, level-specific @@ -170,11 +180,13 @@ You must run `set-outline-regexp' in order for changes to the value of this var to effect outline-mode operation. DO NOT include the close-square-bracket, `]', on either of the bullet -strings.") +strings." + :type 'string + :group 'allout) (make-variable-buffer-local 'outline-distinctive-bullets-string) ;;;_ = outline-use-mode-specific-leader -(defvar outline-use-mode-specific-leader t +(defcustom outline-use-mode-specific-leader t "*When non-nil, use mode-specific topic-header prefixes. Allout outline mode will use the mode-specific `outline-mode-leaders' @@ -198,7 +210,11 @@ comment strings. comment-start strings that do end in spaces are not tripled, but an underscore is substituted for the space. [This presumes that the space is for appearance, not comment syntax. You can use `outline-mode-leaders' to override this behavior, when -incorrect.]") +incorrect.]" + :type '(choice (const t) (const nil) string + (const outline-mode-leaders) + (const comment-start)) + :group 'allout) ;;;_ = outline-mode-leaders (defvar outline-mode-leaders '() "Specific outline-prefix leading strings per major modes. @@ -212,7 +228,7 @@ character, like an \"_\" underscore, to distinguish the lead string from regular comments that start at bol.") ;;;_ = outline-old-style-prefixes -(defvar outline-old-style-prefixes nil +(defcustom outline-old-style-prefixes nil "*When non-nil, use only old-and-crusty outline-mode `*' topic prefixes. Non-nil restricts the topic creation and modification @@ -220,10 +236,12 @@ functions to asterix-padded prefixes, so they look exactly like the original emacs-outline style prefixes. Whatever the setting of this variable, both old and new style prefixes -are always respected by the topic maneuvering functions.") +are always respected by the topic maneuvering functions." + :type 'boolean + :group 'allout) (make-variable-buffer-local 'outline-old-style-prefixes) ;;;_ = outline-stylish-prefixes - alternating bullets -(defvar outline-stylish-prefixes t +(defcustom outline-stylish-prefixes t "*Do fancy stuff with topic prefix bullets according to level, etc. Non-nil enables topic creation, modification, and repositioning @@ -264,51 +282,73 @@ always respected by the topic maneuvering functions, regardless of this variable setting. The setting of this var is not relevant when outline-old-style-prefixes -is non-nil.") +is non-nil." + :type 'boolean + :group 'allout) (make-variable-buffer-local 'outline-stylish-prefixes) ;;;_ = outline-numbered-bullet -(defvar outline-numbered-bullet "#" +(defcustom outline-numbered-bullet "#" "*String designating bullet of topics that have auto-numbering; nil for none. Topics having this bullet have automatic maintenance of a sibling sequence-number tacked on, just after the bullet. Conventionally set to \"#\", you can set it to a bullet of your choice. A nil value -disables numbering maintenance.") +disables numbering maintenance." + :type '(choice (const nil) string) + :group 'allout) (make-variable-buffer-local 'outline-numbered-bullet) ;;;_ = outline-file-xref-bullet -(defvar outline-file-xref-bullet "@" +(defcustom outline-file-xref-bullet "@" "*Bullet signifying file cross-references, for `outline-resolve-xref'. Set this var to the bullet you want to use for file cross-references. -Set it to nil if you want to inhibit this capability.") +Set it to nil if you want to inhibit this capability." + :type '(choice (const nil) string) + :group 'allout) ;;;_ + LaTeX formatting ;;;_ - outline-number-pages -(defvar outline-number-pages nil - "*Non-nil turns on page numbering for LaTeX formatting of an outline.") +(defcustom outline-number-pages nil + "*Non-nil turns on page numbering for LaTeX formatting of an outline." + :type 'boolean + :group 'allout) ;;;_ - outline-label-style -(defvar outline-label-style "\\large\\bf" - "*Font and size of labels for LaTeX formatting of an outline.") +(defcustom outline-label-style "\\large\\bf" + "*Font and size of labels for LaTeX formatting of an outline." + :type 'string + :group 'allout) ;;;_ - outline-head-line-style -(defvar outline-head-line-style "\\large\\sl " - "*Font and size of entries for LaTeX formatting of an outline.") +(defcustom outline-head-line-style "\\large\\sl " + "*Font and size of entries for LaTeX formatting of an outline." + :type 'string + :group 'allout) ;;;_ - outline-body-line-style -(defvar outline-body-line-style " " - "*Font and size of entries for LaTeX formatting of an outline.") +(defcustom outline-body-line-style " " + "*Font and size of entries for LaTeX formatting of an outline." + :type 'string + :group 'allout) ;;;_ - outline-title-style -(defvar outline-title-style "\\Large\\bf" - "*Font and size of titles for LaTeX formatting of an outline.") +(defcustom outline-title-style "\\Large\\bf" + "*Font and size of titles for LaTeX formatting of an outline." + :type 'string + :group 'allout) ;;;_ - outline-title -(defvar outline-title '(or buffer-file-name (current-buffer-name)) +(defcustom outline-title '(or buffer-file-name (current-buffer-name)) "*Expression to be evaluated to determine the title for LaTeX -formatted copy.") +formatted copy." + :type 'sexp + :group 'allout) ;;;_ - outline-line-skip -(defvar outline-line-skip ".05cm" - "*Space between lines for LaTeX formatting of an outline.") +(defcustom outline-line-skip ".05cm" + "*Space between lines for LaTeX formatting of an outline." + :type 'string + :group 'allout) ;;;_ - outline-indent -(defvar outline-indent ".3cm" - "*LaTeX formatted depth-indent spacing.") +(defcustom outline-indent ".3cm" + "*LaTeX formatted depth-indent spacing." + :type 'string + :group 'allout) ;;;_ + Miscellaneous customization @@ -361,29 +401,35 @@ will be used as is.") ("?c" outline-copy-exposed))) ;;;_ = outline-command-prefix -(defvar outline-command-prefix "\C-c" - "*Key sequence to be used as prefix for outline mode command key bindings.") +(defcustom outline-command-prefix "\C-c" + "*Key sequence to be used as prefix for outline mode command key bindings." + :type 'string + :group 'allout) ;;;_ = outline-enwrap-isearch-mode -(defvar outline-enwrap-isearch-mode t +(defcustom outline-enwrap-isearch-mode t "*Set non-nil to enable automatic exposure of concealed isearch targets. If non-nil, isearch will expose hidden text encountered in the course -of a search, and to reconceal it if the search is continued past it.") +of a search, and to reconceal it if the search is continued past it." + :type 'boolean + :group 'allout) ;;;_ = outline-use-hanging-indents -(defvar outline-use-hanging-indents t +(defcustom outline-use-hanging-indents t "*If non-nil, topic body text auto-indent defaults to indent of the header. Ie, it is indented to be just past the header prefix. This is relevant mostly for use with indented-text-mode, or other situations where auto-fill occurs. \[This feature no longer depends in any way on the `filladapt.el' -lisp-archive package.\]") +lisp-archive package.\]" + :type 'boolean + :group 'allout) (make-variable-buffer-local 'outline-use-hanging-indents) ;;;_ = outline-reindent-bodies -(defvar outline-reindent-bodies (if outline-use-hanging-indents +(defcustom outline-reindent-bodies (if outline-use-hanging-indents 'text) "*Non-nil enables auto-adjust of topic body hanging indent with depth shifts. @@ -393,12 +439,14 @@ the header. A value of `t' enables reindent in non-programming-code buffers, ie those that do not have the variable `comment-start' set. A value of -`force' enables reindent whether or not `comment-start' is set.") +`force' enables reindent whether or not `comment-start' is set." + :type '(choice (const nil) (const t) (const text) (const force)) + :group 'allout) (make-variable-buffer-local 'outline-reindent-bodies) ;;;_ = outline-inhibit-protection -(defvar outline-inhibit-protection nil +(defcustom outline-inhibit-protection nil "*Non-nil disables warnings and confirmation-checks for concealed-text edits. Outline mode uses emacs change-triggered functions to detect unruly @@ -407,7 +455,9 @@ protection, potentially increasing text-entry responsiveness a bit. This var takes effect at outline-mode activation, so you may have to deactivate and then reactivate the mode if you want to toggle the -behavior.") +behavior." + :type 'boolean + :group 'allout) ;;;_* CODE - no user customizations below. diff --git a/lisp/battery.el b/lisp/battery.el index e7f628d4d00..608ce9cd46f 100644 --- a/lisp/battery.el +++ b/lisp/battery.el @@ -33,10 +33,16 @@ (require 'timer) -(defvar battery-status-function + +(defgroup battery nil + "Display battery status information." + :prefix "battery-" + :group 'hardware) + +(defcustom battery-status-function (cond ((and (eq system-type 'gnu/linux) (file-readable-p "/proc/apm")) - 'battery-linux-proc-apm)) + 'battery-linux-proc-apm)) "*Function for getting battery status information. The function have to return an alist of conversion definitions. Cons cells are of the form @@ -44,31 +50,39 @@ Cons cells are of the form (CONVERSION . REPLACEMENT-TEXT) CONVERSION is the character code of a \"conversion specification\" -introduced by a `%' character in a control string.") +introduced by a `%' character in a control string." + :type 'function + :group 'battery) -(defvar battery-echo-area-format +(defcustom battery-echo-area-format (cond ((eq battery-status-function 'battery-linux-proc-apm) "Power %L, battery %B (%p%% load, remaining time %t)")) "*Control string formatting the string to display in the echo area. Ordinary characters in the control string are printed as-is, while conversion specifications introduced by a `%' character in the control string are substituted as defined by the current value of the variable -`battery-status-function'.") +`battery-status-function'." + :type '(choice string (const nil)) + :group 'battery) (defvar battery-mode-line-string nil "String to display in the mode line.") -(defvar battery-mode-line-format +(defcustom battery-mode-line-format (cond ((eq battery-status-function 'battery-linux-proc-apm) " [%b%p%%]")) "*Control string formatting the string to display in the mode line. Ordinary characters in the control string are printed as-is, while conversion specifications introduced by a `%' character in the control string are substituted as defined by the current value of the variable -`battery-status-function'.") - -(defvar battery-update-interval 60 - "*Seconds after which the battery status will be updated.") +`battery-status-function'." + :type '(choice string (const nil)) + :group 'battery) + +(defcustom battery-update-interval 60 + "*Seconds after which the battery status will be updated." + :type 'integer + :group 'battery) (defvar battery-update-timer nil "Interval timer object.") diff --git a/lisp/chistory.el b/lisp/chistory.el index 3685e01db5c..29bc7b9b8d7 100644 --- a/lisp/chistory.el +++ b/lisp/chistory.el @@ -31,6 +31,10 @@ ;;; Code: +(defgroup chistory nil + "List command history." + :group 'keyboard) + ;;;###autoload (defun repeat-matching-complex-command (&optional pattern) "Edit and re-evaluate complex command with name matching PATTERN. @@ -59,15 +63,17 @@ editing and the result is evaluated." (setq command-history (cdr command-history))) (edit-and-eval-command "Redo: " what)))) -(defvar default-command-history-filter-garbage +(defcustom default-command-history-filter-garbage '(command-history-mode list-command-history electric-command-history) "*A list of symbols to be ignored by `default-command-history-filter'. -It that function is given a list whose car is an element of this list, +If that function is given a list whose car is an element of this list, then it will return non-nil (indicating the list should be discarded from the history). -Initially, all commands related to the command history are discarded.") +Initially, all commands related to the command history are discarded." + :type '(repeat symbol) + :group 'chistory) (defvar list-command-history-filter 'default-command-history-filter "Predicate to test which commands should be excluded from the history listing. @@ -83,8 +89,10 @@ from the command history." (or (not (consp frob)) (memq (car frob) default-command-history-filter-garbage))) -(defvar list-command-history-max 32 - "*If non-nil, maximum length of the listing produced by `list-command-history'.") +(defcustom list-command-history-max 32 + "*If non-nil, maximum length of the listing produced by `list-command-history'." + :type '(choice integer (const nil)) + :group 'chistory) ;;;###autoload (defun list-command-history () @@ -126,8 +134,10 @@ The buffer is left in Command History mode." (setq major-mode (or majormode 'command-history-mode)) (setq mode-name (or modename "Command History"))) -(defvar command-history-hook nil - "If non-nil, its value is called on entry to `command-history-mode'.") +(defcustom command-history-hook nil + "If non-nil, its value is called on entry to `command-history-mode'." + :type 'hook + :group 'chistory) (defvar command-history-map nil) (if command-history-map diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el index 76fff6d9a5e..a3e1ab5d9f7 100644 --- a/lisp/cmuscheme.el +++ b/lisp/cmuscheme.el @@ -96,11 +96,19 @@ (require 'scheme) (require 'comint) + +(defgroup cmuscheme nil + "Run a scheme process in a buffer." + :group 'lisp) + ;;; INFERIOR SCHEME MODE STUFF ;;;============================================================================ -(defvar inferior-scheme-mode-hook nil - "*Hook for customising inferior-scheme mode.") +(defcustom inferior-scheme-mode-hook nil + "*Hook for customising inferior-scheme mode." + :type 'hook + :group 'cmuscheme) + (defvar inferior-scheme-mode-map nil) (cond ((not inferior-scheme-mode-map) @@ -202,9 +210,11 @@ to continue it." (setq comint-get-old-input (function scheme-get-old-input)) (run-hooks 'inferior-scheme-mode-hook)) -(defvar inferior-scheme-filter-regexp "\\`\\s *\\S ?\\S ?\\s *\\'" +(defcustom inferior-scheme-filter-regexp "\\`\\s *\\S ?\\S ?\\s *\\'" "*Input matching this regexp are not saved on the history list. -Defaults to a regexp ignoring all inputs of 0, 1, or 2 letters.") +Defaults to a regexp ignoring all inputs of 0, 1, or 2 letters." + :type 'regexp + :group 'cmuscheme) (defun scheme-input-filter (str) "Don't save anything matching inferior-scheme-filter-regexp" @@ -230,8 +240,10 @@ Defaults to a regexp ignoring all inputs of 0, 1, or 2 letters.") (scheme-args-to-list (substring string pos (length string))))))))) -(defvar scheme-program-name "scheme" - "*Program invoked by the run-scheme command") +(defcustom scheme-program-name "scheme" + "*Program invoked by the run-scheme command" + :type 'string + :group 'cmuscheme) ;;;###autoload (defun run-scheme (cmd) @@ -275,8 +287,10 @@ of `scheme-program-name'). Runs the hooks `inferior-scheme-mode-hook' (interactive) (scheme-send-region (save-excursion (backward-sexp) (point)) (point))) -(defvar scheme-compile-exp-command "(compile '%s)" - "*Template for issuing commands to compile arbitrary Scheme expressions.") +(defcustom scheme-compile-exp-command "(compile '%s)" + "*Template for issuing commands to compile arbitrary Scheme expressions." + :type 'string + :group 'cmuscheme) (defun scheme-compile-region (start end) "Compile the current region in the inferior Scheme process. @@ -335,11 +349,13 @@ Then switch to the process buffer." (scheme-compile-region start end) (switch-to-scheme t)) -(defvar scheme-source-modes '(scheme-mode) +(defcustom scheme-source-modes '(scheme-mode) "*Used to determine if a buffer contains Scheme source code. If it's loaded into a buffer that is in one of these major modes, it's considered a scheme source file by scheme-load-file and scheme-compile-file. -Used by these commands to determine defaults.") +Used by these commands to determine defaults." + :type '(repeat function) + :group 'cmuscheme) (defvar scheme-prev-l/c-dir/file nil "Caches the last (directory . file) pair. @@ -425,9 +441,11 @@ for a minimal, simple implementation. Feel free to extend it.") ;;; Do the user's customisation... -(defvar cmuscheme-load-hook nil +(defcustom cmuscheme-load-hook nil "This hook is run when cmuscheme is loaded in. -This is a good place to put keybindings.") +This is a good place to put keybindings." + :type 'hook + :group 'cmuscheme) (run-hooks 'cmuscheme-load-hook) diff --git a/lisp/compare-w.el b/lisp/compare-w.el index bdfcd006c95..495ff12d110 100644 --- a/lisp/compare-w.el +++ b/lisp/compare-w.el @@ -30,7 +30,12 @@ ;;; Code: -(defvar compare-windows-whitespace "[ \t\n]+" +(defgroup compare-w nil + "Compare text between windows." + :prefix "compare-" + :group 'tools) + +(defcustom compare-windows-whitespace "[ \t\n]+" "*Regexp that defines whitespace sequences for \\[compare-windows]. Changes in whitespace are optionally ignored. @@ -42,10 +47,14 @@ point; it should also advance past any whitespace. The function is passed one argument, the point where `compare-windows' was originally called; it should not consider any text before that point. If the function returns the same value for both buffers, then the -whitespace is considered to match, and is skipped.") - -(defvar compare-ignore-case nil - "*Non-nil means \\[compare-windows] ignores case differences.") +whitespace is considered to match, and is skipped." + :type '(choice regexp function) + :group 'compare-w) + +(defcustom compare-ignore-case nil + "*Non-nil means \\[compare-windows] ignores case differences." + :type 'boolean + :group 'compare-w) ;;;###autoload (defun compare-windows (ignore-whitespace) diff --git a/lisp/docref.el b/lisp/docref.el index 363ce6c33d5..9aa6a604b22 100644 --- a/lisp/docref.el +++ b/lisp/docref.el @@ -60,17 +60,27 @@ ;;; Code: ;; User customizable variables - -(defvar docref-highlight-p t +(defgroup docref nil + "Simple cross references for Elisp documentation strings." + :prefix "docref-" + :group 'help + :group 'lisp + :group 'docs) + +(defcustom docref-highlight-p t "*If non-nil, \\(f@docref-subst) highlights cross-references. Under window system it highlights them with face defined by \\(v@docref-highlight-face), on character terminal highlighted references -look like cross-references in info mode.") +look like cross-references in info mode." + :type 'boolean + :group 'docref) -(defvar docref-highlight-face 'highlight - "*Face used to highlight cross-references (used by \\(f@docref-subst))") +(defcustom docref-highlight-face 'highlight + "*Face used to highlight cross-references (used by \\(f@docref-subst))" + :type 'face + :group 'docref) -(defvar docref-methods-alist +(defcustom docref-methods-alist '(("f" . docref-describe-function) ; reference to a function documentation ("v" . docref-describe-variable) ; reference to a variable documentation ("F" . docref-read-file) ; reference to a file contents @@ -81,10 +91,14 @@ look like cross-references in info mode.") The car of each element is a string that serves as `type' in cross-references. \(See \\(f@docref-subst)). The cdr is a function of one argument, -to be called to find this reference.") - -(defvar docref-back-label "\nback" - "Label to use by \\(f@docref-subst) for the go-back reference.") +to be called to find this reference." + :type '(repeat (cons string function)) + :group 'docref) + +(defcustom docref-back-label "\nback" + "Label to use by \\(f@docref-subst) for the go-back reference." + :type 'string + :group 'docref) (defvar docref-back-reference nil "If non-nil, this is a go-back reference to add to the current buffer. diff --git a/lisp/dos-fns.el b/lisp/dos-fns.el index e3ae53bd070..2ecdea4668e 100644 --- a/lisp/dos-fns.el +++ b/lisp/dos-fns.el @@ -28,6 +28,10 @@ ;;; Code: +(defgroup dos-fns nil + "MS-Dos specific functions." + :group 'environment) + ;; This overrides a trivial definition in files.el. (defun convert-standard-filename (filename) "Convert a standard file's name to something suitable for the current OS. @@ -78,8 +82,10 @@ with a definition that really does change some file names." (aset string (1- (length string)) lastchar)) (concat dir string)))) -(defvar msdos-shells '("command.com" "4dos.com" "ndos.com") - "*List of shells that use `/c' instead of `-c' and a backslashed command.") +(defcustom msdos-shells '("command.com" "4dos.com" "ndos.com") + "*List of shells that use `/c' instead of `-c' and a backslashed command." + :type '(repeat string) + :group 'dos-fns) (defvar register-name-alist '((ax . 0) (bx . 1) (cx . 2) (dx . 3) (si . 4) (di . 5) @@ -121,7 +127,7 @@ with a definition that really does change some file names." (int86 33 regs)) ;; Support for printing under MS-DOS, see lpr.el and ps-print.el. -(defvar dos-printer "PRN" +(defcustom dos-printer "PRN" "*The name of a local MS-DOS device to which data is sent for printing. \(Note that PostScript files are sent to `dos-ps-printer', which see.\) @@ -129,7 +135,9 @@ Typical non-default settings would be \"LPT1\" to \"LPT3\" for parallel printers, or \"COM1\" to \"COM4\" or \"AUX\" for serial printers. You can also set it to a name of a file, in which case the output gets appended to that file. -If you want to discard the printed output, set this to \"NUL\".") +If you want to discard the printed output, set this to \"NUL\"." + :type 'file ; could use string but then we lose completion for files. + :group 'dos-fns) (defun dos-print-region-function (start end &optional lpr-prog @@ -164,7 +172,7 @@ START and END." ;; the same output as `lpr-buffer' and `lpr-region', accordingly. (setq lpr-headers-switches "(page headers are not supported)") -(defvar dos-ps-printer "PRN" +(defcustom dos-ps-printer "PRN" "*Method for printing PostScript files under MS-DOS. If the value is a string, then it is taken as the name of the @@ -180,7 +188,9 @@ you want to silently discard the printed output, set this to \"NUL\". If the value is anything but a string, PostScript files will be piped to the program given by `ps-lpr-command', with switches -given by `ps-lpr-switches', which see.") +given by `ps-lpr-switches', which see." + :type '(choice file (const :tag "Pipe to ps-lpr-command" pipe)) + :group 'dos-fns) (setq ps-lpr-command "gs") diff --git a/lisp/follow.el b/lisp/follow.el index 66b31fe3811..aea56ee0b96 100644 --- a/lisp/follow.el +++ b/lisp/follow.el @@ -369,14 +369,23 @@ ;;}}} ;;{{{ Variables +(defgroup follow nil + "Synchronize windows showing the same buffer." + :prefix "follow-" + :group 'windows) + (defvar follow-mode nil "Variable indicating if Follow mode is active.") -(defvar follow-mode-hook nil - "*Hooks to run when follow-mode is turned on.") +(defcustom follow-mode-hook nil + "*Hooks to run when follow-mode is turned on." + :type 'hook + :group 'follow) -(defvar follow-mode-off-hook nil - "*Hooks to run when follow-mode is turned off.") +(defcustom follow-mode-off-hook nil + "*Hooks to run when follow-mode is turned off." + :type 'hook + :group 'follow) (defvar follow-mode-version "follow.el (Release 1.6)" "The current version of Follow mode.") @@ -384,21 +393,29 @@ (defvar follow-mode-map nil "*Minor mode keymap for Follow mode.") -(defvar follow-mode-line-text " Follow" +(defcustom follow-mode-line-text " Follow" "*Text shown in the mode line when Follow mode is active. Defaults to \" Follow\". Examples of other values -are \" Fw\", or simply \"\".") +are \" Fw\", or simply \"\"." + :type 'string + :group 'follow) -(defvar follow-auto nil - "*Non-nil activates Follow mode whenever a file is loaded.") +(defcustom follow-auto nil + "*Non-nil activates Follow mode whenever a file is loaded." + :type 'boolean + :group 'follow) -(defvar follow-mode-prefix "\C-c." +(defcustom follow-mode-prefix "\C-c." "*Prefix key to use for follow commands in Follow mode. The value of this variable is checked as part of loading Follow mode. -After that, changing the prefix key requires manipulating keymaps.") - -(defvar follow-intercept-processes t - "*When non-nil, Follow Mode will monitor process output.") +After that, changing the prefix key requires manipulating keymaps." + :type 'string + :group 'follow) + +(defcustom follow-intercept-processes t + "*When non-nil, Follow Mode will monitor process output." + :type 'boolean + :group 'follow) (defvar follow-emacs-version-xemacs-p (string-match "XEmacs" emacs-version) diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el index 48f792fb0fd..1302171f517 100644 --- a/lisp/shadowfile.el +++ b/lisp/shadowfile.el @@ -85,31 +85,47 @@ ;;; Variables ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(defvar shadow-noquery nil +(defgroup shadow nil + "Automatic file copying when saving a file." + :prefix "shadow-" + :group 'files) + +(defcustom shadow-noquery nil "*If t, always copy shadow files without asking. If nil \(the default), always ask. If not nil and not t, ask only if there -is no buffer currently visiting the file.") +is no buffer currently visiting the file." + :type '(choice (const t) (const nil) (const :tag "Ask if no buffer" maybe)) + :group 'shadow) -(defvar shadow-inhibit-message nil - "*If nonnil, do not display a message when a file needs copying.") +(defcustom shadow-inhibit-message nil + "*If nonnil, do not display a message when a file needs copying." + :type 'boolean + :group 'shadow) -(defvar shadow-inhibit-overload nil +(defcustom shadow-inhibit-overload nil "If nonnil, shadowfile won't redefine C-x C-c. Normally it overloads the function `save-buffers-kill-emacs' to check -for files have been changed and need to be copied to other systems.") +for files have been changed and need to be copied to other systems." + :type 'boolean + :group 'shadow) -(defvar shadow-info-file nil +(defcustom shadow-info-file nil "File to keep shadow information in. The shadow-info-file should be shadowed to all your accounts to -ensure consistency. Default: ~/.shadows") +ensure consistency. Default: ~/.shadows" + :type '(choice (const nil) file) + :group 'shadow) -(defvar shadow-todo-file nil +(defcustom shadow-todo-file nil "File to store the list of uncopied shadows in. This means that if a remote system is down, or for any reason you cannot or decide not to copy your shadow files at the end of one emacs session, it will remember and ask you again in your next emacs session. This file must NOT be shadowed to any other system, it is host-specific. -Default: ~/.shadow_todo") +Default: ~/.shadow_todo" + :type '(choice (const nil) file) + :group 'shadow) + ;;; The following two variables should in most cases initialize themselves ;;; correctly. They are provided as variables in case the defaults are wrong diff --git a/lisp/tempo.el b/lisp/tempo.el index 6ee10096afc..5434a5f3317 100644 --- a/lisp/tempo.el +++ b/lisp/tempo.el @@ -111,26 +111,39 @@ ;;; User options -(defvar tempo-interactive nil +(defgroup tempo nil + "Flexible template insertion." + :prefix "tempo-" + :group 'tools) + +(defcustom tempo-interactive nil "*Prompt user for strings in templates. If this variable is non-nil, `tempo-insert' prompts the -user for text to insert in the templates") +user for text to insert in the templates" + :type 'boolean + :group 'tempo) -(defvar tempo-insert-region nil +(defcustom tempo-insert-region nil "*Automatically insert current region when there is a `r' in the template If this variable is NIL, `r' elements will be treated just like `p' elements, unless the template function is given a prefix (or a non-nil argument). If this variable is non-NIL, the behaviour is reversed. -In Transient Mark mode, this option is unused.") +In Transient Mark mode, this option is unused." + :type 'boolean + :group 'tempo) -(defvar tempo-show-completion-buffer t +(defcustom tempo-show-completion-buffer t "*If non-NIL, show a buffer with possible completions, when only -a partial completion can be found") +a partial completion can be found" + :type 'boolean + :group 'tempo) -(defvar tempo-leave-completion-buffer nil +(defcustom tempo-leave-completion-buffer nil "*If NIL, a completion buffer generated by \\[tempo-complete-tag] -disappears at the next keypress; otherwise, it remains forever.") +disappears at the next keypress; otherwise, it remains forever." + :type 'boolean + :group 'tempo) ;;; Internal variables diff --git a/lisp/textmodes/ispell4.el b/lisp/textmodes/ispell4.el index 1bca6748052..cce4e0c876b 100644 --- a/lisp/textmodes/ispell4.el +++ b/lisp/textmodes/ispell4.el @@ -28,8 +28,15 @@ ;;; Code: -(defvar ispell-have-new-look t - "Non-nil means use the `-r' option when running `look'.") +(defgroup ispell4 nil + "Interface to GNU ISPELL version 4." + :prefix "ispell-" + :group 'applications) + +(defcustom ispell-have-new-look t + "Non-nil means use the `-r' option when running `look'." + :type 'boolean + :group 'ispell4) (defvar ispell-enable-tex-parser nil "Non-nil enables experimental TeX parser in Ispell for TeX-mode buffers.") @@ -38,16 +45,23 @@ (defvar ispell-next-message nil "An integer: where in `*ispell*' buffer to find next message from Ispell.") -(defvar ispell-command "ispell" - "Command for running Ispell.") -(defvar ispell-command-options nil +(defcustom ispell-command "ispell" + "Command for running Ispell." + :type 'string + :group 'ispell4) + +(defcustom ispell-command-options nil "*String (or list of strings) to pass to Ispell as command arguments. You can specify your private dictionary via the -p <filename> option. The -S option is always passed to Ispell as the last parameter, -and need not be mentioned here.") +and need not be mentioned here." + :type '(repeat string) + :group 'ispell4) -(defvar ispell-look-command "look" - "*Command for running look.") +(defcustom ispell-look-command "look" + "*Command for running look." + :type 'string + :group 'ispell4) ;Each marker in this list points to the start of a word that ;ispell thought was bad last time it did the :file command. @@ -629,8 +643,10 @@ L lookup; Q quit\n") (kill-emacs 1)) (write-region (point-min) (point-max) "ispell.info")) -(defvar ispell-highlight t - "*Non-nil means to highlight ispell words.") +(defcustom ispell-highlight t + "*Non-nil means to highlight ispell words." + :type 'boolean + :group 'ispell4) (defvar ispell-overlay nil) @@ -756,12 +772,15 @@ L lookup; Q quit\n") ;;;; User-defined variables. -(defvar ispell-look-dictionary nil +(defcustom ispell-look-dictionary nil "*If non-nil then spelling dictionary as string for `ispell-complete-word'. Overrides default dictionary file such as \"/usr/dict/words\" or GNU look's -\"${prefix}/lib/ispell/ispell.words\"") +\"${prefix}/lib/ispell/ispell.words\"" + :type '(choice (const nil) file) + :group 'ispell4) + -(defvar ispell-gnu-look-still-broken-p nil +(defcustom ispell-gnu-look-still-broken-p nil "*t if GNU look -r can give different results with and without trailing `.*'. Example: `look -dfr \"^ya\" foo' returns nothing, while `look -dfr \"^ya.*\" foo' returns `yacc', where `foo' is a dictionary file containing the three lines @@ -772,7 +791,9 @@ returns `yacc', where `foo' is a dictionary file containing the three lines Both commands should return `yacc'. If `ispell-complete-word' erroneously states that no completions exist for a string, then setting this variable to t -will help find those completions.") +will help find those completions." + :type 'boolean + :group 'ispell4) ;;;; Internal variables. @@ -959,10 +980,12 @@ an interior word fragment. `ispell-have-new-look' should be t." "\\'\\`" ; An unmatchable string if string is null. (regexp-quote string))) -(defvar ispell-message-cite-regexp "^ \\|^\t" - "*Regular expression to match lines cited from one message into another.") +(defcustom ispell-message-cite-regexp "^ \\|^\t" + "*Regular expression to match lines cited from one message into another." + :type 'regexp + :group 'ispell4) -(defvar ispell-message-text-end +(defcustom ispell-message-text-end (concat "^\\(" (mapconcat (function identity) '( ;; Matches postscript files. @@ -979,10 +1002,14 @@ an interior word fragment. `ispell-have-new-look' should be t." "\\)") "*End of text which will be checked in ispell-message. If it is a string, limit at first occurrence of that regular expression. -Otherwise, it must be a function which is called to get the limit.") +Otherwise, it must be a function which is called to get the limit." + :type '(choice string function) + :group 'ispell4) -(defvar ispell-message-limit (* 100 80) - "*Ispell-message will check no more than this number of characters.") +(defcustom ispell-message-limit (* 100 80) + "*Ispell-message will check no more than this number of characters." + :type 'integer + :group 'ispell4) ;;;autoload (defun ispell-message () @@ -1088,4 +1115,4 @@ Or you can bind the function to C-c i in gnus or mail with: (provide 'ispell) -;;; ispell.el ends here +;;; ispell4.el ends here diff --git a/lisp/tmm.el b/lisp/tmm.el index 35630aa6d5a..c532ec18f1f 100644 --- a/lisp/tmm.el +++ b/lisp/tmm.el @@ -36,6 +36,11 @@ (require 'electric) +(defgroup tmm nil + "Text mode access to menu-bar." + :prefix "tmm-" + :group 'menu) + ;;; The following will be localized, added only to pacify the compiler. (defvar tmm-short-cuts) (defvar tmm-old-mb-map nil) @@ -94,15 +99,17 @@ See the documentation for `tmm-prompt'." (interactive "e") (tmm-menubar (car (posn-x-y (event-start event))))) -(defvar tmm-mid-prompt "==>" +(defcustom tmm-mid-prompt "==>" "*String to insert between shortcut and menu item. If nil, there will be no shortcuts. It should not consist only of spaces, -or else the correct item might not be found in the `*Completions*' buffer.") +or else the correct item might not be found in the `*Completions*' buffer." + :type 'string + :group 'tmm) (defvar tmm-mb-map nil "A place to store minibuffer map.") -(defvar tmm-completion-prompt +(defcustom tmm-completion-prompt "Press PageUp Key to reach this buffer from the minibuffer. Alternatively, you can use Up/Down keys (or your History keys) to change the item in the minibuffer, and press RET when you are done, or press the @@ -110,17 +117,25 @@ marked letters to pick up your choice. Type C-g or ESC ESC ESC to cancel. " "*Help text to insert on the top of the completion buffer. To save space, you can set this to nil, -in which case the standard introduction text is deleted too.") +in which case the standard introduction text is deleted too." + :type '(choice string (const nil)) + :group 'tmm) -(defvar tmm-shortcut-style '(downcase upcase) +(defcustom tmm-shortcut-style '(downcase upcase) "*What letters to use as menu shortcuts. Must be either one of the symbols `downcase' or `upcase', -or else a list of the two in the order you prefer.") +or else a list of the two in the order you prefer." + :type '(choice (const downcase) + (const upcase) + (repeat (choice (const downcase) (const upcase)))) + :group 'tmm) -(defvar tmm-shortcut-words 2 +(defcustom tmm-shortcut-words 2 "*How many successive words to try for shortcuts, nil means all. If you use only one of `downcase' or `upcase' for `tmm-shortcut-style', -specify nil for this variable.") +specify nil for this variable." + :type '(choice integer (const nil)) + :group 'tmm) ;;;###autoload (defun tmm-prompt (menu &optional in-popup default-item) diff --git a/lisp/vcursor.el b/lisp/vcursor.el index ae5affc2ce1..1eeed59715f 100644 --- a/lisp/vcursor.el +++ b/lisp/vcursor.el @@ -302,6 +302,11 @@ ;;; Code: +(defgroup vcursor nil + "Manipulate an alternative (\"virtual\") cursor." + :prefix "vcursor-" + :group 'display) + (or (memq 'vcursor (face-list)) (progn (copy-face 'modeline 'vcursor) @@ -312,24 +317,32 @@ (set-face-background 'vcursor "cyan"))) (set-face-underline-p 'vcursor t))) -(defvar vcursor-auto-disable nil +(defcustom vcursor-auto-disable nil "*If non-nil, disable the virtual cursor after use. -Any non-vcursor command will force `vcursor-disable' to be called.") +Any non-vcursor command will force `vcursor-disable' to be called." + :type 'boolean + :group 'vcursor) -(defvar vcursor-key-bindings t +(defcustom vcursor-key-bindings t "*How to bind keys when vcursor is loaded. If t (the default), guess; if xterm, use bindings suitable for an X terminal; if oemacs, use bindings which work on a PC with Oemacs. -If nil, don't define any key bindings.") +If nil, don't define any key bindings." + :type '(choice (const t) (const xterm) (const oemacs) (const nil)) + :group 'vcursor) -(defvar vcursor-interpret-input nil +(defcustom vcursor-interpret-input nil "*If non-nil, input from the vcursor is treated as interactive input. This will cause text insertion to be much slower. Note that no special interpretation of strings is done: \"\C-x\" is a string of four -characters. The default is simply to copy strings.") +characters. The default is simply to copy strings." + :type 'boolean + :group 'vcursor) -(defvar vcursor-string "**>" - "String used to show the vcursor position on dumb terminals.") +(defcustom vcursor-string "**>" + "String used to show the vcursor position on dumb terminals." + :type 'string + :group 'vcursor) (defvar vcursor-overlay nil "Overlay for the virtual cursor. @@ -346,8 +359,10 @@ scrolling set this. It is used by the `vcursor-auto-disable' code.") ;; could do some memq-ing with last-command instead, but this will ;; automatically handle any new commands using the primitives. -(defvar vcursor-copy-flag nil - "*Non-nil means moving vcursor should copy characters moved over to point.") +(defcustom vcursor-copy-flag nil + "*Non-nil means moving vcursor should copy characters moved over to point." + :type 'boolean + :group 'vcursor) (defvar vcursor-temp-goal-column nil "Keeps track of temporary goal columns for the virtual cursor.") diff --git a/lisp/xscheme.el b/lisp/xscheme.el index 05792774684..32b402103db 100644 --- a/lisp/xscheme.el +++ b/lisp/xscheme.el @@ -33,21 +33,33 @@ (require 'scheme) -(defvar scheme-program-name "scheme" - "*Program invoked by the `run-scheme' command.") - -(defvar scheme-band-name nil - "*Band loaded by the `run-scheme' command.") - -(defvar scheme-program-arguments nil - "*Arguments passed to the Scheme program by the `run-scheme' command.") - -(defvar xscheme-allow-pipelined-evaluation t +(defgroup xscheme nil + "Major mode for editing Scheme and interacting with MIT's C-Scheme." + :group 'lisp) + +(defcustom scheme-program-name "scheme" + "*Program invoked by the `run-scheme' command." + :type 'string + :group 'xscheme) + +(defcustom scheme-band-name nil + "*Band loaded by the `run-scheme' command." + :type '(choice (const nil) string) + :group 'xscheme) + +(defcustom scheme-program-arguments nil + "*Arguments passed to the Scheme program by the `run-scheme' command." + :type '(choice (const nil) string) + :group 'xscheme) + +(defcustom xscheme-allow-pipelined-evaluation t "If non-nil, an expression may be transmitted while another is evaluating. Otherwise, attempting to evaluate an expression before the previous expression -has finished evaluating will signal an error.") +has finished evaluating will signal an error." + :type 'boolean + :group 'xscheme) -(defvar xscheme-startup-message +(defcustom xscheme-startup-message "This is the Scheme process buffer. Type \\[advertised-xscheme-send-previous-expression] to evaluate the expression before point. Type \\[xscheme-send-control-g-interrupt] to abort evaluation. @@ -55,10 +67,14 @@ Type \\[describe-mode] for more information. " "String to insert into Scheme process buffer first time it is started. -Is processed with `substitute-command-keys' first.") +Is processed with `substitute-command-keys' first." + :type 'string + :group 'xscheme) -(defvar xscheme-signal-death-message nil - "If non-nil, causes a message to be generated when the Scheme process dies.") +(defcustom xscheme-signal-death-message nil + "If non-nil, causes a message to be generated when the Scheme process dies." + :type 'boolean + :group 'xscheme) (defun xscheme-evaluation-commands (keymap) (define-key keymap "\e\C-x" 'xscheme-send-definition) @@ -477,9 +493,11 @@ from being inserted into the process-buffer.") (defvar xscheme-string-receiver nil "Procedure to send the string argument from the scheme process.") -(defvar xscheme-start-hook nil +(defcustom xscheme-start-hook nil "If non-nil, a procedure to call when the Scheme process is started. -When called, the current buffer will be the Scheme process-buffer.") +When called, the current buffer will be the Scheme process-buffer." + :type 'hook + :group 'xscheme) (defvar xscheme-runlight-string nil) (defvar xscheme-mode-string nil) |