Commit 26add1bf authored by Karl Heuer's avatar Karl Heuer
Browse files

Don't use triple-hyphen in a character class.

parent 96a410bc
......@@ -284,7 +284,7 @@ Prefix arg means justify as well."
(fill-paragraph justify)))
(defvar add-log-current-defun-header-regexp
"^\\([A-Z][A-Z_ ]*[A-Z_]\\|[a-z_---A-Z]+\\)[ \t]*[:=]"
"^\\([A-Z][A-Z_ ]*[A-Z_]\\|[-_a-zA-Z]+\\)[ \t]*[:=]"
"*Heuristic regexp used by `add-log-current-defun' for unknown major modes.")
(defun add-log-current-defun ()
......
......@@ -857,7 +857,7 @@ SIZE, if supplied, should be a prime number."
;;;; Internal variables.
;;;; ------------------------------------------------------------
(defconst ange-ftp-version "$Revision: 1.42 $")
(defconst ange-ftp-version "$Revision: 1.43 $")
(defvar ange-ftp-data-buffer-name " *ftp data*"
"Buffer name to hold directory listing data received from ftp process.")
......@@ -4502,8 +4502,8 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
(defconst ange-ftp-vms-filename-regexp
(concat
"\\(\\([_A-Za-z0-9$]?\\|[_A-Za-z0-9$][_A-Za-z0-9$---]*\\)\\."
"[_A-Za-z0-9$---]*;+[0-9]*\\)")
"\\(\\([_A-Za-z0-9$]?\\|[_A-Za-z0-9$][-_A-Za-z0-9$]*\\)\\."
"[-_A-Za-z0-9$]*;+[0-9]*\\)")
"Regular expression to match for a valid VMS file name in Dired buffer.
Stupid freaking bug! Position of _ and $ shouldn't matter but they do.
Having [A-Z0-9$_] bombs on filename _$$CHANGE_LOG$.TXT$ and $CHANGE_LOG$.TX
......
......@@ -279,7 +279,7 @@ with a prefix argument."
;; Quote everything except POSIX filename characters.
;; This should be safe enough even for really weird shells.
(let ((result "") (start 0) end)
(while (string-match "[^---0-9a-zA-Z_./]" filename start)
(while (string-match "[^-0-9a-zA-Z_./]" filename start)
(setq end (match-beginning 0)
result (concat result (substring filename start end)
"\\" (substring filename end (1+ end)))
......
......@@ -2061,7 +2061,7 @@ With a prefix argument you can edit the current listing switches instead."
(let (case-fold-search)
(concat
"-l"
(dired-replace-in-string (concat "[---lt"
(dired-replace-in-string (concat "[-lt"
dired-ls-sorting-switches "]")
""
dired-actual-switches)
......
......@@ -1330,8 +1330,8 @@ we do not remove backup version numbers, only true file version numbers."
;; sign, zero or more digits, provided this is the
;; second period encountered outside of the
;; device/directory part of the file name.
(or (string-match ";[---+]?[0-9]*\\'" name)
(if (string-match "\\.[^]>:]*\\(\\.[---+]?[0-9]*\\)\\'"
(or (string-match ";[-+]?[0-9]*\\'" name)
(if (string-match "\\.[^]>:]*\\(\\.[-+]?[0-9]*\\)\\'"
name)
(match-beginning 1))
(length name))
......
......@@ -2,7 +2,7 @@
;; Copyright (C) 1987, 1988, 1989, 1990, 1993 Free Software Foundation, Inc.
;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp>
;; Version: $Header: /gd/gnu/emacs/19.0/lisp/RCS/gnus.el,v 1.32 1994/01/08 12:46:53 rms Exp kwzh $
;; Version: $Header: /gd/gnu/emacs/19.0/lisp/RCS/gnus.el,v 1.33 1994/02/11 21:56:45 kwzh Exp kwzh $
;; Keywords: news
;; This file is part of GNU Emacs.
......@@ -2350,7 +2350,7 @@ the same subject will be searched for."
(regexp
(format "^%s[ \t]+\\([0-9]+\\):.\\[[^]\r\n]*\\][ \t]+%s"
;;(if unread " " ".")
(cond ((eq unread t) " ") (unread "[ ---]") (t "."))
(cond ((eq unread t) " ") (unread "[- ]") (t "."))
(if subject
(concat "\\([Rr][Ee]:[ \t]+\\)*"
(regexp-quote (gnus-simplify-subject subject))
......@@ -3318,7 +3318,7 @@ Argument COUNT specifies number of articles unmarked"
(let ((buffer-read-only nil))
(save-excursion
(goto-char (point-min))
(delete-non-matching-lines "^[ ---]"))
(delete-non-matching-lines "^[- ]"))
;; Adjust point.
(if (eobp)
(gnus-summary-prev-subject 1)
......@@ -6635,7 +6635,7 @@ If optional argument RAWFILE is non-nil, the raw startup file is read."
;; Parse each newsgroup description such as "comp.all". Commas
;; and white spaces can be a newsgroup separator.
(while
(string-match "^[ \t\n,]*\\(!?\\)\\([^--- \t\n,][^ \t\n,]*\\)" options)
(string-match "^[ \t\n,]*\\(!?\\)\\([^- \t\n,][^ \t\n,]*\\)" options)
(setq yes-or-no
(substring options (match-beginning 1) (match-end 1)))
(setq newsgroup
......
......@@ -797,7 +797,7 @@ The fill lines remain a comment."
;;
;; ; overloadable operators
;; (op-sym1
;; "[---+*/%^&|~!=<>]\\|[---+*/%^&|<>=!]=\\|<<=?\\|>>=?")
;; "[-+*/%^&|~!=<>]\\|[-+*/%^&|<>=!]=\\|<<=?\\|>>=?")
;; (op-sym2
;; "&&\\|||\\|\\+\\+\\|--\\|()\\|\\[\\]")
;; (op-sym (concat "\\(" op-sym1 "\\|" op-sym2 "\\)"))
......
......@@ -671,7 +671,7 @@ Wildcards and redirection are handled as usual in the shell."
;; Quote everything except POSIX filename characters.
;; This should be safe enough even for really weird shells.
(let ((result "") (start 0) end)
(while (string-match "[^---0-9a-zA-Z_./]" argument start)
(while (string-match "[^-0-9a-zA-Z_./]" argument start)
(setq end (match-beginning 0)
result (concat result (substring argument start end)
"\\" (substring argument end (1+ end)))
......
......@@ -388,30 +388,30 @@ started ispell process.")
;;;###autoload
(defvar ispell-dictionary-alist ; sk 9-Aug-1991 18:28
'((nil ; default (english.aff)
"[A-Za-z]" "[^A-Za-z]" "[---']" nil ("-B") nil)
"[A-Za-z]" "[^A-Za-z]" "[-']" nil ("-B") nil)
("english" ; make english explicitly selectable
"[A-Za-z]" "[^A-Za-z]" "[---']" nil ("-B") nil)
"[A-Za-z]" "[^A-Za-z]" "[-']" nil ("-B") nil)
("deutsch" ; deutsch.aff
"[a-zA-Z\"]" "[^a-zA-Z\"]" "[---']" t ("-C") nil)
"[a-zA-Z\"]" "[^a-zA-Z\"]" "[-']" t ("-C") nil)
("deutsch8"
"[a-zA-Z\304\326\334\344\366\337\374]"
"[^a-zA-Z\304\326\334\344\366\337\374]"
"[---']" t ("-C" "-d" "deutsch") "~latin1")
"[-']" t ("-C" "-d" "deutsch") "~latin1")
("nederlands8" ; dutch8.aff
"[A-Za-z\300-\305\307\310-\317\322-\326\331-\334\340-\345\347\350-\357\361\362-\366\371-\374]"
"[^A-Za-z\300-\305\307\310-\317\322-\326\331-\334\340-\345\347\350-\357\361\362-\366\371-\374]"
"[---']" t ("-C") nil)
"[-']" t ("-C") nil)
("svenska" ;7 bit swedish mode
"[A-Za-z}{|\\133\\135\\\\]" "[^A-Za-z}{|\\133\\135\\\\]"
"[---']" nil ("-C") nil)
"[-']" nil ("-C") nil)
("svenska8" ;8 bit swedish mode
"[A-Za-z\345\344\366\305\304\366]" "[^A-Za-z\345\344\366\305\304\366]"
"[---']" nil ("-C" "-d" "svenska") "~list") ; Add `"-T" "list"' instead?
"[-']" nil ("-C" "-d" "svenska") "~list") ; Add `"-T" "list"' instead?
("francais"
"[A-Za-z]" "[^A-Za-z]" "[---`'\^]" nil nil nil)
"[A-Za-z]" "[^A-Za-z]" "[-`'\^]" nil nil nil)
("dansk" ; dansk.aff
"[A-Z\306\330\305a-z\346\370\345]" "[^A-Z\306\330\305a-z\346\370\345]"
"[---]" nil ("-C") nil)
"[-]" nil ("-C") nil)
)
"An alist of dictionaries and their associated parameters.
......@@ -1484,7 +1484,7 @@ With prefix argument, set the default directory."
(re-search-forward "[][()$]" limit t))
(setq string (concat "^" (buffer-substring start limit) "\n")))
(goto-char limit))))
((looking-at "[---#@*+!%~^]") ; SKIP SPECIAL ISPELL CHARACTERS
((looking-at "[-#@*+!%~^]") ; SKIP SPECIAL ISPELL CHARACTERS
(forward-char 1))
((or (re-search-forward ispell-casechars end t) ; TEXT EXISTS...
(re-search-forward "[][()$]" end t)) ; or MATH COMMANDS...
......@@ -1800,7 +1800,7 @@ news-reply-mode-hook or mail-mode-hook to the following lambda expression:
;;(search-forward mail-header-separator nil t)
(while (if internal-messagep
(< (point) internal-messagep)
(and (looking-at "[a-zA-Z---]+:\\|\t\\| ")
(and (looking-at "[-a-zA-Z]+:\\|\t\\| ")
(not (eobp))))
;; spell check Subject: field without Re:'s.
......
......@@ -1882,9 +1882,9 @@ Default is to leave paragraph indentation as is."
;; are used to underline it. This could occur if the line following
;; the underlining is not an index entry and has text within it.
(let* ((previous-paragraph-separate paragraph-separate)
(paragraph-separate (concat paragraph-separate "\\|^[=*---.]+"))
(paragraph-separate (concat paragraph-separate "\\|^[-=*.]+"))
(previous-paragraph-start paragraph-start)
(paragraph-start (concat paragraph-start "\\|^[=*---.]+")))
(paragraph-start (concat paragraph-start "\\|^[-=*.]+")))
(unwind-protect
(fill-paragraph nil)
(setq paragraph-separate previous-paragraph-separate)
......
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