5:25 p.m.
While not quite related, I've had the following diff against cvs
lisp/font-menu.el for a long time...
Cheers.
ChangeLog:
2002-10-14 Edward M. Lee <edward(a)tailifer.com>
* font-menu.el (font-menu-preferred-resolution): GTK support.
* font-menu.el (font-menu-size-scaling): Ditto.
* font-menu.el (font-menu-size-constructor): Use weight.
* font-menu.el (font-menu-weight-constructor): Use size.
* font-menu.el (font-menu-set-font): Handle nil font, family,
size.
Index: lisp/font-menu.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/font-menu.el,v
retrieving revision 1.4
diff -u -r1.4 font-menu.el
--- lisp/font-menu.el 2002/06/20 21:18:03 1.4
+++ lisp/font-menu.el 2002/10/14 16:18:50
＠＠ -137,11 +137,13 ＠＠
(defvar font-menu-preferred-resolution
(make-specifier-and-init 'generic '((global ((mswindows) . ":")
+ ((gtk) . "*-*")
((x) . "*-*"))) t)
"Preferred horizontal and vertical font menu resolution (e.g.
\"75:75\").")
(defvar font-menu-size-scaling
(make-specifier-and-init 'integer '((global ((mswindows) . 1)
+ ((gtk) . 10)
((x) . 10))) t)
"Scale factor used in defining font sizes.")
＠＠ -222,7 +224,7 ＠＠
(entry (aref font-data 0))
(family (aref font-data 1))
(size (aref font-data 2))
- ;;(weight (aref font-data 3))
+ (weight (aref font-data 3))
s)
(unless family
(throw 'menu '(["Cannot parse current font" ding nil])))
＠＠ -253,7 +255,7 ＠＠
(font-data (font-menu-font-data 'default dcache))
(entry (aref font-data 0))
(family (aref font-data 1))
- ;;(size (aref font-data 2))
+ (size (aref font-data 2))
(weight (aref font-data 3))
w)
(unless family
＠＠ -284,7 +286,7 ＠＠
(font-data (font-menu-font-data 'default dcache))
(from-family (aref font-data 1))
(from-size (aref font-data 2))
- (from-weight (aref font-data 3))
+ (from-weight (aref font-data 3))
(from-slant (aref font-data 4))
(face-list-to-change (delq 'default (face-list)))
new-default-face-font)
＠＠ -315,7 +317,9 ＠＠
(condition-case c
(font-menu-change-face face
from-family from-weight from-size
- family weight size)
+ (or family from-family)
+ (or weight from-weight)
+ (or size from-size))
(error
(display-error c nil)
(sit-for 1)))))
＠＠ -330,7 +334,7 ＠＠
;; OK Let Customize do it.
(custom-set-face-update-spec 'default
(list (list 'type (device-type)))
- (list :family family
+ (list :family (or family from-family)
:size (concat
(int-to-string
(/ (or size from-size)
-----Original Message-----
From: xemacs-beta-admin(a)xemacs.org [mailto:xemacs-beta-admin＠xemacs.org]
On Behalf Of Michael Below
Sent: Monday, October 14, 2002 9:48 AM
To: xemacs-beta(a)xemacs.org; bug(a)debian.org
Subject: xemacs21: setting font size -> crash
This bug report will be sent to the XEmacs Development Team,
not to your local site managers!!
Please write in English, because the XEmacs maintainers do not have
translators to read other languages for them.
Please describe as succinctly as possible:
- What happened.
- What you thought should have happened.
- Precisely what you were doing at the time.
Please also include any C or lisp back-traces that you may have.
================================================================
Dear Bug Team!
I started xemacs for the second time, started "Read Mail 2 (MH)" from
the Tools/Internet menu, read a number of messages. Then I tried to
increase the font size to 14(pt?) via the Options/Font Size menu,
the option is labeled "0". On doing this xemacs crashed. I was asked to
look for a
file called core, but there is none in my home dir where I started
xemacs. Also it said:
Lisp backtrace follows:
# bind (inhibit-quit)
# (condition-case ... . error)
# (catch top-level ...)
And a last one: the uname below is wrong, probably its from the Debian
package maintainer's system. Here I have got:
~ $uname -a
Linux antithese.de 2.4.18 #1 Son Aug 18 15:28:25 MEST 2002 i586 unknown
Hope this helps...
Michael Below
================================================================
System Info to help track down your bug:
---------------------------------------
uname -a: Linux eeyore 2.4.19-pre5-eeyore #1 Fri Apr 5 00:42:42 EST 2002
i686 unknown
./configure '--with-sound=none,native' '--cflags=-O2 -g -Wall'
'--with-x11' '--extra-verbose' '--with-site-lisp'
'--statedir=/var/lib'
'--infodir=/usr/share/info/xemacs-21.4.6' '--prefix=/usr'
'--error-checking=none' '--debug=no' '--dynamic'
'--without-postgresql'
'--with-gpm=no' '--with_menubars=lucid' '--with_scrollbars=lucid'
'--with_dialogs=athena'
'--docdir=/usr/lib/xemacs-21.4.6/i386-debian-linux/mule/' '--with-mule'
'--with-canna=no' '--with-wnn=no' '--with-xim=xlib'
'--with-xfs'
'--package-path=~/.xemacs:~/.xemacs/packages:~/.xemacs/xemacs-packages::
/usr/share/xemacs21/packages:/usr/share/xemacs21/mule-packages:/usr/shar
e/xemacs21/site-packages' 'i386-debian-linux'
XEmacs 21.4.6 "Common Lisp" configured for `i386-debian-linux'.
Compilation / Installation:
Source code location:
/home/dres/project/debian/current/xemacs21/xemacs-21.4.6
Installation prefix: /usr
Operating system description file: `s/linux.h'
Machine description file: `m/intel386.h'
Compiler: gcc -O2 -g -Wall
Relocating allocator for buffers: no
GNU version of malloc: yes
- Using Doug Lea's new malloc from the GNU C Library.
Linking with `-Xlinker -znocombreloc'.
- Consider configuring with --pdump.
Window System:
Compiling in support for the X window system:
- X Windows headers location: /usr/X11R6/include
- X Windows libraries location: /usr/X11R6/lib
- Handling WM_COMMAND properly.
Compiling in support for the Athena widget set:
- Athena headers location: X11/Xaw
- Athena library to link: Xaw
Using Lucid menubars.
Using Lucid scrollbars.
Using Athena dialog boxes.
Using Athena native widgets.
TTY:
Compiling in support for ncurses.
Images:
Compiling in support for GIF images (builtin).
Compiling in support for XPM images.
Compiling in support for PNG images.
Compiling in support for JPEG images.
Compiling in support for TIFF images.
Compiling in support for X-Face message headers.
Sound:
Compiling in support for sound (native).
Databases:
Compiling in support for Berkeley database.
Compiling in support for LDAP.
Internationalization:
Compiling in support for Mule (multi-lingual Emacs).
Compiling in support for XIM (X11R5+ I18N input method).
- Using raw Xlib to provide XIM support.
- Using XFontSet to provide bilingual menubar.
Mail:
Compiling in support for "dot-locking" mail spool file locking method.
Other Features:
Inhibiting IPv6 canonicalization at startup.
Compiling in support for dynamic shared object modules.
Load-Path Lisp Shadows:
----------------------
(/usr/share/xemacs21/site-lisp/debian-startup
/usr/share/emacs/site-lisp/debian-startup /etc/emacs/site-start
/usr/share/xemacs21/site-packages/lisp/site-start)
Installed XEmacs Packages:
-------------------------
((ada:version 1.1 :type regular)
(apel :version 1.21 :type regular)
(auctex :version 1.3 :type regular)
(bbdb :version 1.2 :type regular)
(c-support :version 1.16 :type single-file)
(calc :version 1.19 :type regular)
(calendar :version 1.18 :type regular)
(cc-mode :version 1.27 :type regular)
(clearcase :version 1.03 :type regular)
(cookie :version 1.14 :type regular)
(crisp :version 1.12 :type regular)
(debug :version 1.14 :type regular)
(dired :version 1.11 :type regular)
(edebug :version 1.14 :type regular)
(ediff :version 1.39 :type regular)
(edit-utils :version 1.82 :type single-file)
(edt :version 1.12 :type regular)
(efs :version 1.28 :type regular)
(eieio :version 1.02 :type regular)
(elib :version 1.1 :type single-file)
(emerge :version 1.09 :type regular)
(eshell :version 1.03 :type regular)
(eterm :version 1.13 :type regular)
(eudc :version 1.36 :type regular)
(footnote :version 1.14 :type regular)
(forms :version 1.14 :type regular)
(frame-icon :version 1.09 :type regular)
(fsf-compat :version 1.11 :type single-file)
(games :version 1.13 :type regular)
(gnats :version 1.14 :type regular)
(gnus :version 1.59 :type regular)
(hm--html-menus :version 1.18 :type regular)
(ibuffer :version 1.04 :type regular)
(idlwave :version 1.25 :type regular)
(igrep :version 1.08 :type regular)
(ilisp :version 1.2 :type regular)
(ispell :version 1.24 :type regular)
(jde :version 1.34 :type regular)
(liece :version 1.02 :type regular)
(mail-lib :version 1.44 :type regular)
(mailcrypt :version 2.11 :type regular)
(mew :version 1.17 :type regular)
(mh-e :version 1.14 :type regular)
(mine :version 1.14 :type regular)
(misc-games :version 1.15 :type single-file)
(mmm-mode :version 1.0 :type regular)
(net-utils :version 1.24 :type single-file)
(os-utils :version 1.26 :type single-file)
(pc :version 1.21 :type single-file)
(pcl-cvs :version 1.6 :type regular)
(pcomplete :version 1.01 :type regular)
(prog-modes
:version
1
.53
:type
single-file)
(ps-print :version 1.03 :type regular)
(psgml :version 1.27 :type regular)
(reftex :version 1.25 :type regular)
(rmail :version 1.13 :type regular)
(scheme :version 1.11 :type regular)
(semantic :version 1.12 :type regular)
(sgml :version 1.08 :type regular)
(sh-script :version 1.14 :type regular)
(sieve :version 1.02 :type regular)
(slider :version 1.13 :type regular)
(sounds-au :version 1.1 :type regular)
(sounds-wav :version 1.1 :type regular)
(speedbar :version 1.23 :type regular)
(strokes :version 1.08 :type regular)
(supercite :version 1.19 :type regular)
(texinfo :version 1.2 :type regular)
(text-modes :version 1.4 :type single-file)
(textools :version 1.12 :type regular)
(time :version 1.11 :type regular)
(tm :version 1.32 :type regular)
(tooltalk :version 1.13 :type regular)
(tpu :version 1.12 :type regular)
(vc :version 1.3 :type regular)
(vc-cc :version 1.18 :type regular)
(vhdl :version 1.15 :type regular)
(view-process :version 1.11 :type regular)
(viper :version 1.33 :type regular)
(w3 :version 1.22 :type regular)
(xemacs-base :version 1.61 :type regular)
(xemacs-devel :version 1.43 :type single-file)
(zenirc :version 1.13 :type regular)
(skk :version 1.21 :type regular)
(mule-ucs :version 1.04 :type regular)
(mule-base :version 1.39 :type regular)
(lookup :version 1.1 :type regular)
(locale :version 1.18 :type regular)
(leim :version 1.17 :type regular)
(latin-unity :version 1.02 :type regular)
(egg-its :version 1.26 :type regular)
(edict :version 1.13 :type regular)
(xslide :version 1.01 :type regular)
(vm :version 7.03 :type regular)
(build :version 1.05 :type regular))
Features:
--------
(mail-abbrevs xemacsbug shadow sendmail rfc822 disp-table
ada-autoloads apel-autoloads auctex-autoloads bbdb-autoloads
c-support-autoloads calc-autoloads calendar-autoloads
cc-mode-autoloads clearcase-autoloads cookie-autoloads crisp-autoloads
debug-autoloads dired-autoloads edebug-autoloads ediff-autoloads
edit-utils-autoloads edt-autoloads efs-autoloads eieio-autoloads
elib-autoloads emerge-autoloads eshell-autoloads eterm-autoloads
eudc-autoloads footnote-autoloads forms-autoloads frame-icon-autoloads
fsf-compat-autoloads games-autoloads gnats-autoloads gnus-autoloads
hm--html-menus-autoloads ibuffer-autoloads idlwave-autoloads
igrep-autoloads ilisp-autoloads ispell-autoloads jde-autoloads
liece-autoloads mail-lib-autoloads mailcrypt-autoloads mew-autoloads
mh-e-autoloads mine-autoloads misc-games-autoloads mmm-mode-autoloads
net-utils-autoloads os-utils-autoloads pc-autoloads pcl-cvs-autoloads
pcomplete-autoloads prog-modes-autoloads ps-print-autoloads
psgml-autoloads reftex-autoloads rmail-autoloads scheme-autoloads
semantic-autoloads sgml-autoloads sh-script-autoloads sieve-autoloads
slider-autoloads sounds-au-autoloads sounds-wav-autoloads
speedbar-autoloads strokes-autoloads supercite-autoloads
texinfo-autoloads text-modes-autoloads textools-autoloads
time-autoloads tm-autoloads tooltalk-autoloads tpu-autoloads
vc-autoloads vc-cc-autoloads vhdl-autoloads view-process-autoloads
viper-autoloads w3-autoloads xemacs-base-autoloads
xemacs-devel-autoloads zenirc-autoloads mule-autoloads skk-autoloads
mule-ucs-autoloads mule-base-autoloads lookup-autoloads
locale-autoloads leim-autoloads latin-unity-autoloads
egg-its-autoloads edict-autoloads xslide-autoloads vm-autoloads
build-autoloads lisp-autoloads loadhist auto-show fontl-hooks
x-iso8859-1 slovenian czech romanian ccl mule-help code-cmds
gutter-items menubar-items x-menubar mode-motion mouse itimer
auto-save lisp-mode easymenu iso8859-1 page buff-menu lib-complete
cus-file derived frame text-props obsolete cus-start custom widget
cl-extra mini-cl cl cl-19 packages backquote very-early-lisp
file-coding mule lucid-scrollbars cut-buffer lucid-menubars
athena-dialogs x c-balloon-help tty-frames tty toolbar native-sound
scrollbar unix-processes multicast network-streams subprocesses
modules menu-accelerator-support menubar berkeley-db md5 xemacs xim
gutter tiff png gif jpeg xface xpm xbm lisp-float-type linux dialog
devices window-system base64)
Recent keystrokes:
-----------------
misc-user
Recent messages (most recent first):
-----------------------------------
Loading xemacsbug...done
Loading xemacsbug...
Loading 50user-de...done
Loading disp-table...done
Loading disp-table...
Loading 50user-de...
Loading 50gettext...done
Loading 50gettext...
Loading 50dpkg-dev...done
Loading 50dpkg-dev...
Loading 00debian-vars...done
Loading 00debian-vars...
Loading 00debian...done
Loading site-start...done
Loading site-start...
Loading /usr/share/xemacs21/packages/lisp/ada/auto-autoloads.elc...done
Loading /usr/share/xemacs21/packages/lisp/ada/auto-autoloads.elc...
Loading /usr/share/xemacs21/packages/lisp/apel/auto-autoloads.elc...done
Loading /usr/share/xemacs21/packages/lisp/apel/auto-autoloads.elc...
Loading
/usr/share/xemacs21/packages/lisp/auctex/auto-autoloads.elc...done