From d440b941cf7282cafac2f1ff5f8d4de66c8f3178 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 18 Aug 2009 19:17:22 +0000 Subject: [PATCH] (ucs-normalize-hfs-nfd-post-read-conversion): Remove unused var `buffer-modified-p'. --- lisp/ChangeLog | 3 +++ lisp/international/ucs-normalize.el | 5 ++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c3ca51be780..62dde5840ad 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-08-18 Stefan Monnier + * 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. diff --git a/lisp/international/ucs-normalize.el b/lisp/international/ucs-normalize.el index 22f0ca93eeb..a0e46adef54 100644 --- a/lisp/international/ucs-normalize.el +++ b/lisp/international/ucs-normalize.el @@ -585,9 +585,8 @@ COMPOSITION-PREDICATE will be used to compose region." (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) -- 2.39.2