(select-safe-coding-system): Use

buffer-chars-modified-tick instead of buffer-modified-tick.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a15fca9ebd7d3d0b16afcd6062d41c778e8a3068..f2725d4b44674191f846b47d929e7bef4b8eba2f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -24,6 +24,9 @@
 
 2009-02-04  Kenichi Handa  <handa@m17n.org>
 
+       * international/mule-cmds.el (select-safe-coding-system): Use
+       buffer-chars-modified-tick instead of buffer-modified-tick.
+
        * descr-text.el (describe-char): Check font-object by fontp.
 
        * composite.el (compose-gstring-for-terminal): If a character is

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index cbed1e3659e2ca0bac9d9ad16339f28184de3047..451ac39cbfa09ac3eca67e41b3ecc64e4cc58fe4 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -975,7 +975,7 @@ It is highly recommended to fix it before writing to a file."
 
     (let ((codings (find-coding-systems-region from to))
          (coding-system nil)
-         (tick (if (not (stringp from)) (buffer-modified-tick)))
+         (tick (if (not (stringp from)) (buffer-chars-modified-tick)))
          safe rejected unsafe)
       (if (eq (car codings) 'undecided)
          ;; Any coding system is ok.
@@ -1041,7 +1041,7 @@ It is highly recommended to fix it before writing to a file."
 %s specified by file contents.  Really save (else edit coding cookies \
 and try again)? " coding-system auto-cs))
              (error "Save aborted"))))
-      (when (and tick (/= tick (buffer-modified-tick)))
+      (when (and tick (/= tick (buffer-chars-modified-tick)))
        (error "Cancelled because the buffer was modified"))
       coding-system)))