bug#20727: 24.5; Font fallback doesn't work for the Emoji range

[Paul Eggert <eggert@cs.ucla.edu>]

[-- Attachment #1: Type: text/plain, Size: 485 bytes --]

I tried both suggestions, and I'm afraid they didn't work.  That is, I used the 
attached patch and ran "emacs -Q -r -font 
-misc-fixed-medium-r-semicondensed--0-0-75-75-c-0-iso8859-1", and Emacs 
displayed U+2018 LEFT SINGLE QUOTATION MARK using 
x:-unknown-Symbola-normal-normal-semicondensed-*-13-*-*-*-*-0-iso10646-1 
(#x394), which is almost unreadable compared to the old way which displayed it 
using x:-misc-fixed-medium-r-semicondensed--13-120-75-75-c-60-iso10646-1 (#x2018).

[-- Attachment #2: ideas.txt --]
[-- Type: text/plain, Size: 1435 bytes --]

diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index 696940e..7c74f0e 100644
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -698,6 +698,11 @@
   (dolist (symbol-subgroup
            '((#x0250 . #x02AF)	;; IPA Extensions
              (#x2000 . #x206F)	;; General Punctuation
+             (#x2000 . #x2012)	;; General Punctuation
+             (#x2015 . #x2017)
+             (#x201F . #x202F)
+             (#x2031 . #x2038)
+             (#x203B . #x206F)
              (#x2070 . #x209F)	;; Superscripts and Subscripts
              (#x20A0 . #x20CF)	;; Currency Symbols
              (#x2100 . #x214F)	;; Letterlike Symbols
@@ -738,6 +743,16 @@
   (set-fontset-font "fontset-default" '(#x2500 . #x259F)
                     "FreeMono" nil 'prepend)
 
+  (set-fontset-font "fontset-default" '(#x2013 . #x2014)
+                    "-*-fixed-medium-r-*-*-*-*-*-*-*-*-iso10646-1"
+		    nil 'prepend)
+  (set-fontset-font "fontset-default" '(#x2018 . #x201E)
+                    "-*-fixed-medium-r-*-*-*-*-*-*-*-*-iso10646-1"
+		    nil 'prepend)
+  (set-fontset-font "fontset-default" '(#x2039 . #x203A)
+                    "-*-fixed-medium-r-*-*-*-*-*-*-*-*-iso10646-1"
+		    nil 'prepend)
+
   ;; Append CJK fonts for characters other than han, kana, cjk-misc.
   ;; Append fonts for scripts whose name is also a charset name.
   (let* ((data (build-default-fontset-data))