Re: port x-symbol to GNU emacs 24.

[Uwe Brauer]

> Uwe Brauer <address@hidden> writes:

> But I have no clue what specifiers are...


> I just downloaded x-symbol 4.5.1, and in its x-symbol-emacs.el there are
> several aliases defined for things that error for you.  For example,
> `map-extents' is made an alias for `cl-map-overlays'.  So you have to
> load that first.

They are used in the file x-symbol-site.el
(remove-specifier (get (get-face 'isearch) 'font))
(set-face-foreground 'isearch "white" nil '(mono))
(set-face-background 'isearch "black" nil '(mono))
(remove-specifier (get (get-face 'highlight) 'font))
(set-face-underline-p 'highlight t nil '(mono))

Frankly in a context in which it does not look to important for me.

> Well, eventually when loading x-symbol.el I also got an
> wrong-number-of-arguments error but that's probably an incompatibility
> which is easy to fix.


I made some progress, the biggest problem is the error concerning this
problem, but this time the backtrace seems a bit better.
Any comment?

Debugger entered--Lisp error: (wrong-type-argument listp 
"-adobe-helvetica-medium-r-normal-*-14-*-*-*-*-*-iso8859-1")
  x-complement-fontset-spec(["*" "*" "*" "*" "*" "*" "*" "*" "*" "*" "*" "*" 
"*" "*"] ((ascii . 
"-adobe-helvetica-medium-r-normal-*-14-*-*-*-*-*-iso8859-1")))
  x-symbol-set-face-font(x-symbol-face 
"-adobe-helvetica-medium-r-normal-*-14-*-*-*-*-*-iso8859-1" (nil 
latin-iso8859-1) t)
  x-symbol-make-cset(((("iso8859-1" . iso-8859-1) 159 -3750) nil 
latin-iso8859-1) 
(("-adobe-helvetica%s-medium-r-normal-*-%d-*-*-*-*-*-iso8859-1") 
("-adobe-helvetica%s-medium-r-normal-*-%d-*-*-*-*-*-iso8859-1") 
("-adobe-helvetica%s-medium-r-normal-*-%d-*-*-*-*-*-iso8859-1")))
  x-symbol-init-cset(((("iso8859-1" . iso-8859-1) 159 -3750) nil 
latin-iso8859-1) 
("-adobe-helvetica%s-medium-r-normal-*-%d-*-*-*-*-*-iso8859-1") ((nobreakspace 
160 (white) nil nil (" ")) (exclamdown 161 (punctuation) nil nil ("!")) (cent 
162 (currency "c") nil nil ("C|" "|C")) (sterling 163 (currency "L") nil nil 
("L-" "-L")) (currency 164 (currency "x") nil nil ("ox" "xo")) (yen 165 
(currency "Y") nil nil ("Y=" "=Y")) (brokenbar 166 (line) nil nil ("!!")) 
(section 167 (symbol) nil nil ("SS")) (diaeresis 168 (diaeresis accent)) 
(copyright 169 (symbol "C") nil nil ("CO" "cO")) (ordfeminine 170 (symbol "a") 
(shift up) nil ("a_" "_a")) (guillemotleft 171 (quote open guillemotright) 
(direction west . guillemotright) nil (t "<<")) (notsign 172 (symbol) nil nil 
("-,")) (hyphen 173 (line) (size sml) nil ("-")) (registered 174 (symbol "R") 
nil nil ("RO")) (macron 175 (line) (shift up) nil ("-")) (degree 176 (symbol 
"0") (shift up) nil ("o^" "^o")) (plusminus 177 (operator) (direction north) 
nil (t "+-" t "+_")) (twosuperior 178 (symbol "2") (shift up) nil ("2^" "^2")) 
(threesuperior 179 (symbol "3") (shift up) nil ("3^" "^3")) (acute 180 (acute 
accent)) (mu1 181 (greek1 "m" nil "mu")) (paragraph 182 (symbol "P") nil nil 
("q|")) (periodcentered 183 (dots) (shift up) nil ("." ".^" t "^.")) (cedilla 
184 (cedilla accent)) (onesuperior 185 (symbol "1") (shift up) nil ("1^" "^1")) 
(masculine 186 (symbol "o") (shift up) nil ("o_" "_o")) (guillemotright 187 
(quote close guillemotleft) (direction east) nil (t ">>")) (onequarter 188 
(symbol "1") nil nil ("1Q" "1/4")) (onehalf 189 (symbol "2") nil nil ("1H" 
"1/2")) (threequarters 190 (symbol "3") nil nil ("3Q" "3/4")) (questiondown 191 
(punctuation) nil nil ("?")) (Agrave 192 (grave "A" agrave)) (Aacute 193 (acute 
"A" aacute)) (Acircumflex 194 (circumflex "A" acircumflex)) (Atilde 195 (tilde 
"A" atilde)) (Adiaeresis 196 (diaeresis "A" adiaeresis)) (Aring 197 (ring "A" 
aring)) (AE 198 (letter "AE" ae)) (Ccedilla 199 (cedilla "C" ccedilla)) (Egrave 
200 (grave "E" egrave)) (Eacute 201 (acute "E" eacute)) (Ecircumflex 202 
(circumflex "E" ecircumflex)) (Ediaeresis 203 (diaeresis "E" ediaeresis)) 
(Igrave 204 (grave "I" igrave)) (Iacute 205 (acute "I" iacute)) (Icircumflex 
206 (circumflex "I" icircumflex)) (Idiaeresis 207 (diaeresis "I" idiaeresis)) 
(ETH 208 (slash "D" eth) nil 120) (Ntilde 209 (tilde "N" ntilde)) ...))
  byte-code("\204o\306 \210\307\310 
\204/\n\204\311\312!\210\313=\204/\307\211\307\211\307\211\307\314\f#\210\314
#\210\314#\210\314#\210\314#\210\315 
\210\314#\210\314 #\210\307\207" [noninteractive 
x-symbol-all-charsyms x-symbol-default-coding x-symbol-latin-force-use 
x-symbol-latin1-fonts x-symbol-latin2-fonts x-symbol-initialize nil 
console-type warn "X-Symbol: only limited support on a console" console-user 
x-symbol-init-cset x-symbol-init-latin-decoding x-symbol-latin3-fonts 
x-symbol-latin5-fonts x-symbol-latin9-fonts x-symbol-xsymb0-fonts 
x-symbol-xsymb1-fonts x-symbol-latin1-cset x-symbol-latin1-table 
x-symbol-latin2-cset x-symbol-latin2-table x-symbol-latin3-cset 
x-symbol-latin3-table x-symbol-latin5-cset x-symbol-latin5-table 
x-symbol-latin9-cset x-symbol-latin9-table x-symbol-xsymb0-cset 
x-symbol-xsymb0-table x-symbol-xsymb1-cset x-symbol-xsymb1-table] 5)
  require(x-symbol)
  byte-code("\300\301!\210\302\303!\207" [provide x-symbol-image require 
x-symbol] 2)
  require(x-symbol-image)
  eval-buffer(#<buffer  *load*> nil "/home/oub/ALLES/emacs/x-symbol_init.el" 
nil t)  ; Reading at buffer position 1259
  load-with-code-conversion("/home/oub/ALLES/emacs/x-symbol_init.el" 
"/home/oub/ALLES/emacs/x-symbol_init.el" nil nil)
  load("/home/oub/ALLES/emacs/x-symbol_init.el" nil nil t)
  load-file("~/ALLES/emacs/x-symbol_init.el")
  call-interactively(load-file nil nil)
  command-execute(load-file)