From 041b3f835682588cb63df7e609d726369dd6b7d3 Mon Sep 17 00:00:00 2001
From: Bill Wendling <isanbard@gmail.com>
Date: Sat, 8 Dec 2007 23:58:46 +0000
Subject: Reverting 44702. It wasn't correct to rename them.

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@44727 91177308-0d34-0410-b5e6-96231b3b80d8
---
 utils/emacs/tablegen-mode.el | 38 +++++++++++++++++++-------------------
 1 file changed, 19 insertions(+), 19 deletions(-)

(limited to 'utils/emacs/tablegen-mode.el')

diff --git a/utils/emacs/tablegen-mode.el b/utils/emacs/tablegen-mode.el
index af33cbd37f..e180915f3b 100644
--- a/utils/emacs/tablegen-mode.el
+++ b/utils/emacs/tablegen-mode.el
@@ -16,7 +16,7 @@
 
 (defvar tablegen-font-lock-keywords
   (let ((kw (mapconcat 'identity
-                       '("class" "def" "defm" "field" "in" "include"
+                       '("class" "defm" "def" "field" "include" "in"
                          "let" "multiclass")
                        "\\|"))
         (type-kw (mapconcat 'identity
@@ -49,15 +49,16 @@
 
 ;; ---------------------- Syntax table ---------------------------
 ;; Shamelessly ripped from jasmin.el
-;; URL: http://www.neilvandyke.org/jasmin-emacs/jasmin.el.html
+;; URL: http://www.neilvandyke.org/jasmin-emacs/jasmin.el
 
 (if (not tablegen-mode-syntax-table)
     (progn
       (setq tablegen-mode-syntax-table (make-syntax-table))
-      (mapcar (function (lambda (n)
-                          (modify-syntax-entry (aref n 0)
-                                               (aref n 1)
-                                               tablegen-mode-syntax-table)))
+      (mapcar (function
+               (lambda (n)
+                 (modify-syntax-entry (aref n 0)
+                                      (aref n 1)
+                                      tablegen-mode-syntax-table)))
               '(
                 ;; whitespace (` ')
                 [?\^m " "]
@@ -66,8 +67,6 @@
                 [?\t  " "]
                 [?\   " "]
                 ;; word constituents (`w')
-                ;;[?<  "w"]
-                ;;[?>  "w"]
                 [?\%  "w"]
                 ;;[?_  "w  "]
                 ;; comments
@@ -78,15 +77,17 @@
                 ;; symbol constituents (`_')
                 ;; punctuation (`.')
                 ;; open paren (`(')
-                [?\( "("]
-                [?\[ "("]
-                [?\{ "("]
+                [?\(  "("]
+                [?\[  "("]
+                [?\{  "("]
+                [?\<  "("]
                 ;; close paren (`)')
-                [?\) ")"]
-                [?\] ")"]
-                [?\} ")"]
+                [?\)  ")"]
+                [?\]  ")"]
+                [?\}  ")"]
+                [?\>  ")"]
                 ;; string quote ('"')
-                [?\" "\""]
+                [?\"  "\""]
                 ))))
 
 ;; --------------------- Abbrev table -----------------------------
@@ -101,11 +102,10 @@
 (if (not tablegen-mode-map)
     ()  ; Do not change the keymap if it is already set up.
   (setq tablegen-mode-map (make-sparse-keymap))
-  (define-key tablegen-mode-map "\t" 'tab-to-tab-stop)
+  (define-key tablegen-mode-map "\t"  'tab-to-tab-stop)
   (define-key tablegen-mode-map "\es" 'center-line)
   (define-key tablegen-mode-map "\eS" 'center-paragraph))
 
-
 (defun tablegen-mode ()
   "Major mode for editing TableGen description files.
   \\{tablegen-mode-map}
@@ -115,10 +115,10 @@
   (use-local-map tablegen-mode-map)         ; Provides the local keymap.
   (setq major-mode 'tablegen-mode)          
 
-  (make-local-variable	'font-lock-defaults)
+  (make-local-variable 'font-lock-defaults)
   (setq major-mode 'tablegen-mode           ; This is how describe-mode
                                             ;   finds the doc string to print.
-	mode-name "TableGen"                      ; This name goes into the modeline.
+	mode-name "TableGen"                ; This name goes into the modeline.
 	font-lock-defaults `(tablegen-font-lock-keywords))
 
   (setq local-abbrev-table tablegen-mode-abbrev-table)
-- 
cgit v1.2.3