(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.
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
"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."
:type '(choice (const all)
(const selected)
(const lisp))
- :group 'custom-buffer)
+ :group 'custom-buffer
+ :version "20.3")
(define-widget 'custom-face 'custom
"Customize face."
(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?\
: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")
(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
(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."
(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.
"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.
(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.
(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.")
]
"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)))
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.
(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.")
(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."
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.
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.
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)
;; 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.
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.
;; 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.
"*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."
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.