From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 15 Oct 2000 22:09:04 +0000 (+0000)
Subject: (syntax-flag-table, string-to-syntax): Remove.
X-Git-Tag: emacs-pretest-21.0.90~863
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a1a88272855a5c87009c66f931b18da9127b76fc;p=emacs.git

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

diff --git a/lisp/simple.el b/lisp/simple.el
index 9bf3bf9d970..891928b3969 100644
--- 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