mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

(select-safe-coding-system): Use

Browse Source 
buffer-chars-modified-tick instead of buffer-modified-tick.
This commit is contained in:
Kenichi Handa 2009-02-04 07:45:09 +00:00
parent 6510501067
commit c381cb8dcc
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -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

4
lisp/international/mule-cmds.el
View File

@ -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)))