diff options
| author | Bill Wendling <isanbard@gmail.com> | 2007-12-08 23:58:46 +0000 |
|---|---|---|
| committer | Bill Wendling <isanbard@gmail.com> | 2007-12-08 23:58:46 +0000 |
| commit | 041b3f835682588cb63df7e609d726369dd6b7d3 (patch) | |
| tree | bf41bd0676f92a73fad2a128c060942ecf35bd47 /utils/emacs | |
| parent | eeaad40246e45ec48c85acac4ab57e82457abf19 (diff) | |
| download | external_llvm-041b3f835682588cb63df7e609d726369dd6b7d3.zip external_llvm-041b3f835682588cb63df7e609d726369dd6b7d3.tar.gz external_llvm-041b3f835682588cb63df7e609d726369dd6b7d3.tar.bz2 | |
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
Diffstat (limited to 'utils/emacs')
| -rw-r--r-- | utils/emacs/tablegen-mode.el | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/utils/emacs/tablegen-mode.el b/utils/emacs/tablegen-mode.el index af33cbd..e180915 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) |