[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master ff9ddda: Simplify pre-write-conversion for utf-8-hf
From: |
David Reitter |
Subject: |
[Emacs-diffs] master ff9ddda: Simplify pre-write-conversion for utf-8-hfs coding system |
Date: |
Fri, 10 Jun 2016 08:04:45 +0000 (UTC) |
branch: master
commit ff9ddda9069da6b4dbcc64615cb4cab9a1f4f8b7
Author: David Reitter <address@hidden>
Commit: David Reitter <address@hidden>
Simplify pre-write-conversion for utf-8-hfs coding system
* lisp/international/ucs-normalize.el
(ucs-normalize-hfs-nfd-pre-write-conversion): Refactor.
May address an issue where Emacs consumed large amounts of CPU
because of neverending toolbar updating (which was caused
by, but also called this function).
---
lisp/international/ucs-normalize.el | 8 +-------
1 file changed, 1 insertion(+), 7 deletions(-)
diff --git a/lisp/international/ucs-normalize.el
b/lisp/international/ucs-normalize.el
index 74978ce..8c4f491 100644
--- a/lisp/international/ucs-normalize.el
+++ b/lisp/international/ucs-normalize.el
@@ -614,13 +614,7 @@ COMPOSITION-PREDICATE will be used to compose region."
;; Pre-write conversion for `utf-8-hfs'.
(defun ucs-normalize-hfs-nfd-pre-write-conversion (from to)
- (let ((old-buf (current-buffer)))
- (set-buffer (generate-new-buffer " *temp*"))
- (if (stringp from)
- (insert from)
- (insert-buffer-substring old-buf from to))
- (ucs-normalize-HFS-NFD-region (point-min) (point-max))
- nil))
+ (ucs-normalize-HFS-NFD-region (point-min) (point-max)))
;;; coding-system definition
(define-coding-system 'utf-8-hfs
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master ff9ddda: Simplify pre-write-conversion for utf-8-hfs coding system,
David Reitter <=