Commit cd32a7ba authored by Dan Nicolaescu's avatar Dan Nicolaescu

*** empty log message ***

parent e8bcd26e
......@@ -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
......
......@@ -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."
......
......@@ -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?\
......
......@@ -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")
......
......@@ -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."
......
......@@ -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.
......
......@@ -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.
......
......@@ -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.")
......
......@@ -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)))
......
......@@ -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.
......
......@@ -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.")
......
......@@ -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."
......
......@@ -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.
......
......@@ -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)
......
......@@ -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.
......
......@@ -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."
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment