提交: 0a6d7cdb93971ba609d75eefda3cf0a964db1208 - cmd_mode (git)

cmd-modeはMS-DOSのバッチファイル(拡張子が.bat)や、Windows NT コマンドスクリプトファイル(拡張子が.cmd)等を編集する為の、Emacsのメジャーモードです。

Commit MetaInfo

• 修订版: 0a6d7cdb93971ba609d75eefda3cf0a964db1208 (tree)
• 时间: 2001-08-31 22:25:50
• 作者: tfuruka1 <tfuruka1>
• Commiter: tfuruka1

Log Message

●SETの環境変数にキーワード文字列が含まれていると、色付けが変になる問題

を修正

●SET /A の時に演算子の一部を環境変数として、間違えて色付けする問題を

修正

更改概述

• modified: cmd-mode.el

差异

--- a/cmd-mode.el
+++ b/cmd-mode.el
@@ -16,15 +16,21 @@
 ;;                                  auto-mode-alist))
 ;;
 ;;
-;; $Id: cmd-mode.el,v 1.1 2001/08/28 13:14:43 tfuruka1 Exp $
+;; $Id: cmd-mode.el,v 1.2 2001/08/31 13:25:50 tfuruka1 Exp $
 ;; $Log: cmd-mode.el,v $
+;; Revision 1.2  2001/08/31 13:25:50  tfuruka1
+;; ●SETの環境変数にキーワード文字列が含まれていると、色付けが変になる問題
+;;   を修正
+;; ●SET /A の時に演算子の一部を環境変数として、間違えて色付けする問題を
+;;   修正
+;;
 ;; Revision 1.1  2001/08/28 13:14:43  tfuruka1
 ;; Initial revision
 ;;
 
 ;; (replace-regexp "[\t ]+$" "")
 
-(defconst cmd-mode-revision-number "$Revision: 1.1 $" "cmd-modeのRevision")
+(defconst cmd-mode-revision-number "$Revision: 1.2 $" "cmd-modeのRevision")
 
 ;;; *** hook
 (defvar cmd-mode-hook nil
@@ -73,7 +79,7 @@
   (concat "\\b"
           "\\(set\\b\\)\\([ \t]+/a\\)*"
           "\\(\\([ \t]+[_A-Za-z-][_A-Za-z0-9-]*\\)*\\)"
-          "\\(-\\|\\W\\)*")
+          "\\([-+/\\*]\\|\\W\\)*")
   "SETコマンドの正規表現")
 (defvar cmd-label-pattern "^[ \t]*\\(:[:A-Za-z0-9_-]+\\)"
   "ラベルの正規表現")
@@ -119,6 +125,11 @@ ECHO. 
          '(2 font-lock-keyword-face)    ;rem
          '(3 font-lock-comment-face)    ;コメント文字
          )
+   ;; SET
+   (list cmd-set-pattern
+         '(1 font-lock-keyword-face)    ;SET
+         '(3 font-lock-type-face)       ;環境変数名
+         )
    ;; ラベル
    (list cmd-label-pattern
          '(1 (cons font-lock-function-name-face '(underline))))
@@ -128,11 +139,6 @@ ECHO. 
    (list cmd-variable-pattern 1 font-lock-variable-name-face)
    ;; 内部コマンド
    (list cmd-command-pattern 1 font-lock-keyword-face)
-   ;; SET
-   (list cmd-set-pattern
-         '(1 font-lock-keyword-face)    ;SET
-         '(3 font-lock-type-face)       ;環境変数名
-         )
    ;;条件付き処理記号等
    (list cmd-const-pattern 1 font-lock-constant-face)
    ;; IF文とFOR文のオプション等
@@ -233,7 +239,7 @@ ECHO. 
 
   (use-local-map cmd-help-local-map)    ; ローカルマップの使用宣言
 
-  ;; お化粧の設定
+  ;; フォントロックの設定
   (make-local-variable 'font-lock-defaults)
   (setq font-lock-defaults
         '((cmd-font-lock-keywords) t t))