Mercurial > emacs
changeset 6309:9217f29851c2
Don't use triple-hyphen in a character class.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sat, 12 Mar 1994 00:23:12 +0000 |
| parents | f34deea7dc2c |
| children | c40e283c262b |
| files | lisp/=gnus.el lisp/add-log.el lisp/ange-ftp.el lisp/dired-aux.el lisp/dired.el lisp/files.el lisp/progmodes/cplus-md.el lisp/subr.el lisp/textmodes/ispell.el lisp/textmodes/texinfmt.el |
| diffstat | 10 files changed, 27 insertions(+), 27 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/=gnus.el Fri Mar 11 23:38:27 1994 +0000 +++ b/lisp/=gnus.el Sat Mar 12 00:23:12 1994 +0000 @@ -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 @@ (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 @@ (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 @@ ;; 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
--- a/lisp/add-log.el Fri Mar 11 23:38:27 1994 +0000 +++ b/lisp/add-log.el Sat Mar 12 00:23:12 1994 +0000 @@ -284,7 +284,7 @@ (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 ()
--- a/lisp/ange-ftp.el Fri Mar 11 23:38:27 1994 +0000 +++ b/lisp/ange-ftp.el Sat Mar 12 00:23:12 1994 +0000 @@ -857,7 +857,7 @@ ;;;; 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 @@ (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
--- a/lisp/dired-aux.el Fri Mar 11 23:38:27 1994 +0000 +++ b/lisp/dired-aux.el Sat Mar 12 00:23:12 1994 +0000 @@ -279,7 +279,7 @@ ;; 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)))
--- a/lisp/dired.el Fri Mar 11 23:38:27 1994 +0000 +++ b/lisp/dired.el Sat Mar 12 00:23:12 1994 +0000 @@ -2061,7 +2061,7 @@ (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)
--- a/lisp/files.el Fri Mar 11 23:38:27 1994 +0000 +++ b/lisp/files.el Sat Mar 12 00:23:12 1994 +0000 @@ -1330,8 +1330,8 @@ ;; 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))
--- a/lisp/progmodes/cplus-md.el Fri Mar 11 23:38:27 1994 +0000 +++ b/lisp/progmodes/cplus-md.el Sat Mar 12 00:23:12 1994 +0000 @@ -797,7 +797,7 @@ ;; ;; ; overloadable operators ;; (op-sym1 -;; "[---+*/%^&|~!=<>]\\|[---+*/%^&|<>=!]=\\|<<=?\\|>>=?") +;; "[-+*/%^&|~!=<>]\\|[-+*/%^&|<>=!]=\\|<<=?\\|>>=?") ;; (op-sym2 ;; "&&\\|||\\|\\+\\+\\|--\\|()\\|\\[\\]") ;; (op-sym (concat "\\(" op-sym1 "\\|" op-sym2 "\\)"))
--- a/lisp/subr.el Fri Mar 11 23:38:27 1994 +0000 +++ b/lisp/subr.el Sat Mar 12 00:23:12 1994 +0000 @@ -671,7 +671,7 @@ ;; 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)))
--- a/lisp/textmodes/ispell.el Fri Mar 11 23:38:27 1994 +0000 +++ b/lisp/textmodes/ispell.el Sat Mar 12 00:23:12 1994 +0000 @@ -388,30 +388,30 @@ ;;;###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 @@ (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 @@ ;;(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.
--- a/lisp/textmodes/texinfmt.el Fri Mar 11 23:38:27 1994 +0000 +++ b/lisp/textmodes/texinfmt.el Sat Mar 12 00:23:12 1994 +0000 @@ -1882,9 +1882,9 @@ ;; 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)