From cd32a7baa4746f699fa4d945c1b1b9e50a9486da Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Mon, 20 Apr 1998 02:34:53 +0000 Subject: [PATCH] *** empty log message *** --- lisp/calendar/diary-lib.el | 9 ++++++--- lisp/cus-edit.el | 6 ++++-- lisp/dabbrev.el | 3 ++- lisp/desktop.el | 3 ++- lisp/emacs-lisp/debug.el | 6 ++++-- lisp/frame.el | 3 ++- lisp/gnus/gnus-art.el | 6 ++++-- lisp/hexl.el | 3 ++- lisp/international/ccl.el | 3 ++- lisp/mail/rmail.el | 3 ++- lisp/progmodes/etags.el | 3 ++- lisp/progmodes/octave-mod.el | 3 ++- lisp/progmodes/sh-script.el | 3 ++- lisp/replace.el | 6 ++++-- lisp/vc-hooks.el | 5 +++-- lisp/vc.el | 5 +++-- lisp/vcursor.el | 6 ++++-- 17 files changed, 50 insertions(+), 26 deletions(-) diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index a8c24e05b74..30aaa4ba287 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -589,12 +589,14 @@ is created." (if (boundp 'user-mail-address) user-mail-address nil) "*Email address that `diary-mail-entries' will send email to." :group 'diary - :type 'string) + :type 'string + :version "20.3") (defcustom diary-mail-days 7 "*Number of days for `diary-mail-entries' to check." :group 'diary - :type 'integer) + :type 'integer + :version "20.3") (defun diary-mail-entries (&optional ndays) "Send a mail message showing diary entries for next NDAYS days. @@ -946,7 +948,8 @@ The default value -9999 causes entries with no recognizable time to be placed before those with times; 9999 would place entries with no recognizable time after those with times." :type 'integer - :group 'diary) + :group 'diary + :version "20.3") (defun diary-entry-time (s) "Time at the beginning of the string S in a military-style integer. For diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index f35a075456d..b9d34f3944e 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -1781,7 +1781,8 @@ If INITIAL-STRING is non-nil, use that rather than \"Parent groups:\"." "Default form of displaying variable values." :type '(choice (const edit) (const lisp)) - :group 'custom-buffer) + :group 'custom-buffer + :version "20.3") (define-widget 'custom-variable 'custom "Customize variable." @@ -2226,7 +2227,8 @@ Match frames with dark backgrounds.") :type '(choice (const all) (const selected) (const lisp)) - :group 'custom-buffer) + :group 'custom-buffer + :version "20.3") (define-widget 'custom-face 'custom "Customize face." diff --git a/lisp/dabbrev.el b/lisp/dabbrev.el index 58097bdd4c5..c35db2fcb98 100644 --- a/lisp/dabbrev.el +++ b/lisp/dabbrev.el @@ -199,7 +199,8 @@ all the other buffers, except those named in `dabbrev-ignored-buffer-names'." (defcustom dabbrev-ignored-buffer-names '("*Messages") "*List of buffer names that dabbrev should not check." :type '(repeat (string :tag "Buffer name")) - :group 'dabbrev) + :group 'dabbrev + :version "20.3") (defcustom dabbrev-check-other-buffers t "*Should \\[dabbrev-expand] look in other buffers?\ diff --git a/lisp/desktop.el b/lisp/desktop.el index c49ea6d40f7..979f12b3b08 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el @@ -113,7 +113,8 @@ :group 'desktop :type 'boolean :require 'desktop - :initialize 'custom-initialize-default) + :initialize 'custom-initialize-default + :version "20.3") (defcustom desktop-basefilename (convert-standard-filename ".emacs.desktop") diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index 33ea729ccc2..f8c1f862f69 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el @@ -36,7 +36,8 @@ (defcustom debugger-mode-hook nil "*Hooks run when `debugger-mode' is turned on." :type 'hook - :group 'debugger) + :group 'debugger + :version "20.3") (defcustom debug-function-list nil @@ -412,7 +413,8 @@ Applies to the frame whose line point is on in the backtrace." (defcustom debugger-record-buffer "*Debugger-record*" "*Buffer name for expression values, for \\[debugger-record-expression]." :type 'string - :group 'debugger) + :group 'debugger + :version "20.3") (defun debugger-record-expression (exp) "Display a variable's value and record it in `*Backtrace-record*' buffer." diff --git a/lisp/frame.el b/lisp/frame.el index ba9d089eaac..44923e05324 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -500,7 +500,8 @@ the user during startup." (defcustom focus-follows-mouse t "*Non-nil if window system changes focus when you move the mouse." :type 'boolean - :group 'frames) + :group 'frames + :version "20.3") (defun other-frame (arg) "Select the ARG'th different visible frame, and raise it. diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index 1df219fab65..7ba8a9de593 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -377,7 +377,8 @@ The function is called from the article buffer." "Function to decode ``localized RFC 822 messages''. The function is called from the article buffer." :group 'gnus-article-mime - :type 'function) + :type 'function + :version "20.3") (defcustom gnus-page-delimiter "^\^L" "*Regexp describing what to use as article page delimiters. @@ -411,7 +412,8 @@ If you want to run a special decoding program like nkf, use this hook." (defcustom gnus-article-hide-pgp-hook nil "*A hook called after successfully hiding a PGP signature." :type 'hook - :group 'gnus-article-various) + :group 'gnus-article-various + :version "20.3") (defcustom gnus-article-button-face 'bold "Face used for highlighting buttons in the article buffer. diff --git a/lisp/hexl.el b/lisp/hexl.el index 6872c12d594..67b5ee9ae85 100644 --- a/lisp/hexl.el +++ b/lisp/hexl.el @@ -91,7 +91,8 @@ and \"-de\" when dehexlifying a buffer." (defcustom hexl-follow-ascii t "If non-nil then highlight the ASCII character corresponding to point." :type 'boolean - :group 'hexl) + :group 'hexl + :version "20.3") (defvar hexl-max-address 0 "Maximum offset into hexl buffer.") diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el index d3514408c44..3dcecc11e4a 100644 --- a/lisp/international/ccl.el +++ b/lisp/international/ccl.el @@ -176,7 +176,8 @@ ] "Vector of CCL extended compiled codes (symbols)." :type '(vector (repeat :inline t symbol)) - :group 'ccl) + :group 'ccl + :version "20.3") ;; Put a property to each symbol of CCL codes for the disassembler. (let (code (i 0) (len (length ccl-code-table))) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 078d48b72f7..d481b8b7918 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -104,7 +104,8 @@ Most commonly used to specify `-g' to enable GSS-API authentication or `-k' to enable Kerberos authentication." :type '(repeat string) - :group 'rmail-retrieve) + :group 'rmail-retrieve + :version "20.3") (defvar rmail-pop-password-error "invalid usercode or password" "Regular expression matching incorrect-password POP server error messages. diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 31a8158e3a6..cac5b3d25dc 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -110,7 +110,8 @@ Otherwise, `find-tag-default' is used." (defcustom find-tag-marker-ring-length 16 "*Length of marker rings `find-tag-marker-ring' and `tags-location-ring'." :group 'etags - :type 'integer) + :type 'integer + :version "20.3") (defvar find-tag-marker-ring (make-ring find-tag-marker-ring-length) "Ring of markers which are locations from which \\[find-tag] was invoked.") diff --git a/lisp/progmodes/octave-mod.el b/lisp/progmodes/octave-mod.el index e8f3724689b..f97b595b62d 100644 --- a/lisp/progmodes/octave-mod.el +++ b/lisp/progmodes/octave-mod.el @@ -308,7 +308,8 @@ parenthetical grouping.") (defcustom octave-auto-indent nil "*Non-nil means indent line after a semicolon or space in Octave mode." :type 'boolean - :group 'octave) + :group 'octave + :version "20.3") (defcustom octave-auto-newline nil "*Non-nil means automatically newline after a semicolon in Octave mode." diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index 32273e66d1c..508a9abaf4e 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el @@ -170,7 +170,8 @@ shell it really is." See `sh-feature'." :type '(repeat (cons (symbol :tag "Shell") regexp)) - :group 'sh-script) + :group 'sh-script + :version "20.3") (defvar sh-shell-variables nil "Alist of shell variable names that should be included in completion. diff --git a/lisp/replace.el b/lisp/replace.el index ebe3088c04e..07d5892e458 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -43,7 +43,8 @@ The value of this variable should be a symbol; that symbol is used as a variable to hold a history list for the strings or patterns to be replaced." :group 'matching - :type 'symbol) + :type 'symbol + :version "20.3") (defcustom query-replace-to-history-variable 'query-replace-history "History list to use for the TO argument of query-replace commands. @@ -51,7 +52,8 @@ The value of this variable should be a symbol; that symbol is used as a variable to hold a history list for replacement strings or patterns." :group 'matching - :type 'symbol) + :type 'symbol + :version "20.3") (defun query-replace-read-args (string regexp-flag) (let (from to) diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index a8d3db5fa0e..cfbb1111cba 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -5,7 +5,7 @@ ;; Author: Eric S. Raymond ;; Maintainer: Andre Spiegel -;; $Id: vc-hooks.el,v 1.104 1998/04/04 05:21:44 rms Exp spiegel $ +;; $Id: vc-hooks.el,v 1.105 1998/04/05 18:44:35 spiegel Exp done $ ;; This file is part of GNU Emacs. @@ -125,7 +125,8 @@ It may be useful to set this if (say) you edit files in a directory containing corresponding RCS files but don't have RCS available; similarly for other version control systems." :type 'boolean - :group 'vc) + :group 'vc + :version "20.3") (defun vc-mistrust-permissions (file) ;; Access function to the above. diff --git a/lisp/vc.el b/lisp/vc.el index 9197d2a2da6..17af1f8a023 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -5,7 +5,7 @@ ;; Author: Eric S. Raymond ;; Maintainer: Andre Spiegel -;; $Id: vc.el,v 1.222 1998/04/15 09:48:04 schwab Exp spiegel $ +;; $Id: vc.el,v 1.223 1998/04/15 10:13:07 spiegel Exp done $ ;; This file is part of GNU Emacs. @@ -116,7 +116,8 @@ If FORM3 is `RCS', use FORM2 for CVS as well as RCS. "*A string used as the default version number when a new file is registered. This can be overriden by giving a prefix argument to \\[vc-register]." :type 'string - :group 'vc) + :group 'vc + :version "20.3") (defcustom vc-command-messages nil "*If non-nil, display run messages from back-end commands." diff --git a/lisp/vcursor.el b/lisp/vcursor.el index 1eeed59715f..d4c13f46103 100644 --- a/lisp/vcursor.el +++ b/lisp/vcursor.el @@ -337,12 +337,14 @@ 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." :type 'boolean - :group 'vcursor) + :group 'vcursor + :version "20.3") (defcustom vcursor-string "**>" "String used to show the vcursor position on dumb terminals." :type 'string - :group 'vcursor) + :group 'vcursor + :version "20.3") (defvar vcursor-overlay nil "Overlay for the virtual cursor. -- 2.39.2