(syntax-flag-table, string-to-syntax): Remove.

diff --git a/lisp/simple.el b/lisp/simple.el
index 9bf3bf9d970c78b33a8a07467d3d19707810f32f..891928b3969d8a3d332a207108e5b0b48b5a3dab 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3952,44 +3952,4 @@ corresponing syntax code as it is stored in a syntax cell, and
 can be used as value of a `syntax-table' property.
 DESCRIPTION is the descriptive string for the syntax.")
 
-(defconst syntax-flag-table
-  '((?1 . #b10000000000000000)
-    (?2 . #b100000000000000000)
-    (?3 . #b1000000000000000000)
-    (?4 . #b10000000000000000000)
-    (?p . #b100000000000000000000)
-    (?b . #b1000000000000000000000)
-    (?n . #b10000000000000000000000))
-  "Alist of pairs (CHAR . FLAG) mapping characters to syntax flags.
-CHAR is a character that is allowed as second or following character
-in the string argument to `modify-syntax-entry' specifying the syntax.
-FLAG is the corresponding syntax flag value that is stored in a
-syntax table.")
-
-(defun string-to-syntax (string)
-  "Convert a syntax specification STRING into syntax cell form.
-STRING should be a string as it is allowed as argument of
-`modify-syntax-entry'.  Value is the equivalent cons cell
-\(CODE . MATCHING-CHAR) that can be used as value of a `syntax-table'
-text property."
-  (let* ((first-char (aref string 0))
-        (code (or (nth 1 (assq first-char syntax-code-table))
-                  (error "Invalid syntax specification `%s'" string)))
-        (length (length string))
-        (i 1)
-        matching-char)
-    ;; Determine the matching character, if any.
-    (when (and (> length 1)
-              (memq first-char '(?\( ?\))))
-      (setq matching-char (aref string i)))
-    (setq i (1+ i))
-    ;; Add any flags to the syntax code.
-    (while (< i length)
-      (let ((flag (or (cdr (assq (aref string i) syntax-flag-table))
-                     (error "Invalid syntax flag in `%s'" string))))
-       (setq code (logior flag code))
-       (setq i (1+ i))))
-    
-    (cons code matching-char)))
-
 ;;; simple.el ends here