(nth 1 form))
(t nil)))
-(defvar semantic-elisp-store-documentation-in-tag nil
- "*When non-nil, store documentation strings in the created tags.")
+(defcustom semantic-elisp-store-documentation-in-tag nil
+ "When non-nil, store documentation strings in the created tags."
+ :type 'boolean
+ :group 'semantic)
(defun semantic-elisp-do-doc (str)
"Return STR as a documentation string IF they are enabled."
;;
;; These routines are for saving macro lists into an EIEIO persistent
;; file.
-(defvar semantic-lex-spp-macro-max-length-to-save 200
- "*Maximum length of an SPP macro before we opt to not save it.")
+(defcustom semantic-lex-spp-macro-max-length-to-save 200
+ "Maximum length of an SPP macro before we opt to not save it."
+ :type 'integer
+ :group 'semantic)
;;;###autoload
(defun semantic-lex-spp-table-write-slot-value (value)
;; Stack of nested blocks.
(defvar semantic-lex-block-stack nil)
-;;(defvar semantic-lex-timeout 5
-;; "*Number of sections of lexing before giving up.")
+;;(defcustom semantic-lex-timeout 5
+;; "Number of sections of lexing before giving up."
+;; :type 'integer
+;; :group 'semantic)
(defsubst semantic-lex-debug-break (token)
"Break during lexical analysis at TOKEN."
(declare-function ede-up-directory "ede/files")
;;; Code:
-(defvar semantic-symref-tool 'detect
- "*The active symbol reference tool name.
+(defcustom semantic-symref-tool 'detect
+ "The active symbol reference tool name.
The tool symbol can be 'detect, or a symbol that is the name of
-a tool that can be used for symbol referencing.")
+a tool that can be used for symbol referencing."
+ :type 'symbol
+ :group 'semantic)
(make-variable-buffer-local 'semantic-symref-tool)
;;; TOOL SETUP
(defvar wisent-new-log-flag nil
"Non-nil means to start a new report.")
-(defvar wisent-verbose-flag nil
- "*Non-nil means to report verbose information on generated parser.")
+(defcustom wisent-verbose-flag nil
+ "Non-nil means to report verbose information on generated parser."
+ :group 'wisent
+ :type 'boolean)
(defun wisent-toggle-verbose-flag ()
"Toggle whether to report verbose information on generated parser."
(setq i (1+ i))))
rrc-count))
-(defvar wisent-expected-conflicts nil
- "*If non-nil suppress the warning about shift/reduce conflicts.
+(defcustom wisent-expected-conflicts nil
+ "If non-nil suppress the warning about shift/reduce conflicts.
It is a decimal integer N that says there should be no warning if
there are N shift/reduce conflicts and no reduce/reduce conflicts. A
warning is given if there are either more or fewer conflicts, or if
-there are any reduce/reduce conflicts.")
+there are any reduce/reduce conflicts."
+ :group 'wisent
+ :type '(choice (const nil) integer))
(defun wisent-total-conflicts ()
"Report the total number of conflicts."
(apply #'max (mapcar #'cdr pl))))))
;;; Reporting
-(defvar wisent-parse-verbose-flag nil
- "*Non-nil means to issue more messages while parsing.")
+(defcustom wisent-parse-verbose-flag nil
+ "Non-nil means to issue more messages while parsing."
+ :type 'boolean)
(defun wisent-parse-toggle-verbose-flag ()
"Toggle whether to issue more messages while parsing."
"^@end \\|" ; texinfo
")\n\n[ \t\n]*\\|" ; lisp
"\\.\\s-*$") ; prolog
- "*Regexps to end Headings/Sections. Used by [].")
+ "Regexps to end Headings/Sections. Used by [].")
;; These two vars control the interaction of jumps performed by ' and `.
"\C-c\C-i" gnus-info-find-node
"\C-c\C-b" gnus-bug))
-(defvar gnus-category-menu-hook nil
- "*Hook run after the creation of the menu.")
+(defcustom gnus-category-menu-hook nil
+ "Hook run after the creation of the menu."
+ :group 'gnus-agent
+ :type 'hook)
(defun gnus-category-make-menu-bar ()
(gnus-turn-off-edit-menu 'category)
(repeat (cons (integer :tag "Argument")
(string :tag "Prompt string")))))
-(defvar gnus-group-listing-limit 1000
- "*A limit of the number of groups when listing.
+(defcustom gnus-group-listing-limit 1000
+ "A limit of the number of groups when listing.
If the number of groups is larger than the limit, list them in a
-simple manner.")
+simple manner."
+ :group 'gnus-group-listing
+ :type 'integer)
;;; Internal variables
(defvar gnus-server-mode-map)
-(defvar gnus-server-menu-hook nil
- "*Hook run after the creation of the server mode menu.")
+(defcustom gnus-server-menu-hook nil
+ "Hook run after the creation of the server mode menu."
+ :type 'hook
+ :group 'gnus-server)
(defun gnus-server-make-menu-bar ()
(gnus-turn-off-edit-menu 'server)
;;; Browse Server Mode
;;;
-(defvar gnus-browse-menu-hook nil
- "*Hook run after the creation of the browse mode menu.")
+(defcustom gnus-browse-menu-hook nil
+ "Hook run after the creation of the browse mode menu."
+ :group 'gnus-server
+ :type 'hook)
(defcustom gnus-browse-subscribe-newsgroup-method
'gnus-subscribe-alphabetically
message-dont-reply-to-names
(gmm-regexp-concat message-dont-reply-to-names)))
-(defvar message-shoot-gnksa-feet nil
- "*A list of GNKSA feet you are allowed to shoot.
+(defcustom message-shoot-gnksa-feet nil
+ "A list of GNKSA feet you are allowed to shoot.
Gnus gives you all the opportunity you could possibly want for
shooting yourself in the foot. Also, Gnus allows you to shoot the
feet of Good Net-Keeping Seal of Approval. The following are foot
`multiple-copies' Allow you to post multiple copies;
`cancel-messages' Allow you to cancel or supersede messages from
your other email addresses;
-`canlock-verify' Allow you to cancel messages without verifying canlock.")
+`canlock-verify' Allow you to cancel messages without verifying canlock."
+ :group 'message
+ :type '(set (const empty-article) (const quoted-text-only)
+ (const multiple-copies) (const cancel-messages)
+ (const canlock-verify)))
(defsubst message-gnksa-enable-p (feature)
(or (not (listp message-shoot-gnksa-feet))
(require 'sendmail)
-(defvar message-from-style mail-from-style
- "*Specifies how \"From\" headers look.
-
-If nil, they contain just the return address like:
- king@grassland.com
-If `parens', they look like:
- king@grassland.com (Elvis Parsley)
-If `angles', they look like:
- Elvis Parsley <king@grassland.com>
-
-Otherwise, most addresses look like `angles', but they look like
-`parens' if `angles' would need quoting and `parens' would not.")
-
-(defvar message-interactive mail-interactive
- "Non-nil means when sending a message wait for and display errors.
-nil means let mailer mail back a message to report errors.")
-
-(defvar message-setup-hook mail-setup-hook
- "Normal hook, run each time a new outgoing message is initialized.
-The function `message-setup' runs this hook.")
-
-(if (boundp 'mail-mode-hook)
- (defvar message-mode-hook mail-mode-hook
- "Hook run in message mode buffers."))
-
-(defvar message-indentation-spaces mail-indentation-spaces
- "*Number of spaces to insert at the beginning of each cited line.
-Used by `message-yank-original' via `message-yank-cite'.")
-
-(defvar message-signature mail-signature
- "*String to be inserted at the end of the message buffer.
-If t, the `message-signature-file' file will be inserted instead.
-If a function, the result from the function will be used instead.
-If a form, the result from the form will be used instead.")
-
-;; Deleted the autoload cookie because this crashes in loaddefs.el.
-(defvar message-signature-file mail-signature-file
- "*File containing the text inserted at end of the message buffer.")
-
-(defvar message-default-headers mail-default-headers
- "*A string containing header lines to be inserted in outgoing messages.
-It is inserted before you edit the message, so you can edit or delete
-these lines.")
-
-(defvar message-send-hook mail-send-hook
- "Hook run before sending messages.")
-
-(defvar message-send-mail-function send-mail-function
- "Function to call to send the current buffer as mail.
-The headers should be delimited by a line whose contents match the
-variable `mail-header-separator'.")
+;(setq message-from-style mail-from-style)
+;(setq message-interactive mail-interactive)
+(setq message-setup-hook mail-setup-hook)
+(setq message-mode-hook mail-mode-hook)
+;(setq message-indentation-spaces mail-indentation-spaces)
+;(setq message-signature mail-signature)
+;(setq message-signature-file mail-signature-file)
+(setq message-default-headers mail-default-headers)
+(setq message-send-hook mail-send-hook)
+(setq message-send-mail-function send-mail-function)
(provide 'messcompat)
;;; messcompat.el ends here
+
+;; Local Variables:
+;; no-byte-compile: t
+;; End:
:group 'mime-display)
-(defvar mm-path-name-rewrite-functions nil
- "*List of functions for rewriting the full file names of MIME parts.
+(defcustom mm-path-name-rewrite-functions nil
+ "List of functions for rewriting the full file names of MIME parts.
This is used when viewing parts externally, and is meant for
transforming the absolute name so that non-compliant programs can find
the file where it's saved.
-Each function takes a file name as input and returns a file name.")
+Each function takes a file name as input and returns a file name."
+ :type '(repeat function)
+ :group 'mime-display)
(defvar mm-file-name-replace-whitespace nil
"String used for replacing whitespace characters; default is `\"_\"'.")
;; To be done
;; (shy . ????) ; soft hyphen
)
- "*An assoc list of entity names and how to actually display them.")
+ "An assoc list of entity names and how to actually display them.")
(defconst mm-url-unreserved-chars
'(
Setting it to nil is useful on Emacsen supporting Unicode if sending
mail with multiple parts is preferred to sending a Unicode one.")
-(defvar mm-extra-numeric-entities
+(defcustom mm-extra-numeric-entities
(mapcar
(lambda (item)
(cons (car item) (mm-ucs-to-char (cdr item))))
(#x9C . #x0153) (#x9E . #x017E) (#x9F . #x0178)))
"*Alist of extra numeric entities and characters other than ISO 10646.
This table is used for decoding extra numeric entities to characters,
-like \"€\" to the euro sign, mainly in html messages.")
+like \"€\" to the euro sign, mainly in html messages."
+ :type '(alist :key-type character :value-type character)
+ :group 'mime)
;;; Internal variables:
(delete-region ,(point-min-marker)
,(point-max-marker)))))))))
-(defvar mm-w3m-standalone-supports-m17n-p 'undecided
- "*T means the w3m command supports the m17n feature.")
+(defcustom mm-w3m-standalone-supports-m17n-p 'undecided
+ "T means the w3m command supports the m17n feature."
+ :type '(choice (const nil) (const t) (other :tag "detect" undecided))
+ :group 'mime-display)
(defun mm-w3m-standalone-supports-m17n-p ()
"Say whether the w3m command supports the m17n feature."
handle to tweak the part.")
(defvar mml-externalize-attachments nil
- "*If non-nil, local-file attachments are generated as external parts.")
+ "If non-nil, local-file attachments are generated as external parts.")
-(defvar mml-generate-multipart-alist nil
- "*Alist of multipart generation functions.
+(defcustom mml-generate-multipart-alist nil
+ "Alist of multipart generation functions.
Each entry has the form (NAME . FUNCTION), where
NAME is a string containing the name of the part (without the
leading \"/multipart/\"),
FUNCTION is a Lisp function which is called to generate the part.
The Lisp function has to supply the appropriate MIME headers and the
-contents of this part.")
+contents of this part."
+ :group 'message
+ :type '(alist :key-type string :value-type function))
(defvar mml-syntax-table
(let ((table (copy-syntax-table emacs-lisp-mode-syntax-table)))
"Where nndraft will store its files."
nnmh-directory)
-(defvar nndraft-required-headers '(Date)
- "*Headers to be generated when saving a draft message.
+(defcustom nndraft-required-headers '(Date)
+ "Headers to be generated when saving a draft message.
The headers in this variable and the ones in `message-required-headers'
-are generated if and only if they are also in `message-draft-headers'.")
+are generated if and only if they are also in `message-draft-headers'."
+ :type '(repeat sexp)
+ :group 'message-headers) ; FIXME wrong group
\f
:group 'gnus-server
:type 'boolean)
-(defvar nnheader-max-head-length 8192
- "*Max length of the head of articles.
+(defcustom nnheader-max-head-length 8192
+ "Max length of the head of articles.
Value is an integer, nil, or t. nil means read in chunks of a file
indefinitely until a complete head is found; t means always read the
entire file immediately, disregarding `nnheader-head-chop-length'.
Integer values will in effect be rounded up to the nearest multiple of
-`nnheader-head-chop-length'.")
-
-(defvar nnheader-head-chop-length 2048
- "*Length of each read operation when trying to fetch HEAD headers.")
+`nnheader-head-chop-length'."
+ :group 'gnus-article-various ; FIXME?
+ :type '(choice integer (const :tag "Read chunks" nil)
+ (const :tag "Read entire file" t)))
+
+(defcustom nnheader-head-chop-length 2048
+ "Length of each read operation when trying to fetch HEAD headers."
+ :group 'gnus-article-various ; FIXME?
+ :type 'integer)
(defvar nnheader-read-timeout
(if (string-match "windows-nt\\|os/2\\|cygwin"
"How long nntp should wait between checking for the end of output.
Shorter values mean quicker response, but are more CPU intensive.")
-(defvar nnheader-file-name-translation-alist
+(defcustom nnheader-file-name-translation-alist
(let ((case-fold-search t))
(cond
((string-match "windows-nt\\|os/2\\|cygwin"
nil
'((?+ . ?-)))))
(t nil)))
- "*Alist that says how to translate characters in file names.
+ "Alist that says how to translate characters in file names.
For instance, if \":\" is invalid as a file character in file names
on your system, you could say something like:
-\(setq nnheader-file-name-translation-alist \\='((?: . ?_)))")
+\(setq nnheader-file-name-translation-alist \\='((?: . ?_)))"
+ :group 'gnus-article-various ; FIXME?
+ :type '(alist :key-type character :value-type character))
-(defvar nnheader-directory-separator-character
+(defcustom nnheader-directory-separator-character
(string-to-char (substring (file-name-as-directory ".") -1))
- "*A character used to a directory separator.")
+ "A character used as a directory separator."
+ :group 'gnus-article-various ; FIXME?
+ :type 'character)
(autoload 'nnmail-message-id "nnmail")
(autoload 'mail-position-on-field "sendmail")
(or (not (numberp gnus-verbose-backends))
(<= level gnus-verbose-backends)))
-(defvar nnheader-pathname-coding-system 'iso-8859-1
- "*Coding system for file name.")
+(defcustom nnheader-pathname-coding-system 'iso-8859-1
+ "Coding system for file name."
+ :group 'gnus-article-various ; FIXME?
+ :type 'coding-system)
(defun nnheader-group-pathname (group dir &optional file)
"Make file name for GROUP."
mm-text-coding-system
"Coding system used in reading inbox")
-(defvar nnmail-pathname-coding-system nil
- "*Coding system for file name.")
+(defcustom nnmail-pathname-coding-system nil
+ "Coding system for file name."
+ :group 'nnmail-various
+ :type 'coding-system)
(defun nnmail-find-file (file)
"Insert FILE in server buffer safely."
(forward-line 1))
group-assoc))
-(defvar nnmail-active-file-coding-system 'raw-text
- "*Coding system for active file.")
+(defcustom nnmail-active-file-coding-system 'raw-text
+ "Coding system for active file."
+ :group 'nnmail-various
+ :type 'coding-system)
(defun nnmail-save-active (group-assoc file-name)
"Save GROUP-ASSOC in ACTIVE-FILE."
(concat ":2," new-flags)))
(defvar nnmaildir-article-file-name nil
- "*The filename of the most recently requested article. This variable is set
-by nnmaildir-request-article.")
+ "The filename of the most recently requested article.
+This variable is set by `nnmaildir-request-article'.")
;; The filename of the article being moved/copied:
(defvar nnmaildir--file nil)
(require 'mml)
(require 'xml)
+(defgroup nnrss nil
+ "RSS access for Gnus."
+ :group 'gnus)
+
(nnoo-declare nnrss)
(defvoo nnrss-directory (nnheader-concat gnus-directory "rss/")
ENTRY is the record of the current headline. GROUP is the group name.
ARTICLE is the article number of the current headline.")
-(defvar nnrss-file-coding-system mm-universal-coding-system
- "*Coding system used when reading and writing files.
+(defcustom nnrss-file-coding-system mm-universal-coding-system
+ "Coding system used when reading and writing files.
If you run Gnus with various versions of Emacsen, the value of this
variable should be the coding system that all those Emacsen support.
Note that you have to regenerate all the nnrss groups if you change
the value. Moreover, you should be patient even if you are made to
read the same articles twice, that arises for the difference of the
-versions of xml.el.")
+versions of xml.el."
+ :group 'nnrss
+ :type 'coding-system)
(defvar nnrss-compatible-encoding-alist
(delq nil (mapcar (lambda (elem)
;;; Internal variables.
(defvoo nntp-retrieval-in-progress nil)
-(defvar nntp-record-commands nil
- "*If non-nil, nntp will record all commands in the \"*nntp-log*\" buffer.")
+(defcustom nntp-record-commands nil
+ "If non-nil, nntp will record all commands in the \"*nntp-log*\" buffer."
+ :group 'nntp
+ :type 'boolean)
(defvar nntp-have-messaged nil)
(require 'mm-util) ; for mm-universal-coding-system
(require 'gnus-util) ; for gnus-pp, gnus-run-mode-hooks
-(defvar gnus-score-edit-done-hook nil
- "*Hook run at the end of closing the score buffer.")
-
-(defvar gnus-score-mode-hook nil
- "*Hook run in score mode buffers.")
-
-(defvar gnus-score-menu-hook nil
- "*Hook run after creating the score mode menu.")
+(defcustom gnus-score-edit-done-hook nil
+ "Hook run at the end of closing the score buffer."
+ :group 'gnus-score
+ :type 'hook)
+
+(defcustom gnus-score-mode-hook nil
+ "Hook run in score mode buffers."
+ :group 'gnus-score
+ :type 'hook)
+
+(defcustom gnus-score-menu-hook nil
+ "Hook run after creating the score mode menu."
+ :group 'gnus-score
+ :type 'hook)
(defvar gnus-score-edit-exit-function nil
"Function run on exit from the score buffer.")
(require 'rfc2045) ;; rfc2045-encode-string
(autoload 'mm-body-7-or-8 "mm-bodies")
-(defvar rfc2047-header-encoding-alist
+(defgroup rfc2047 nil
+ "RFC2047 messages."
+ :group 'mail
+ :prefix "rfc2047-")
+
+(defcustom rfc2047-header-encoding-alist
'(("Newsgroups" . nil)
("Followup-To" . nil)
("Message-ID" . nil)
("\\(Resent-\\)?\\(From\\|Cc\\|To\\|Bcc\\|\\(In-\\)?Reply-To\\|Sender\
\\|Mail-Followup-To\\|Mail-Copies-To\\|Approved\\)" . address-mime)
(t . mime))
- "*Header/encoding method alist.
+ "Header/encoding method alist.
The list is traversed sequentially. The keys can either be
header regexps or t.
fields (where quoted strings and comments must be treated separately);
4) a charset, in which case it will be encoded as that charset;
5) `default', in which case the field will be encoded as the rest
- of the article.")
+ of the article."
+ :type '(alist :key-type (choice regexp (const t))
+ :value-type (choice (const nil) (const mime)
+ (const address-mime)
+ coding-system
+ (const default))))
(defvar rfc2047-charset-encoding-alist
'((us-ascii . nil)
(defvar rfc2047-encode-encoded-words t
"Whether encoded words should be encoded again.")
-(defvar rfc2047-allow-irregular-q-encoded-words t
- "*Whether to decode irregular Q-encoded words.")
+(defcustom rfc2047-allow-irregular-q-encoded-words t
+ "Whether to decode irregular Q-encoded words."
+ :type 'boolean)
(eval-and-compile ;; Necessary to hard code them in `rfc2047-decode-region'.
(defconst rfc2047-encoded-word-regexp
(defvar rfc2047-quote-decoded-words-containing-tspecials nil
"If non-nil, quote decoded words containing special characters.")
-(defvar rfc2047-allow-incomplete-encoded-text t
- "*Non-nil means allow incomplete encoded-text in successive encoded-words.
+(defcustom rfc2047-allow-incomplete-encoded-text t
+ "Non-nil means allow incomplete encoded-text in successive encoded-words.
Dividing of encoded-text in the place other than character boundaries
violates RFC2047 section 5, while we have a capability to decode it.
If it is non-nil, the decoder will decode B- or Q-encoding in each
encoded-word, concatenate them, and decode it by charset. Otherwise,
the decoder will fully decode each encoded-word before concatenating
-them.")
+them."
+ :type 'boolean)
(defun rfc2047-strip-backslashes-in-quoted-strings ()
"Strip backslashes in quoted strings. `\\\"' remains."
(define-key map " " 'self-insert-command)
map))
-(defvar mh-alias-system-aliases
+(defcustom mh-alias-system-aliases
'("/etc/nmh/MailAliases" "/etc/mh/MailAliases"
"/usr/lib/mh/MailAliases" "/usr/share/mailutils/mh/MailAliases"
"/etc/passwd")
- "*A list of system files which are a source of aliases.
+ "A list of system files which are a source of aliases.
If these files are modified, they are automatically reread. This list
need include only system aliases and the passwd file, since personal
alias files listed in your \"Aliasfile:\" MH profile component are
automatically included. You can update the alias list manually using
-\\[mh-alias-reload].")
+\\[mh-alias-reload]."
+ :type '(repeat file)
+ :group 'mh-alias)
\f
`mh-current-folder'. This variable can be used by
`mh-after-commands-processed-hook'.")
-(defvar mh-mail-header-separator "--------"
- "*Line used by MH to separate headers from text in messages being composed.
+(defcustom mh-mail-header-separator "--------"
+ "Line used by MH to separate headers from text in messages being composed.
This variable should not be used directly in programs. Programs
should use `mail-header-separator' instead.
Do not make this a regular expression as it may be the argument
to `insert' and it is passed through `regexp-quote' before being
-used by functions like `re-search-forward'.")
+used by functions like `re-search-forward'."
+ :group 'mh-e ; FIXME?
+ :type 'string)
(defvar mh-sent-from-folder nil
"Folder of msg assoc with this letter.")
narrowed.")
(make-variable-buffer-local 'mh-thread-scan-line-map-stack)
-(defvar mh-x-mailer-string nil
- "*String containing the contents of the X-Mailer header field.
+(defcustom mh-x-mailer-string nil
+ "String containing the contents of the X-Mailer header field.
If nil, this variable is initialized to show the version of MH-E,
-Emacs, and MH the first time a message is composed.")
-
+Emacs, and MH the first time a message is composed."
+ :group 'mh-e ; FIXME?
+ :type '(choice (const :tag "Default" nil) string))
\f
;;; MH-E Entry Points
:package-version '(MH-E . "8.0"))
(defvar mh-invisible-header-fields-compiled nil
- "*Regexp matching lines in a message header that are not to be shown.
+ "Regexp matching lines in a message header that are not to be shown.
Do not alter this variable directly. Instead, customize
`mh-invisible-header-fields-default' checking for fields normally
hidden that you wish to display, and add extra entries to hide in
;; want to change the column of the notations, use the `mh-set-cmd-note'
;; function.
-(defvar mh-scan-format-mh
+(defcustom mh-scan-format-mh
(concat
"%4(msg)"
"%<(cur)+%| %>"
"%<(mymbox{from})%<{to}To:%14(friendly{to})%>%>"
"%<(zero)%17(friendly{from})%> "
"%{subject}%<{body}<<%{body}%>")
- "*Scan format string for MH.
+ "Scan format string for MH.
This string is passed to the scan program via the -format
argument. This format is identical to the default except that
additional hints for fontification have been added to the fifth
the message has been replied to, t if an address on the To: line
matches one of the mailboxes of the current user, \"c\" if the Cc:
line matches, \"b\" if the Bcc: line matches, and \"n\" if a
-non-empty Newsgroups: header is present.")
+non-empty Newsgroups: header is present."
+ :group 'mh-scan-line-formats
+ :type 'string)
-(defvar mh-scan-format-nmh
+(defcustom mh-scan-format-nmh
(concat
"%4(msg)"
"%<(cur)+%| %>"
"%<(mymbox{from})%<{to}To:%14(decode(friendly{to}))%>%>"
"%<(zero)%17(decode(friendly{from}))%> "
"%(decode{subject})%<{body}<<%{body}%>")
- "*Scan format string for nmh.
+ "Scan format string for nmh.
This string is passed to the scan program via the -format arg.
This format is identical to the default except that additional
hints for fontification have been added to the fifth
the message has been replied to, t if an address on the To: field
matches one of the mailboxes of the current user, \"c\" if the Cc:
field matches, \"b\" if the Bcc: field matches, and \"n\" if a
-non-empty Newsgroups: field is present.")
+non-empty Newsgroups: field is present."
+ :group 'mh-scan-line-formats
+ :type 'string)
\f
:group 'pop3)
;; Should this be customizable?
-(defvar pop3-password nil
- "*Password to use when connecting to POP server.")
+(defcustom pop3-password nil
+ "Password to use when connecting to POP server."
+ :type '(choice (const nil) string)
+ :group 'pop3)
(defcustom pop3-authentication-scheme 'pass
"POP3 authentication scheme.
;;;###tramp-autoload
(defconst tramp-adb-method "adb"
- "*When this method name is used, forward all calls to Android Debug Bridge.")
+ "When this method name is used, forward all calls to Android Debug Bridge.")
;;;###tramp-autoload
(defcustom tramp-adb-prompt
;;; in the string when the whole string finally reaches its
;;; specified position.
+(defgroup animate nil
+ "Make text dance."
+ :group 'games
+ :prefix "animate-")
+
(defun animate-initialize (string vpos hpos)
(let ((characters nil))
(dotimes (i (length string))
(unless (eolp) (delete-char 1))
(insert-char char 1))
-(defvar animate-n-steps 10
-"*Number of steps `animate-string' will place a char before its last position.")
+(defcustom animate-n-steps 10
+ "Number of steps `animate-string' will place a char before its last position."
+ :type 'integer)
(defvar animation-buffer-name nil
"String naming the default buffer for animations.
(const :tag "Don't ask" silent))
:group 'plstore)
-(defvar plstore-encrypt-to nil
- "*Recipient(s) used for encrypting secret entries.
+(defcustom plstore-encrypt-to nil
+ "Recipient(s) used for encrypting secret entries.
May either be a string or a list of strings. If it is nil,
-symmetric encryption will be used.")
+symmetric encryption will be used."
+ :type '(choice (const nil) (repeat :tag "Recipient(s)" string))
+ :group 'plstore)
(put 'plstore-encrypt-to 'safe-local-variable
(lambda (val)
:type 'boolean
:group 'c)
-(defvar c-old-style-variable-behavior nil
- "*Enables the old style variable behavior when non-nil.
+(defcustom c-old-style-variable-behavior nil
+ "Enables the old style variable behavior when non-nil.
Normally the values of the style variables will override the style
settings specified by the variables `c-default-style' and
produce the same results for most old CC Mode configurations, since
all style variables are per default set in a special non-override
state. Set this variable only if your configuration has stopped
-working due to this change.")
+working due to this change."
+ :type 'boolean
+ :group 'c)
(define-widget 'c-extra-types-widget 'radio
"Internal CC Mode widget for the `*-font-lock-extra-types' variables."