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

diff --git a/lisp/add-log.el b/lisp/add-log.el
index 9c54caa84ce971357662560e0981b79eddf709e4..0fc40e107a45e9257294f5bd788b2f72c3c29fc7 100644 (file)
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -284,7 +284,7 @@ Prefix arg means justify as well."
     (fill-paragraph justify)))
 \f
 (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 ()

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 2d2cd2fa2964f4582025328d1640a3372545ccbd..a0fc2a2307b1079edad95c2f4973b854a23dc239 100644 (file)
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -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

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 99e0063a94a0361203631cac1cd71fad09504e5b..0959ee0f1d43441117b2caf47e8de1e6c441d3de 100644 (file)
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -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)))

diff --git a/lisp/dired.el b/lisp/dired.el
index be4972fa739ad55cc7342a276b054a6721f3d4bc..be82cb872b76d1917124bbd401382d71af2528cf 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -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)

diff --git a/lisp/files.el b/lisp/files.el
index 8f33ee8d975b0cfa9bffe24c32e1cddd8eae4a94..7b1c3cbec89fa099f6b0ecea63c880ff9a912033 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -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))

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 44ff621ebbbdd75bb2775e04948c8b1a71d1174d..ed34f87e5e5e51db206982e2eebe70137f34d034 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -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

diff --git a/lisp/progmodes/cplus-md.el b/lisp/progmodes/cplus-md.el
index 613253e7b68a4725b2566bc0f5ac1e79c1fcf608..af26f52138c79105f5fd49877611abb1f235751d 100644 (file)
--- a/lisp/progmodes/cplus-md.el
+++ b/lisp/progmodes/cplus-md.el
@@ -797,7 +797,7 @@ The fill lines remain a comment."
 ;; 
 ;;        ; overloadable operators
 ;;        (op-sym1
-;;      "[---+*/%^&|~!=<>]\\|[---+*/%^&|<>=!]=\\|<<=?\\|>>=?")
+;;      "[-+*/%^&|~!=<>]\\|[-+*/%^&|<>=!]=\\|<<=?\\|>>=?")
 ;;        (op-sym2
 ;;      "&&\\|||\\|\\+\\+\\|--\\|()\\|\\[\\]")  
 ;;        (op-sym (concat "\\(" op-sym1 "\\|" op-sym2 "\\)"))

diff --git a/lisp/subr.el b/lisp/subr.el
index 44a7e298e3c4750911807221a70528378ee2edff..42105a44d566f8d3844e1b559c176ca8d648eaed 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -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)))

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 2fa5fae1d3af46539d49d760d2c2c1bfd9646570..1050b494dc8216cbb0dc58a2b21b36ed10adef7d 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -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.

diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el
index 4ada1087795bf6008df319330727b97629637d0e..fc079976c8b3ec5dc3fc25e937bf05ee808d7b23 100644 (file)
--- a/lisp/textmodes/texinfmt.el
+++ b/lisp/textmodes/texinfmt.el
@@ -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)