emacs-diffs
[Top][All Lists]
Advanced

[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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]