bug#2239: 23.0.90; [PATCH] Revert fontset changes which broke NextStep port

Revisions 1.96 & 1.97 of lisp/international/fonset.el break the  
NextStep port of Emacs. See #2218, #2221.

This patch reverts those changes.




In GNU Emacs 23.0.90.1 (i386-apple-darwin9.6.0, NS apple-appkit-949.43)
  of 2009-02-03 on 64-71-7-199.static.wiline.com
Windowing system distributor `Apple', version 10.3.949
configured using `configure  '--with-ns''

Important settings:
   value of $LC_ALL: nil
   value of $LC_COLLATE: nil
   value of $LC_CTYPE: nil
   value of $LC_MESSAGES: nil
   value of $LC_MONETARY: nil
   value of $LC_NUMERIC: nil
   value of $LC_TIME: nil
   value of $LANG: nil
   value of $XMODIFIERS: nil
   locale-coding-system: nil
   default-enable-multibyte-characters: t

Major mode: Fundamental

Minor modes in effect:
   diff-auto-refine-mode: t
   twit-mode: t
   which-function-mode: t
   ime-bindings: t
   shell-dirtrack-mode: t
   show-paren-mode: t
   recentf-mode: t
   iswitchb-mode: t
   cua-mode: t
   auto-insert-mode: t
   tooltip-mode: t
   mouse-wheel-mode: t
   menu-bar-mode: t
   file-name-shadow-mode: t
   global-font-lock-mode: t
   font-lock-mode: t
   blink-cursor-mode: t
   global-auto-composition-mode: t
   auto-composition-mode: t
   auto-encryption-mode: t
   auto-compression-mode: t
   size-indication-mode: t
   column-number-mode: t
   line-number-mode: t
   transient-mark-mode: t
   abbrev-mode: t

Recent input:
x t . <return> <return> T h i s SPC o p t i o n SPC
i s SPC m i s s i n g SPC f r o m SPC E a m c s SPC
<M-backspace> E m a c s SPC 2 3 SPC C V S , SPC s o
SPC I C-x o C-x b p y <return> C-x k RET C-x b p y
<return> C-n C-p C-x C-f C-g C-x k RET C-x b p y <return>
C-n C-p C-x C-f C-g C-x k RET C-x b p y h <backspace>
t h C-g C-x C-g C-g C-x C-r C-e C-n <return> C-x v
l C-x o C-x b <return> C-x b b <return> C-x b b u g
C-r C-r <backspace> <backspace> <backspace> r e p <backspace>
<backspace> <backspace> * m <return> <M-backspace>
<M-backspace> a n d SPC I SPC w a n t SPC t h e SPC
b e h a v i o r SPC b a c k . SPC <backspace> <backspace>
, SPC a s SPC I SPC f i n d SPC t h e SPC s k e l e
t o n s SPC t o SPC b e SPC o <backspace> o b n o x
i o u s SPC a n d SPC u n d e s i r a b l e . <return>
<return> P a t c h SPC i s SPC a g i n <backspace>
<backspace> a i n s t SPC c u r r e n t SPC C V S S-SPC
H E A D . C-c C-c y <down-mouse-1> <mouse-1> <help-echo>
<help-echo> <down-mouse-1> <mouse-1> C-x k RET C-n
C-p C-x k RET <down-mouse-1> <mouse-1> <down-mouse-1>
<mouse-1> <menu-bar> <help-menu> <send-emacs-bug-r
eport>

Recent messages:
Finding changes in /Users/ieure/Projects/emacs/lisp/progmodes/ 
python.el...done
Wrote /Users/ieure/python-use-skeletons-CVSHEAD.diff
Mark set
Mark activated
Longlines mode enabled
Auto-saving...done
Quit [4 times]
Open /Users/ieure/python-use-skeletons-CVSHEAD.diff
Send this bug report to the Emacs maintainers? (y or n)
Sending...done

--- fontset.el.~1.97.~	2009-02-04 23:09:47.000000000 -0800
+++ fontset.el	2009-02-07 21:32:05.000000000 -0800
@@ -211,6 +211,7 @@
 	(ancient-greek-musical-notation #x1D200)
 	(tai-xuan-jing-symbol #x1D300)
 	(counting-rod-numeral #x1D360)
+	(mathematical #x1D400)
 	(mahjong-tile #x1F000)
 	(domino-tile #x1F030)))
 
@@ -521,48 +522,12 @@
 		    ancient-greek-musical-notation
 		    tai-xuan-jing-symbol
 		    counting-rod-numeral
+		    mathematical
 		    mahjong-tile
 		    domino-tile))
     (set-fontset-font "fontset-default"
 		      script (font-spec :registry "iso10646-1" :script script)))
 
-  ;; Special settings for `MATHEMATICAL (U+1D400..U+1D7FF)'.
-  (dolist (math-subgroup '((#x1D400 #x1D433 mathematical-bold)
-			   (#x1D434 #x1D467 mathematical-italic)
-			   (#x1D468 #x1D49B mathematical-bold-italic)
-			   (#x1D49C #x1D4CF mathematical-script)
-			   (#x1D4D0 #x1D503 mathematical-bold-script)
-			   (#x1D504 #x1D537 mathematical-fraktur)
-			   (#x1D538 #x1D56B mathematical-double-struck)
-			   (#x1D56C #x1D59F mathematical-bold-fraktur)
-			   (#x1D5A0 #x1D5D3 mathematical-sans-serif)
-			   (#x1D5D4 #x1D607 mathematical-sans-serif-bold)
-			   (#x1D608 #x1D63B mathematical-sans-serif-italic)
-			   (#x1D63C #x1D66F mathematical-sans-serif-bold-italic)
-			   (#x1D670 #x1D6A3 mathematical-monospace)
-			   (#x1D6A4 #x1D6A5 mathematical-italic)
-			   (#x1D6A8 #x1D6E1 mathematical-bold)
-			   (#x1D6E2 #x1D71B mathematical-italic)
-			   (#x1D71C #x1D755 mathematical-bold-italic)
-			   (#x1D756 #x1D78F mathematical-sans-serif-bold)
-			   (#x1D790 #x1D7C9 mathematical-sans-serif-bold-italic)
-			   (#x1D7CA #x1D7D7 mathematical-bold)
-			   (#x1D7D8 #x1D7E1 mathematical-double-struck)
-			   (#x1D7E2 #x1D7EB mathematical-sans-serif)
-			   (#x1D7EC #x1D7F5 mathematical-sans-serif-bold)
-			   (#x1D7F6 #x1D7FF mathematical-monospace)))
-    (let ((slot (assq (nth 2 math-subgroup) script-representative-chars)))
-      (if slot
-	  (if (vectorp (cdr slot))
-	      (setcdr slot (vconcat (cdr slot) (vector (car math-subgroup))))
-	    (setcdr slot (vector (cadr slot) (car math-subgroup))))
-	(setq slot (list (nth 2 math-subgroup) (car math-subgroup)))
-	(nconc script-representative-chars (list slot))))
-    (set-fontset-font
-     "fontset-default"
-     (cons (car math-subgroup) (nth 1 math-subgroup))
-     (font-spec :registry "iso10646-1" :script (nth 2 math-subgroup))))
-
   ;; Append Unicode fonts.
   ;; This may find fonts with more variants (bold, italic) but which
   ;; don't cover many characters.