Use regexp type for regexps in defcustom declarations
* lisp/calendar/diary-lib.el (diary-face-attrs): * lisp/cedet/semantic/db-ebrowse.el (semanticdb-ebrowse-file-match): * lisp/cedet/srecode/document.el (srecode-document-autocomment-common-nouns-abbrevs) (srecode-document-autocomment-function-alist) (srecode-document-autocomment-return-first-alist) (srecode-document-autocomment-return-last-alist) (srecode-document-autocomment-param-alist) (srecode-document-autocomment-param-type-alist): * lisp/desktop.el (desktop-clear-preserve-buffers): * lisp/elide-head.el (elide-head-headers-to-hide): * lisp/erc/erc-backend.el (erc-encoding-coding-alist): * lisp/erc/erc-ezbounce.el (erc-ezb-regexp): * lisp/files.el (auto-save-file-name-transforms): * lisp/gnus/deuglify.el (gnus-outlook-deuglify-attrib-cut-regexp) (gnus-outlook-deuglify-attrib-verb-regexp) (gnus-outlook-deuglify-attrib-end-regexp): * lisp/gnus/gnus-fun.el (gnus-x-face-omit-files, gnus-face-omit-files): * lisp/gnus/spam.el (spam-spamassassin-positive-spam-flag-header): * lisp/htmlfontify.el (hfy-src-doc-link-unstyle): * lisp/info-look.el (info-lookup-file-name-alist): * lisp/international/rfc1843.el (rfc1843-newsgroups-regexp): * lisp/mail/feedmail.el (feedmail-queue-slug-suspect-regexp): * lisp/mail/rmail-spam-filter.el (rsf-white-list, rsf-definitions-alist): * lisp/man.el (Man-name-local-regexp): * lisp/net/ange-ftp.el (ange-ftp-dumb-unix-host-regexp): * lisp/net/newst-backend.el (newsticker-auto-mark-filter-list): * lisp/net/rcirc.el (rcirc-authinfo, rcirc-coding-system-alist): * lisp/net/tramp-adb.el (tramp-adb-prompt): * lisp/org/org-agenda.el (org-agenda-hide-tags-regexp) (org-agenda-category-icon-alist): * lisp/org/org-protocol.el (org-protocol-data-separator): * lisp/org/org-table.el (org-table-number-regexp): * lisp/org/ox-latex.el (org-latex-known-warnings): * lisp/progmodes/bug-reference.el (bug-reference-bug-regexp): * lisp/progmodes/hideif.el (hide-ifdef-header-regexp): * lisp/progmodes/idlw-help.el (idlwave-help-doclib-name) (idlwave-help-doclib-keyword): * lisp/progmodes/idlwave.el (idlwave-no-change-comment): * lisp/progmodes/python.el (python-shell-prompt-input-regexps) (python-shell-prompt-output-regexps, python-shell-prompt-regexp) (python-shell-prompt-block-regexp, python-shell-prompt-output-regexp) (python-shell-prompt-pdb-regexp, python-shell-compilation-regexp-alist) (python-pdbtrack-stacktrace-info-regexp): * lisp/progmodes/sql.el (sql-send-terminator, sql-ansi-statement-starters): * lisp/speedbar.el (speedbar-directory-unshown-regexp) (speedbar-file-unshown-regexp): * lisp/textmodes/flyspell.el (flyspell-mark-duplications-exceptions) (flyspell-tex-command-regexp): * lisp/textmodes/paragraphs.el (sentence-end-base): * lisp/textmodes/tildify.el (tildify-pattern, tildify-space-pattern): * lisp/vc/ediff-init.el (ediff-metachars): * lisp/vc/vc-git.el (vc-git-root-log-format): * lisp/vc/vc-hg.el (vc-hg-root-log-format): * lisp/whitespace.el (whitespace-indentation-regexp) (whitespace-space-after-tab-regexp): * lisp/woman.el (woman-manpath-man-regexp) (woman-imenu-generic-expression): Use 'regexp' instead of 'string' as type for values that are regexps in defcustom declarations.
This commit is contained in:
Mattias Engdegård
parent
c980d21ae1
commit
af085ef40b
40 changed files with 76 additions and 76 deletions
|
|
@ -98,7 +98,7 @@ specifies which face attribute (e.g. `:foreground') to modify, or
|
|||
that this is a face (`:face') to apply. TYPE is the type of
|
||||
attribute being applied. Available TYPES (see `diary-attrtype-convert')
|
||||
are: `string', `symbol', `int', `tnil', `stringtnil'."
|
||||
:type '(repeat (list (string :tag "Regular expression")
|
||||
:type '(repeat (list (regexp :tag "Regular expression")
|
||||
(integer :tag "Sub-expression")
|
||||
(symbol :tag "Attribute (e.g. :foreground)")
|
||||
(choice (const string :tag "A string")
|
||||
|
|
|
|||
|
|
@ -74,7 +74,7 @@ By default, include only headers since the semantic use of EBrowse
|
|||
is only for searching via semanticdb, and thus only headers would
|
||||
be searched."
|
||||
:group 'semanticdb
|
||||
:type 'string)
|
||||
:type 'regexp)
|
||||
|
||||
;;; SEMANTIC Database related Code
|
||||
;;; Classes:
|
||||
|
|
|
|||
|
|
@ -89,7 +89,7 @@ versions of names. This is an alist with each element of the form:
|
|||
MATCH is a regexp to match in the type field.
|
||||
RESULT is a string."
|
||||
:group 'document
|
||||
:type '(repeat (cons (string :tag "Regexp")
|
||||
:type '(repeat (cons (regexp :tag "Regexp")
|
||||
(string :tag "Doc Text"))))
|
||||
|
||||
(defcustom srecode-document-autocomment-function-alist
|
||||
|
|
@ -145,7 +145,7 @@ see how best to describe what can be returned.
|
|||
Doesn't always work correctly, but that is just because English
|
||||
doesn't always work correctly."
|
||||
:group 'document
|
||||
:type '(repeat (cons (string :tag "Regexp")
|
||||
:type '(repeat (cons (regexp :tag "Regexp")
|
||||
(string :tag "Doc Text"))))
|
||||
|
||||
(defcustom srecode-document-autocomment-common-nouns-abbrevs
|
||||
|
|
@ -176,7 +176,7 @@ versions of names. This is an alist with each element of the form:
|
|||
MATCH is a regexp to match in the type field.
|
||||
RESULT is a string."
|
||||
:group 'document
|
||||
:type '(repeat (cons (string :tag "Regexp")
|
||||
:type '(repeat (cons (regexp :tag "Regexp")
|
||||
(string :tag "Doc Text"))))
|
||||
|
||||
(defcustom srecode-document-autocomment-return-first-alist
|
||||
|
|
@ -193,7 +193,7 @@ This is an alist with each element of the form:
|
|||
MATCH is a regexp to match in the type field.
|
||||
RESULT is a string."
|
||||
:group 'document
|
||||
:type '(repeat (cons (string :tag "Regexp")
|
||||
:type '(repeat (cons (regexp :tag "Regexp")
|
||||
(string :tag "Doc Text"))))
|
||||
|
||||
(defcustom srecode-document-autocomment-return-last-alist
|
||||
|
|
@ -214,7 +214,7 @@ MATCH is a regexp to match in the type field.
|
|||
RESULT is a string, which can contain %s, which is replaced with
|
||||
`match-string' 1."
|
||||
:group 'document
|
||||
:type '(repeat (cons (string :tag "Regexp")
|
||||
:type '(repeat (cons (regexp :tag "Regexp")
|
||||
(string :tag "Doc Text"))))
|
||||
|
||||
(defcustom srecode-document-autocomment-param-alist
|
||||
|
|
@ -234,7 +234,7 @@ RESULT is a string of text to use to describe MATCH.
|
|||
When one is encountered, document-insert-parameters will automatically
|
||||
place this comment after the parameter name."
|
||||
:group 'document
|
||||
:type '(repeat (cons (string :tag "Regexp")
|
||||
:type '(repeat (cons (regexp :tag "Regexp")
|
||||
(string :tag "Doc Text"))))
|
||||
|
||||
(defcustom srecode-document-autocomment-param-type-alist
|
||||
|
|
@ -259,7 +259,7 @@ This is an alist with each element of the form:
|
|||
MATCH is a regexp to match in the type field.
|
||||
RESULT is a string."
|
||||
:group 'document
|
||||
:type '(repeat (cons (string :tag "Regexp")
|
||||
:type '(repeat (cons (regexp :tag "Regexp")
|
||||
(string :tag "Doc Text"))))
|
||||
|
||||
;;;###autoload
|
||||
|
|
|
|||
|
|
@ -344,7 +344,7 @@ to the value obtained by evaluating FORM."
|
|||
Each element is a regular expression. Buffers with a name matched by any of
|
||||
these won't be deleted."
|
||||
:version "23.3" ; added Warnings - bug#6336
|
||||
:type '(repeat string)
|
||||
:type '(repeat regexp)
|
||||
:group 'desktop)
|
||||
|
||||
;;;###autoload
|
||||
|
|
|
|||
|
|
@ -64,8 +64,8 @@ elided with an invisible overlay from the end of the line where the
|
|||
first match is found to the end of the match for the corresponding
|
||||
cdr."
|
||||
:group 'elide-head
|
||||
:type '(alist :key-type (string :tag "Start regexp")
|
||||
:value-type (string :tag "End regexp")))
|
||||
:type '(alist :key-type (regexp :tag "Start regexp")
|
||||
:value-type (regexp :tag "End regexp")))
|
||||
|
||||
(defvar elide-head-overlay nil)
|
||||
(make-variable-buffer-local 'elide-head-overlay)
|
||||
|
|
|
|||
|
|
@ -375,7 +375,7 @@ Example: If you know that the channel #linux-ru uses the coding-system
|
|||
`cyrillic-koi8', then add (\"#linux-ru\" . cyrillic-koi8) to the
|
||||
alist."
|
||||
:group 'erc-server
|
||||
:type '(repeat (cons (string :tag "Target")
|
||||
:type '(repeat (cons (regexp :tag "Target")
|
||||
coding-system)))
|
||||
|
||||
(defcustom erc-server-connect-function #'erc-open-network-stream
|
||||
|
|
|
|||
|
|
@ -34,7 +34,7 @@
|
|||
(defcustom erc-ezb-regexp "^ezbounce!srv$"
|
||||
"Regexp used by the EZBouncer to identify itself to the user."
|
||||
:group 'erc-ezbounce
|
||||
:type 'string)
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom erc-ezb-login-alist '()
|
||||
"Alist of logins suitable for the server we're connecting to.
|
||||
|
|
|
|||
|
|
@ -405,7 +405,7 @@ editing a remote file.
|
|||
On MS-DOS filesystems without long names this variable is always
|
||||
ignored."
|
||||
:group 'auto-save
|
||||
:type '(repeat (list (string :tag "Regexp") (string :tag "Replacement")
|
||||
:type '(repeat (list (regexp :tag "Regexp") (string :tag "Replacement")
|
||||
(boolean :tag "Uniquify")))
|
||||
:initialize 'custom-initialize-delay
|
||||
:version "21.1")
|
||||
|
|
|
|||
|
|
@ -266,21 +266,21 @@
|
|||
"\\(On \\|Am \\)?\\(Mon\\|Tue\\|Wed\\|Thu\\|Fri\\|Sat\\|Sun\\),[^,]+, "
|
||||
"Regular expression matching the beginning of an attribution line that should be cut off."
|
||||
:version "22.1"
|
||||
:type 'string
|
||||
:type 'regexp
|
||||
:group 'gnus-outlook-deuglify)
|
||||
|
||||
(defcustom gnus-outlook-deuglify-attrib-verb-regexp
|
||||
"wrote\\|writes\\|says\\|schrieb\\|schreibt\\|meinte\\|skrev\\|a écrit\\|schreef\\|escribió"
|
||||
"Regular expression matching the verb used in an attribution line."
|
||||
:version "22.1"
|
||||
:type 'string
|
||||
:type 'regexp
|
||||
:group 'gnus-outlook-deuglify)
|
||||
|
||||
(defcustom gnus-outlook-deuglify-attrib-end-regexp
|
||||
": *\\|\\.\\.\\."
|
||||
"Regular expression matching the end of an attribution line."
|
||||
:version "22.1"
|
||||
:type 'string
|
||||
:type 'regexp
|
||||
:group 'gnus-outlook-deuglify)
|
||||
|
||||
(defcustom gnus-outlook-display-hook nil
|
||||
|
|
|
|||
|
|
@ -40,7 +40,7 @@
|
|||
"Regexp to match faces in `gnus-x-face-directory' to be omitted."
|
||||
:version "25.1"
|
||||
:group 'gnus-fun
|
||||
:type '(choice (const nil) string))
|
||||
:type '(choice (const nil) regexp))
|
||||
|
||||
(defcustom gnus-face-directory (expand-file-name "faces" gnus-directory)
|
||||
"Directory where Face PNG files are stored."
|
||||
|
|
@ -52,7 +52,7 @@
|
|||
"Regexp to match faces in `gnus-face-directory' to be omitted."
|
||||
:version "25.1"
|
||||
:group 'gnus-fun
|
||||
:type '(choice (const nil) string))
|
||||
:type '(choice (const nil) regexp))
|
||||
|
||||
(defcustom gnus-convert-pbm-to-x-face-command "pbmtoxbm %s | compface"
|
||||
"Command for converting a PBM to an X-Face."
|
||||
|
|
|
|||
|
|
@ -579,7 +579,7 @@ This must be a list. For example, `(\"-C\" \"configfile\")'."
|
|||
(defcustom spam-spamassassin-positive-spam-flag-header "YES"
|
||||
"The regex on `spam-spamassassin-spam-flag-header' for positive spam
|
||||
identification."
|
||||
:type 'string
|
||||
:type 'regexp
|
||||
:group 'spam-spamassassin)
|
||||
|
||||
(defcustom spam-spamassassin-spam-status-header "X-Spam-Status"
|
||||
|
|
|
|||
|
|
@ -197,7 +197,7 @@ It takes only one argument, the filename."
|
|||
"Regex to remove from the `<style> a' variant of an htmlfontify CSS class."
|
||||
:group 'htmlfontify
|
||||
:tag "src-doc-link-unstyle"
|
||||
:type '(string))
|
||||
:type '(regexp))
|
||||
|
||||
(defcustom hfy-link-extn nil
|
||||
"File extension used for href links.
|
||||
|
|
|
|||
|
|
@ -75,7 +75,7 @@ List elements are cons cells of the form
|
|||
|
||||
If a file name matches REGEXP, then use help mode MODE instead of the
|
||||
buffer's major mode."
|
||||
:group 'info-lookup :type '(repeat (cons (string :tag "Regexp")
|
||||
:group 'info-lookup :type '(repeat (cons (regexp :tag "Regexp")
|
||||
(symbol :tag "Mode"))))
|
||||
|
||||
(defvar info-lookup-history nil
|
||||
|
|
|
|||
|
|
@ -60,7 +60,7 @@ e-mail transmission, news posting, etc."
|
|||
|
||||
(defcustom rfc1843-newsgroups-regexp "chinese\\|hz"
|
||||
"Regexp of newsgroups in which might be HZ encoded."
|
||||
:type 'string
|
||||
:type 'regexp
|
||||
:group 'mime)
|
||||
|
||||
(defun rfc1843-decode-region (from to)
|
||||
|
|
|
|||
|
|
@ -1203,7 +1203,7 @@ no longer matches to transformed string. Used by function
|
|||
feedmail-tidy-up-slug and indirectly by feedmail-queue-subject-slug-maker."
|
||||
:version "24.1"
|
||||
:group 'feedmail-queue
|
||||
:type 'string
|
||||
:type 'regexp
|
||||
)
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -133,7 +133,7 @@ If any element matches the \"From\" header, the message is
|
|||
flagged as a valid, non-spam message. E.g., if your domain is
|
||||
\"emacs.com\" then including \"emacs\\\\.com\" in this list would
|
||||
flag all mail (purporting to be) from your colleagues as valid."
|
||||
:type '(repeat string)
|
||||
:type '(repeat regexp)
|
||||
:group 'rmail-spam-filter)
|
||||
|
||||
(defcustom rsf-definitions-alist nil
|
||||
|
|
@ -157,22 +157,22 @@ A rule matches only if all the specified elements match."
|
|||
(list :format "%v"
|
||||
(cons :format "%v" :value (from . "")
|
||||
(const :format "" from)
|
||||
(string :tag "From" ""))
|
||||
(regexp :tag "From" ""))
|
||||
(cons :format "%v" :value (to . "")
|
||||
(const :format "" to)
|
||||
(string :tag "To" ""))
|
||||
(regexp :tag "To" ""))
|
||||
(cons :format "%v" :value (subject . "")
|
||||
(const :format "" subject)
|
||||
(string :tag "Subject" ""))
|
||||
(regexp :tag "Subject" ""))
|
||||
(cons :format "%v" :value (content-type . "")
|
||||
(const :format "" content-type)
|
||||
(string :tag "Content-Type" ""))
|
||||
(regexp :tag "Content-Type" ""))
|
||||
(cons :format "%v" :value (contents . "")
|
||||
(const :format "" contents)
|
||||
(string :tag "Contents" ""))
|
||||
(regexp :tag "Contents" ""))
|
||||
(cons :format "%v" :value (x-spam-status . "")
|
||||
(const :format "" x-spam-status)
|
||||
(string :tag "X-Spam-Status" ""))
|
||||
(regexp :tag "X-Spam-Status" ""))
|
||||
(cons :format "%v" :value (action . output-and-delete)
|
||||
(const :format "" action)
|
||||
(choice :tag "Action selection"
|
||||
|
|
|
|||
|
|
@ -253,7 +253,7 @@ the associated section number."
|
|||
"Regexp that matches the text that precedes the command's name.
|
||||
Used in `bookmark-set' to get the default bookmark name."
|
||||
:version "24.1"
|
||||
:type 'string :group 'bookmark)
|
||||
:type 'regexp :group 'bookmark)
|
||||
|
||||
(defcustom manual-program "man"
|
||||
"Program used by `man' to produce man pages."
|
||||
|
|
|
|||
|
|
@ -838,7 +838,7 @@ If nil, prompt the user for a password."
|
|||
"If non-nil, regexp matching hosts on which `dir' command lists directory."
|
||||
:group 'ange-ftp
|
||||
:type '(choice (const :tag "Default" nil)
|
||||
string))
|
||||
regexp))
|
||||
|
||||
(defcustom ange-ftp-binary-file-name-regexp ""
|
||||
"If a file matches this regexp then it is transferred in binary mode."
|
||||
|
|
|
|||
|
|
@ -363,7 +363,7 @@ description are marked as immortal."
|
|||
(const :tag "Title" title)
|
||||
(const :tag "Description" description)
|
||||
(const :tag "All" all))
|
||||
(string :tag "Regexp")))))
|
||||
(regexp :tag "Regexp")))))
|
||||
:group 'newsticker-headline-processing)
|
||||
|
||||
;; ======================================================================
|
||||
|
|
|
|||
|
|
@ -254,7 +254,7 @@ Examples:
|
|||
(\"bitlbee\" bitlbee \"robert\" \"sekrit\")
|
||||
(\"dal.net\" nickserv \"bob\" \"sekrit\" \"NickServ@services.dal.net\")
|
||||
(\"quakenet.org\" quakenet \"bobby\" \"sekrit\"))"
|
||||
:type '(alist :key-type (string :tag "Server")
|
||||
:type '(alist :key-type (regexp :tag "Server")
|
||||
:value-type (choice (list :tag "NickServ"
|
||||
(const nickserv)
|
||||
(string :tag "Nick")
|
||||
|
|
@ -359,9 +359,9 @@ If VAL is a coding system, it is used for both decoding and encoding
|
|||
messages.
|
||||
If VAL is a cons of coding systems, the car part is used for decoding,
|
||||
and the cdr part is used for encoding."
|
||||
:type '(alist :key-type (choice (string :tag "Channel Regexp")
|
||||
(cons (string :tag "Channel Regexp")
|
||||
(string :tag "Server Regexp")))
|
||||
:type '(alist :key-type (choice (regexp :tag "Channel Regexp")
|
||||
(cons (regexp :tag "Channel Regexp")
|
||||
(regexp :tag "Server Regexp")))
|
||||
:value-type (choice coding-system
|
||||
(cons (coding-system :tag "Decode")
|
||||
(coding-system :tag "Encode")))))
|
||||
|
|
|
|||
|
|
@ -58,7 +58,7 @@ It is used for TCP/IP devices."
|
|||
(defcustom tramp-adb-prompt
|
||||
"^[[:digit:]]*|?[[:alnum:]\e;[]*@?[[:alnum:]]*[^#\\$]*[#\\$][[:space:]]"
|
||||
"Regexp used as prompt in almquist shell."
|
||||
:type 'string
|
||||
:type 'regexp
|
||||
:version "24.4"
|
||||
:group 'tramp)
|
||||
|
||||
|
|
|
|||
|
|
@ -1883,7 +1883,7 @@ Nil means don't hide any tags."
|
|||
:group 'org-agenda-line-format
|
||||
:type '(choice
|
||||
(const :tag "Hide none" nil)
|
||||
(string :tag "Regexp ")))
|
||||
(regexp :tag "Regexp ")))
|
||||
|
||||
(defvaralias 'org-agenda-remove-tags-when-in-prefix
|
||||
'org-agenda-remove-tags)
|
||||
|
|
@ -1980,7 +1980,7 @@ category, you can use:
|
|||
(\"Emacs\" \\='(space . (:width (16))))"
|
||||
:group 'org-agenda-line-format
|
||||
:version "24.1"
|
||||
:type '(alist :key-type (string :tag "Regexp matching category")
|
||||
:type '(alist :key-type (regexp :tag "Regexp matching category")
|
||||
:value-type (choice (list :tag "Icon"
|
||||
(string :tag "File or data")
|
||||
(symbol :tag "Type")
|
||||
|
|
|
|||
|
|
@ -278,7 +278,7 @@ This should be a single regexp string."
|
|||
:group 'org-protocol
|
||||
:version "24.4"
|
||||
:package-version '(Org . "8.0")
|
||||
:type 'string)
|
||||
:type 'regexp)
|
||||
|
||||
;;; Helper functions:
|
||||
|
||||
|
|
|
|||
|
|
@ -198,7 +198,7 @@ Other options offered by the customize interface are more restrictive."
|
|||
"^\\([<>]?[-+^.0-9]*[0-9][-+^.0-9eEdDx()%]*\\|[<>]?[-+]?0[xX][[:xdigit:].]+\\|[<>]?[-+]?[0-9]+#[0-9a-zA-Z.]+\\|nan\\|[-+u]?inf\\)$")
|
||||
(const :tag "Very General Number-Like, including hex and Calc radix, allows comma as decimal mark"
|
||||
"^\\([<>]?[-+^.,0-9]*[0-9][-+^.0-9eEdDx()%]*\\|[<>]?[-+]?0[xX][[:xdigit:].]+\\|[<>]?[-+]?[0-9]+#[0-9a-zA-Z.]+\\|nan\\|[-+u]?inf\\)$")
|
||||
(string :tag "Regexp:")))
|
||||
(regexp :tag "Regexp:")))
|
||||
|
||||
(defcustom org-table-number-fraction 0.5
|
||||
"Fraction of numbers in a column required to make the column align right.
|
||||
|
|
|
|||
|
|
@ -1239,7 +1239,7 @@ calling `org-latex-compile'."
|
|||
:package-version '(Org . "8.3")
|
||||
:type '(repeat
|
||||
(cons
|
||||
(string :tag "Regexp")
|
||||
(regexp :tag "Regexp")
|
||||
(string :tag "Message"))))
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -72,7 +72,7 @@ so that it is considered safe, see `enable-local-variables'.")
|
|||
"\\([Bb]ug ?#?\\|[Pp]atch ?#\\|RFE ?#\\|PR [a-z+-]+/\\)\\([0-9]+\\(?:#[0-9]+\\)?\\)"
|
||||
"Regular expression matching bug references.
|
||||
The second subexpression should match the bug reference (usually a number)."
|
||||
:type 'string
|
||||
:type 'regexp
|
||||
:version "24.3" ; previously defconst
|
||||
:group 'bug-reference)
|
||||
|
||||
|
|
|
|||
|
|
@ -162,7 +162,7 @@ This behavior is generally undesirable. If this option is non-nil, the outermos
|
|||
"\\.h\\(h\\|xx\\|pp\\|\\+\\+\\)?\\'"
|
||||
"C/C++ header file name patterns to determine if current buffer is a header.
|
||||
Effective only if `hide-ifdef-expand-reinclusion-protection' is t."
|
||||
:type 'string
|
||||
:type 'regexp
|
||||
:version "25.1")
|
||||
|
||||
(defvar hide-ifdef-mode-submap
|
||||
|
|
|
|||
|
|
@ -182,14 +182,14 @@ definition is displayed instead."
|
|||
which specifies the `name' section. Can be used for localization
|
||||
support."
|
||||
:group 'idlwave-online-help
|
||||
:type 'string)
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom idlwave-help-doclib-keyword "KEYWORD"
|
||||
"A regexp for the heading word to search for in doclib headers
|
||||
which specifies the `keywords' section. Can be used for localization
|
||||
support."
|
||||
:group 'idlwave-online-help
|
||||
:type 'string)
|
||||
:type 'regexp)
|
||||
|
||||
(defface idlwave-help-link
|
||||
'((t :inherit link))
|
||||
|
|
|
|||
|
|
@ -314,7 +314,7 @@ split then a terminal beep and warning are issued."
|
|||
expression will not be changed. Note that the indentation of a comment
|
||||
at the beginning of a line is never changed."
|
||||
:group 'idlwave-code-formatting
|
||||
:type 'string)
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom idlwave-begin-line-comment nil
|
||||
"A comment anchored at the beginning of line.
|
||||
|
|
|
|||
|
|
@ -1993,7 +1993,7 @@ position, else returns nil."
|
|||
;; IPython prompts activated, this adds some safeguard for that.
|
||||
"In : " "\\.\\.\\.: ")
|
||||
"List of regular expressions matching input prompts."
|
||||
:type '(repeat string)
|
||||
:type '(repeat regexp)
|
||||
:version "24.4")
|
||||
|
||||
(defcustom python-shell-prompt-output-regexps
|
||||
|
|
@ -2001,28 +2001,28 @@ position, else returns nil."
|
|||
"Out\\[[0-9]+\\]: " ; IPython
|
||||
"Out :") ; ipdb safeguard
|
||||
"List of regular expressions matching output prompts."
|
||||
:type '(repeat string)
|
||||
:type '(repeat regexp)
|
||||
:version "24.4")
|
||||
|
||||
(defcustom python-shell-prompt-regexp ">>> "
|
||||
"Regular expression matching top level input prompt of Python shell.
|
||||
It should not contain a caret (^) at the beginning."
|
||||
:type 'string)
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom python-shell-prompt-block-regexp "\\.\\.\\.:? "
|
||||
"Regular expression matching block input prompt of Python shell.
|
||||
It should not contain a caret (^) at the beginning."
|
||||
:type 'string)
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom python-shell-prompt-output-regexp ""
|
||||
"Regular expression matching output prompt of Python shell.
|
||||
It should not contain a caret (^) at the beginning."
|
||||
:type 'string)
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom python-shell-prompt-pdb-regexp "[(<]*[Ii]?[Pp]db[>)]+ "
|
||||
"Regular expression matching pdb input prompt of Python shell.
|
||||
It should not contain a caret (^) at the beginning."
|
||||
:type 'string)
|
||||
:type 'regexp)
|
||||
|
||||
(define-obsolete-variable-alias
|
||||
'python-shell-enable-font-lock 'python-shell-font-lock-enable "25.1")
|
||||
|
|
@ -2111,7 +2111,7 @@ virtualenv."
|
|||
"(" (group (1+ digit)) ")" (1+ (not (any "("))) "()")
|
||||
1 2))
|
||||
"`compilation-error-regexp-alist' for inferior Python."
|
||||
:type '(alist string)
|
||||
:type '(alist regexp)
|
||||
:group 'python)
|
||||
|
||||
(defmacro python-shell--add-to-path-with-priority (pathvar paths)
|
||||
|
|
@ -3785,7 +3785,7 @@ the top stack frame has been reached.
|
|||
|
||||
Filename is expected in the first parenthesized expression.
|
||||
Line number is expected in the second parenthesized expression."
|
||||
:type 'string
|
||||
:type 'regexp
|
||||
:version "27.1"
|
||||
:safe 'stringp)
|
||||
|
||||
|
|
|
|||
|
|
@ -905,7 +905,7 @@ it automatically."
|
|||
(const :tag "Default Terminator" t)
|
||||
(string :tag "Terminator String")
|
||||
(cons :tag "Terminator Pattern and String"
|
||||
(string :tag "Terminator Pattern")
|
||||
(regexp :tag "Terminator Pattern")
|
||||
(string :tag "Terminator String")))
|
||||
:version "22.2"
|
||||
:group 'SQL)
|
||||
|
|
@ -1033,7 +1033,7 @@ All products share this list; products should define a regexp to
|
|||
identify additional keywords in a variable defined by
|
||||
the :statement feature."
|
||||
:version "24.1"
|
||||
:type 'string
|
||||
:type 'regexp
|
||||
:group 'SQL)
|
||||
|
||||
;; Customization for Oracle
|
||||
|
|
|
|||
|
|
@ -641,7 +641,7 @@ They should include commonly existing directories which are not
|
|||
useful. It is no longer necessary to include version-control
|
||||
directories here; see `vc-directory-exclusion-list'."
|
||||
:group 'speedbar
|
||||
:type 'string)
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom speedbar-file-unshown-regexp
|
||||
(let ((nstr "") (noext completion-ignored-extensions))
|
||||
|
|
@ -654,7 +654,7 @@ directories here; see `vc-directory-exclusion-list'."
|
|||
"Regexp matching files we don't want displayed in a speedbar buffer.
|
||||
It is generated from the variable `completion-ignored-extensions'."
|
||||
:group 'speedbar
|
||||
:type 'string)
|
||||
:type 'regexp)
|
||||
|
||||
(defvar speedbar-file-regexp nil
|
||||
"Regular expression matching files we know how to expand.
|
||||
|
|
|
|||
|
|
@ -89,7 +89,7 @@ EXCEPTION-LIST is a list of strings. The checked word is
|
|||
downcased before comparing with these exceptions."
|
||||
:group 'flyspell
|
||||
:type '(alist :key-type (choice (const :tag "All dictionaries" nil)
|
||||
string)
|
||||
regexp)
|
||||
:value-type (repeat string))
|
||||
:version "24.1")
|
||||
|
||||
|
|
@ -234,7 +234,7 @@ Ispell's ultimate default dictionary."
|
|||
"A string that is the regular expression that matches TeX commands."
|
||||
:group 'flyspell
|
||||
:version "21.1"
|
||||
:type 'string)
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom flyspell-check-tex-math-command nil
|
||||
"Non-nil means check even inside TeX math environment.
|
||||
|
|
|
|||
|
|
@ -168,7 +168,7 @@ to obtain the value of this variable."
|
|||
(defcustom sentence-end-base "[.?!…‽][]\"'”’)}»›]*"
|
||||
"Regexp matching the basic end of a sentence, not including following space."
|
||||
:group 'paragraphs
|
||||
:type 'string
|
||||
:type 'regexp
|
||||
:version "25.1")
|
||||
(put 'sentence-end-base 'safe-local-variable 'stringp)
|
||||
|
||||
|
|
|
|||
|
|
@ -67,7 +67,7 @@ matching the white space). The pattern is matched case-sensitive regardless of
|
|||
the value of `case-fold-search' setting."
|
||||
:version "25.1"
|
||||
:group 'tildify
|
||||
:type 'string
|
||||
:type 'regexp
|
||||
:safe t)
|
||||
|
||||
(defcustom tildify-pattern-alist ()
|
||||
|
|
@ -417,7 +417,7 @@ of a space at point. The regexp is always case sensitive, regardless of the
|
|||
current `case-fold-search' setting."
|
||||
:version "25.1"
|
||||
:group 'tildify
|
||||
:type 'string)
|
||||
:type 'regexp)
|
||||
|
||||
(defcustom tildify-space-predicates '(tildify-space-region-predicate)
|
||||
"A list of predicate functions for `tildify-space' function."
|
||||
|
|
|
|||
|
|
@ -1282,7 +1282,7 @@ Do not start with `~/' or `~USERNAME/'."
|
|||
(defcustom ediff-metachars "[ \t\n!\"#$&'()*;<=>?[\\^`{|~]"
|
||||
"Regexp that matches characters that must be quoted with `\\' in shell command line.
|
||||
This default should work without changes."
|
||||
:type 'string
|
||||
:type 'regexp
|
||||
:group 'ediff)
|
||||
|
||||
;; needed to simulate frame-char-width in XEmacs.
|
||||
|
|
|
|||
|
|
@ -166,7 +166,7 @@ format string (which is passed to \"git log\" via the argument
|
|||
\"--pretty=tformat:FORMAT\"), REGEXP is a regular expression
|
||||
matching the resulting Git log output, and KEYWORDS is a list of
|
||||
`font-lock-keywords' for highlighting the Log View buffer."
|
||||
:type '(list string string (repeat sexp))
|
||||
:type '(list string regexp (repeat sexp))
|
||||
:version "24.1")
|
||||
|
||||
(defcustom vc-git-commits-coding-system 'utf-8
|
||||
|
|
|
|||
|
|
@ -182,7 +182,7 @@ is the \"--template\" argument string to pass to Mercurial,
|
|||
REGEXP is a regular expression matching the resulting Mercurial
|
||||
output, and KEYWORDS is a list of `font-lock-keywords' for
|
||||
highlighting the Log View buffer."
|
||||
:type '(list string string (repeat sexp))
|
||||
:type '(list string regexp (repeat sexp))
|
||||
:group 'vc-hg
|
||||
:version "24.5")
|
||||
|
||||
|
|
|
|||
|
|
@ -716,8 +716,8 @@ and the cons cdr is used for TABs visualization.
|
|||
|
||||
Used when `whitespace-style' includes `indentation',
|
||||
`indentation::tab' or `indentation::space'."
|
||||
:type '(cons (string :tag "Indentation SPACEs")
|
||||
(string :tag "Indentation TABs"))
|
||||
:type '(cons (regexp :tag "Indentation SPACEs")
|
||||
(regexp :tag "Indentation TABs"))
|
||||
:group 'whitespace)
|
||||
|
||||
|
||||
|
|
@ -747,8 +747,8 @@ and the cons cdr is used for TABs visualization.
|
|||
|
||||
Used when `whitespace-style' includes `space-after-tab',
|
||||
`space-after-tab::tab' or `space-after-tab::space'."
|
||||
:type '(cons (string :tag "SPACEs After TAB")
|
||||
string)
|
||||
:type '(cons (regexp :tag "SPACEs After TAB")
|
||||
regexp)
|
||||
:group 'whitespace)
|
||||
|
||||
(defcustom whitespace-big-indent-regexp
|
||||
|
|
|
|||
|
|
@ -674,7 +674,7 @@ These normally have names of the form `man?'. Its default value is
|
|||
\"[Mm][Aa][Nn]\", which is case-insensitive mainly for the benefit of
|
||||
Microsoft platforms. Its purpose is to avoid `cat?', `.', `..', etc."
|
||||
;; Based on a suggestion by Wei-Xue Shi.
|
||||
:type 'string
|
||||
:type 'regexp
|
||||
:group 'woman-interface)
|
||||
|
||||
(defcustom woman-path
|
||||
|
|
@ -753,7 +753,7 @@ Default is t."
|
|||
An alist with elements of the form (MENU-TITLE REGEXP INDEX) --
|
||||
see the documentation for `imenu-generic-expression'."
|
||||
:type '(alist :key-type (choice :tag "Title" (const nil) string)
|
||||
:value-type (group (choice (string :tag "Regexp")
|
||||
:value-type (group (choice (regexp :tag "Regexp")
|
||||
function)
|
||||
integer))
|
||||
:group 'woman-interface)
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue