[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[mgp-users-jp 01368] Re: mgp-mode.el (emacs-20)
- To: Kenichi Handa <handa@m17n.org>
- Subject: [mgp-users-jp 01368] Re: mgp-mode.el (emacs-20)
- From: Shigeharu TAKENO <shige@iee.niit.ac.jp>
- Date: Thu, 8 Jan 2004 20:37:58 +0900 (JST)
- Cc: mgp-users-jp@mew.org
- Delivered-to: mailing list mgp-users-jp@mew.org
- In-reply-to: <200401081059.TAA06068@etlken.m17n.org>
- Mailing-list: contact mgp-users-jp-help@mew.org; run by ezmlm
- References: <> <> <200401081059.TAA06068@etlken.m17n.org>
竹の 01/08 2004
---------------
| Date: Thu, 8 Jan 2004 19:59:52 +0900 (JST)
| From: Kenichi Handa <handa@m17n.org>
| To: mgp-users-jp@mew.org
| CC: shige@iee.niit.ac.jp
| Subject: Re: [mgp-users-jp 01365] Re: mgp-mode.el (emacs-20)
=====
| (let ((modified-p (buffer-modified-p)))
| (set-buffer-file-coding-system 'iso-2022-jp-unix)
| (set-buffer-modified-p modified-p))
|
| とやれば modified flag は変更されません。
なるほど、私には何故そんなことになっているのかちょっと分からなそ
うですが、これでちゃんと動くことを確認しました。どうもありがとう
ございました。
ということで、差分を送り直します (といってもコメント部分の修正だ
けですが) > mgp-users-jp
# 学生用の説明書を書き直さないと
----- ここから (mgp-mode.el への差分) -----
*** magicpoint-1.09a/contrib/mgp-mode.el.ORG Mon Oct 28 18:19:56 2002
--- magicpoint-1.09a/contrib/mgp-mode.el Thu Jan 8 20:24:54 2004
***************
*** 46,52 ****
;; ((= emacs-major-version 20) ;; Emacs 20
;; (setq mgp-mode-hook
;; (function (lambda ()
! ;; (set-file-coding-system-for-read 'iso-2022-jp-unix))))))
--- 46,54 ----
;; ((= emacs-major-version 20) ;; Emacs 20
;; (setq mgp-mode-hook
;; (function (lambda ()
! ;; (let ((modified-p (buffer-modified-p)))
! ;; (set-buffer-file-coding-system 'iso-2022-jp-unix)
! ;; (set-buffer-modified-p modified-p)))))
***************
*** 152,161 ****
'(
("^%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*" nil Yellow)
("^#.*" nil comment)
("\"" "[^\\]\"" string)
("\\<\\(size\\|fore\\|back\\|bgrad\\|ccolor\\|left\\|leftfill\\|center\\|right\\|shrink\\|lcutin\\|rcutin\\|cont\\|nodefault\\|xfont\\|vfont\\|tfont\\|tfont0\\|bar\\|image\\|prefix\\|icon\\|bimage\\|default\\|tab\\|tabprefix\\|page\\|vgap\\|hgap\\|pause\\|mark\\|again\\|system\\|xsystem\\|filter\\|endfilter\\|vfcap\\|tfdir\\|deffont\\|font\\|embed\\|endembed\\|noop\\|linestart\\|lineend\\|quality\\)\\>" nil keyword)
("^%.*" nil defun)
! ))))))
;; History
--- 154,196 ----
'(
("^%%%%%%%%%%%%%%%%%%%%%%%%%%%%%*" nil Yellow)
("^#.*" nil comment)
+ ("^%%.*" nil comment)
("\"" "[^\\]\"" string)
("\\<\\(size\\|fore\\|back\\|bgrad\\|ccolor\\|left\\|leftfill\\|center\\|right\\|shrink\\|lcutin\\|rcutin\\|cont\\|nodefault\\|xfont\\|vfont\\|tfont\\|tfont0\\|bar\\|image\\|prefix\\|icon\\|bimage\\|default\\|tab\\|tabprefix\\|page\\|vgap\\|hgap\\|pause\\|mark\\|again\\|system\\|xsystem\\|filter\\|endfilter\\|vfcap\\|tfdir\\|deffont\\|font\\|embed\\|endembed\\|noop\\|linestart\\|lineend\\|quality\\)\\>" nil keyword)
("^%.*" nil defun)
! )))))
! ((= emacs-major-version 20)
! (progn
! (defconst mgp-font-lock-strings-1
! (concat "\\<\\("
! "size\\|fore\\|back\\|bgrad\\|ccolor\\|"
! "left\\|leftfill\\|center\\|right\\|"
! "shrink\\|lcutin\\|rcutin\\|cont\\|nodefault\\|"
! "xfont\\|vfont\\|tfont\\|tfont0\\|"
! "bar\\|image\\|prefix\\|icon\\|bimage\\|default\\|"
! "tab\\|tabprefix\\|page\\|vgap\\|hgap\\|"
! "pause\\|mark\\|again\\|system\\|xsystem\\|"
! "filter\\|endfilter\\|vfcap\\|tfdir\\|"
! "deffont\\|font\\|embed\\|endembed\\|noop\\|"
! "linestart\\|lineend\\|quality\\|include"
! "\\)\\>"
! ))
! (defvar mgp-font-lock-keywords
! (list
! (cons mgp-page-separator '(. font-lock-variable-name-face))
! (cons "^\\(#\\|%%\\).*" '(. font-lock-comment-face))
! (cons "\".*\"" '(. font-lock-string-face))
! (cons "^%" '(. font-lock-function-name-face))
! (cons "^\t[^\t].*" '(. font-lock-constant-face))
! (cons "^\t\t.*" '(. font-lock-type-face))
! (cons mgp-font-lock-strings-1 '(. font-lock-keyword-face))
! )
! "Default expressions to highlight in mgp mode")
! (add-hook 'mgp-mode-hook
! (function (lambda ()
! (make-local-variable 'font-lock-defaults)
! (setq font-lock-defaults
! '(mgp-font-lock-keywords t))))))))
;; History
----- ここまで (mgp-mode.el への差分) -----
| −− 半田@AIST
| handa@m17n.org
Nemacs 時代から愛用させてもらっています。普段は、かなり古いマシン
で作業しているので、まだ mule-2.3@19.34 使ってます。すみません。
大変ありがとうございます。
+=================================================+
竹野茂治 〒945-1195 新潟工科大学 情報電子工学科
shige@iee.niit.ac.jp TEL(&FAX): 0257-22-8161
+=================================================+