From: Dan Nicolaescu <done@ece.arizona.edu>
Date: Mon, 20 Apr 1998 02:34:53 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: emacs-20.3~1407
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cd32a7baa4746f699fa4d945c1b1b9e50a9486da;p=emacs.git

*** empty log message ***
---

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 <esr@snark.thyrsus.com>
 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de>
 
-;; $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 <esr@snark.thyrsus.com>
 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de>
 
-;; $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.