changeset 104343:396aecca2f45

(ucs-normalize-hfs-nfd-post-read-conversion): Remove unused var `buffer-modified-p'.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 18 Aug 2009 19:17:22 +0000
parents 867af630a71e
children ffa2f09da5b2
files lisp/ChangeLog lisp/international/ucs-normalize.el
diffstat 2 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Tue Aug 18 19:11:41 2009 +0000
+++ b/lisp/ChangeLog	Tue Aug 18 19:17:22 2009 +0000
@@ -1,5 +1,8 @@
 2009-08-18  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* international/ucs-normalize.el (ucs-normalize-hfs-nfd-post-read-conversion):
+	Remove unused var `buffer-modified-p'.
+
 	* minibuffer.el (completion--do-completion): Move point for the #b001
 	case as well (bug#4176).
 	(minibuffer-complete, minibuffer-complete-word): Don't move point.
--- a/lisp/international/ucs-normalize.el	Tue Aug 18 19:11:41 2009 +0000
+++ b/lisp/international/ucs-normalize.el	Tue Aug 18 19:17:22 2009 +0000
@@ -585,9 +585,8 @@
   (save-excursion
     (save-restriction
       (narrow-to-region (point) (+ (point) len))
-      (let ((buffer-modified-p (buffer-modified-p)))
-        (ucs-normalize-HFS-NFC-region (point-min) (point-max))
-        (- (point-max) (point-min))))))
+      (ucs-normalize-HFS-NFC-region (point-min) (point-max))
+      (- (point-max) (point-min)))))
 
 ;; Pre-write conversion for `utf-8-hfs'.
 (defun ucs-normalize-hfs-nfd-pre-write-conversion (from to)