[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] scratch/raeburn-startup d864464 1/5: Call unify-charset on
From: |
Ken Raeburn |
Subject: |
[Emacs-diffs] scratch/raeburn-startup d864464 1/5: Call unify-charset on appropriate charsets. |
Date: |
Sun, 5 Feb 2017 14:10:06 +0000 (UTC) |
branch: scratch/raeburn-startup
commit d8644641ccc46165ea78223e142359269009736e
Author: Ken Raeburn <address@hidden>
Commit: Ken Raeburn <address@hidden>
Call unify-charset on appropriate charsets.
* lisp/loadup.el: Build a list of charsets with the :unify-map
property, and generate calls to unify-charset on them at startup.
---
lisp/loadup.el | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/lisp/loadup.el b/lisp/loadup.el
index b3cf740..aa22b3a 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -484,6 +484,7 @@ lost after dumping")))
(let ((faces '())
(coding-systems '()) (coding-system-aliases '())
(charsets '()) (charset-aliases '())
+ (unified-charsets '())
(cmds '()))
(setcdr global-buffers-menu-map nil) ;; Get rid of buffer objects!
(push `(internal--set-standard-syntax-table
@@ -565,7 +566,11 @@ lost after dumping")))
(push (cons s (car (coding-system-aliases s)))
coding-system-aliases))
(if (get s 'internal--charset-args)
- (push s charsets)
+ (progn
+ (push s charsets)
+ (if (member :unify-map
+ (nth 15 (get s 'internal--charset-args)))
+ (push s unified-charsets)))
(when (and (charsetp s)
(not (eq s (get-charset-property s :name))))
(push (cons s (get-charset-property s :name))
@@ -620,6 +625,7 @@ lost after dumping")))
;; (message "Defining coding-system
%S...postponed"
;; cs)
(push cs css)))))))
+ (print `(mapcar 'unify-charset ',unified-charsets))
(print `(dolist (f ',faces)
(face-spec-set f (get f 'face-defface-spec)
'face-defface-spec)))