Mercurial > emacs
comparison lisp/international/ucs-normalize.el @ 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 | 4d1464dfdc96 |
| children | fc0ed6b4a2b2 |
comparison
equal
deleted
inserted
replaced
| 104342:867af630a71e | 104343:396aecca2f45 |
|---|---|
| 583 ;; Post-read-conversion function for `utf-8-hfs'. | 583 ;; Post-read-conversion function for `utf-8-hfs'. |
| 584 (defun ucs-normalize-hfs-nfd-post-read-conversion (len) | 584 (defun ucs-normalize-hfs-nfd-post-read-conversion (len) |
| 585 (save-excursion | 585 (save-excursion |
| 586 (save-restriction | 586 (save-restriction |
| 587 (narrow-to-region (point) (+ (point) len)) | 587 (narrow-to-region (point) (+ (point) len)) |
| 588 (let ((buffer-modified-p (buffer-modified-p))) | 588 (ucs-normalize-HFS-NFC-region (point-min) (point-max)) |
| 589 (ucs-normalize-HFS-NFC-region (point-min) (point-max)) | 589 (- (point-max) (point-min))))) |
| 590 (- (point-max) (point-min)))))) | |
| 591 | 590 |
| 592 ;; Pre-write conversion for `utf-8-hfs'. | 591 ;; Pre-write conversion for `utf-8-hfs'. |
| 593 (defun ucs-normalize-hfs-nfd-pre-write-conversion (from to) | 592 (defun ucs-normalize-hfs-nfd-pre-write-conversion (from to) |
| 594 (let ((old-buf (current-buffer))) | 593 (let ((old-buf (current-buffer))) |
| 595 (set-buffer (generate-new-buffer " *temp*")) | 594 (set-buffer (generate-new-buffer " *temp*")) |