From c381cb8dccae6aff966af47771665ef046aad916 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 4 Feb 2009 07:45:09 +0000 Subject: [PATCH] (select-safe-coding-system): Use buffer-chars-modified-tick instead of buffer-modified-tick. --- lisp/ChangeLog | 3 +++ lisp/international/mule-cmds.el | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a15fca9ebd7..f2725d4b446 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -24,6 +24,9 @@ 2009-02-04 Kenichi Handa + * 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 cbed1e3659e..451ac39cbfa 100644 --- 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))) -- 2.39.5