2011年1月20日

[mew-dist 29309] eliminate warnings for Emacs 23.3

細川です

Emacs 23.2.92 pretest にて make したところ、

| In mew-addrbook-insert-file:
| mew-addrbook.el:304:23:Warning: `delete-backward-char' used from Lisp code
| That command is designed for interactive use only

| In mew-summary-store:
| mew-summary4.el:360:24:Warning: `default-buffer-file-coding-system' is an
| obsolete variable (as of Emacs 23.2); use `buffer-file-coding-system'
| instead.

といった warning が出ました。
これらを取り除いただけのパッチを添付します。

--
Yu-ji Hosokawa (細川雄司)


diff --git a/mew-addrbook.el b/mew-addrbook.el
index ad2f68e..c654094 100644
--- a/mew-addrbook.el
+++ b/mew-addrbook.el
@@ -287,7 +287,7 @@ returned."
(while (re-search-forward ",$" nil t)
(end-of-line)
(forward-char 1)
- (delete-backward-char 1))
+ (delete-char -1))
;; replace ", " to "\0" inside/outside quote.
(goto-char (point-min))
(while (re-search-forward ",[ \t]+" nil t)
diff --git a/mew-draft.el b/mew-draft.el
index 74a363b..c5e8657 100644
--- a/mew-draft.el
+++ b/mew-draft.el
@@ -549,7 +549,7 @@ citation prefix and label.
(insert ellipses)
(goto-char eol)
(while (< fill-column (current-column))
- (delete-backward-char 1))))
+ (delete-char -1))))
((eq mew-draft-cite-fill-mode 'wrap)
(setq beg (point))
(end-of-line)
diff --git a/mew-encode.el b/mew-encode.el
index f422fed..0eab1a7 100644
--- a/mew-encode.el
+++ b/mew-encode.el
@@ -174,7 +174,7 @@
(setq start (match-end 0))
(forward-line)
(while (looking-at mew-lwsp)
- (delete-backward-char 1)
+ (delete-char -1)
(forward-line))
(setq val (mew-buffer-substring start (1- (point))))
(delete-region start (1- (point)))
@@ -737,7 +737,7 @@

(defun mew-encode-flowed-remove-trailing-sp ()
(while (and (not (bobp)) (= (char-before) mew-sp))
- (delete-backward-char 1)))
+ (delete-char -1)))

(defun mew-encode-flowed-line (column delsp)
(let (prefix beg)
diff --git a/mew-summary4.el b/mew-summary4.el
index 4d97ed7..b8361b3 100644
--- a/mew-summary4.el
+++ b/mew-summary4.el
@@ -357,7 +357,7 @@ If executed with '\\[universal-argument]', coding-system is asked."
(message "Not saved")
(let ((writecs (if askcs
(read-coding-system "Coding-system: ")
- default-buffer-file-coding-system)))
+ (default-value 'buffer-file-coding-system))))
(with-current-buffer (mew-buffer-message)
(mew-frwlet mew-cs-dummy writecs
;; do not specify 'no-msg

投稿者 xml-rpc : 2011年1月20日 05:07
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(0)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/101414
トラックバック
コメント
コメントする




画像の中に見える文字を入力してください。