Crashed after file save, then exit.
Command line: xe sym/pm5383_1.1
Note: xe is script:
alias xe '/opt/pkgs/bin/xemacs -bg gray -geometry 100x43+300+10 \!$ &'
Sorry, xe is alias.
gdb:
[appalachia_ioa]mystery% gdb /opt/pkgs/bin/xemacs core
GNU gdb 4.17
Copyright 1998 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB. Type "show warranty" for details.
This GDB was configured as "sparc-sun-solaris2.5.1"...
warning: core file may not match specified executable file.
Core was generated by `/opt/pkgs/bin/xemacs -bg gray -geometry 100x43+300+10 sym/pm5383_1.1'.
Program terminated with signal 11, Segmentation Fault.
Reading symbols from /usr/lib/libXm.so.3...done.
Reading symbols from /usr/openwin/lib/libtiff.so...done.
Reading symbols from /opt/pkgs/lib/libpng.so.2...done.
Reading symbols from /opt/pkgs/lib/libjpeg.so.62...done.
Reading symbols from /usr/openwin/lib/libtt.so.2...done.
Reading symbols from /usr/openwin/lib/libXmu.so.4...done.
Reading symbols from /usr/openwin/lib/libXt.so.4...done.
Reading symbols from /usr/openwin/lib/libXext.so.0...done.
Reading symbols from /usr/openwin/lib/libX11.so.4...done.
Reading symbols from /usr/openwin/lib/libSM.so.6...done.
Reading symbols from /usr/openwin/lib/libICE.so.6...done.
Reading symbols from /usr/lib/libkvm.so.1...done.
Reading symbols from /usr/lib/libkstat.so.1...done.
Reading symbols from /usr/lib/libm.so.1...done.
Reading symbols from /usr/lib/libsocket.so.1...done.
Reading symbols from /usr/lib/libnsl.so.1...done.
Reading symbols from /usr/lib/libelf.so.1...done.
Reading symbols from /usr/lib/libdl.so.1...done.
Reading symbols from /usr/lib/libc.so.1...done.
Reading symbols from /usr/openwin/lib/libdga.so.1...done.
Reading symbols from /usr/lib/libmp.so.2...done.
Reading symbols from /usr/platform/SUNW,Ultra-80/lib/libc_psr.so.1...done.
#0 0xfec9f890 in _libc_kill ()
(gdb) where
#0 0xfec9f890 in _libc_kill ()
#1 0x79614 in fatal_error_signal (sig=11) at emacs.c:539
#2 <signal handler called>
#3 0xff2cd930 in RemoveMatchingEntries ()
#4 0xff280424 in _XmEnumerateHashTable ()
#5 0xff2cda6c in CleanupOnDisplayClose ()
#6 0xff00c3cc in XtCallCallbackList ()
#7 0xff012944 in XtPhase2Destroy ()
#8 0xff0126bc in _XtDoPhase2Destroy ()
#9 0xff012450 in XtDestroyWidget ()
#10 0x15b54c in x_delete_device (d=0x4e0600) at device-x.c:875
#11 0x6b304 in delete_device_internal (d=0x4e0600, force=2043904, called_from_delete_console=2043904,
from_io_error=0) at device.c:823
#12 0x62560 in delete_console_internal (con=0x493d00, force=1, called_from_kill_emacs=2043904, from_io_error=0)
at console.c:689
#13 0x7b700 in Fkill_emacs (arg=2230276) at emacs.c:2857
#14 0x82128 in Ffuncall (nargs=-1, args=0xffbee2cc) at eval.c:3528
#15 0x570ac in execute_optimized_program (program=0x628fe1 "\207forward", stack_depth=0,
constants_data=0x37a110) at bytecode.c:746
#16 0x56d04 in funcall_compiled_function (fun=3688732, nargs=1, args=0xffbee49c) at bytecode.c:515
#17 0x82308 in Ffuncall (nargs=1, args=0xffbee498) at eval.c:3563
#18 0x5bef8 in Fcall_interactively (function=2321876, record_flag=2230276, keys=2230276) at callint.c:940
#19 0x810a0 in Fcommand_execute (cmd=2321876, record_flag=2230276, keys=2230276) at eval.c:2970
#20 0xad428 in execute_command_event (command_builder=0x4eaf40, event=6824984) at event-stream.c:3915
#21 0xada6c in Fdispatch_event (event=6824984) at event-stream.c:4199
#22 0x60c08 in Fcommand_loop_1 () at cmdloop.c:583
#23 0x60e70 in command_loop_1 (dummy=2230276) at cmdloop.c:494
#24 0x7e33c in condition_case_1 (handlers=2230372, bfun=0x60e54 <command_loop_1>, barg=2230276,
hfun=0x60ed0 <cmd_error>, harg=2230276) at eval.c:1651
#25 0x60fe0 in command_loop_2 (dummy=2230276) at cmdloop.c:256
#26 0x8615c in internal_catch (tag=2310316, func=0x60f94 <command_loop_2>, arg=2230276, threw=0x0)
at eval.c:1317
#27 0x607b4 in initial_command_loop (load_me=2230276) at cmdloop.c:305
#28 0x7af88 in sort_args (argc=2044928, argv=0xffbeecc4) at emacs.c:2353
#29 0x7cbc0 in voodoo_free_hook (mem=0x6) at emacs.c:2782
(gdb) q
Describe-Installation:
uname -a: SunOS sekrit 5.6 Generic_105181-28 sun4u sparc SUNW,Ultra-5_10
./configure '--prefix=/opt/pkgs' '--site-prefixes=/opt/pkgs'
XEmacs 21.4.5 "Civil Service" configured for `sparc-sun-solaris2.6'.
Compilation / Installation:
Source code location: /home/stoffel/src/Emacs/xemacs-21.4.5
Installation prefix: /opt/pkgs
Additional prefixes: /opt/pkgs
Runtime library search path: /opt/pkgs/lib:/usr/dt/lib:/usr/openwin/lib
Operating system description file: `s/sol2.h'
Machine description file: `m/sparc.h'
Compiler: gcc -g -O3 -Wall -Wno-switch -Winline -Wmissing-prototypes -Wsign-compare -Wshadow -Wpointer-arith
Relocating allocator for buffers: yes
GNU version of malloc: yes
Window System:
Compiling in support for the X window system:
- X Windows headers location: /usr/dt/include /usr/openwin/include
- X Windows libraries location: /usr/dt/lib /usr/openwin/lib
- Handling WM_COMMAND properly.
Using Lucid menubars.
Using Lucid scrollbars.
Using Motif dialog boxes.
Using Motif native widgets.
TTY:
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.
Sound:
Compiling in support for sound (native).
Databases:
Compiling in support for GNU DBM.
Internationalization:
Mail:
Compiling in support for "dot-locking" mail spool file locking method.
Other Features:
Compiling in support for ToolTalk.
Compiling in support for dynamic shared object modules.
Xemacs-Options:
;; -*- Mode: Emacs-Lisp -*-
(setq options-file-xemacs-version '(19 14))
(setq-default case-fold-search t)
(setq-default overwrite-mode nil)
(setq-default case-fold-search t)
(setq-default case-replace t)
(setq-default zmacs-regions t)
(setq-default mouse-yank-at-point nil)
(setq-default teach-extended-commands-p t)
(setq-default teach-extended-commands-timeout 2)
(setq-default debug-on-error nil)
(setq-default debug-on-quit nil)
(setq-default lpr-switches nil)
(setq-default ps-print-color-p t)
(setq-default ps-paper-type 'ps-letter)
(setq-default get-frame-for-buffer-default-instance-limit nil)
(setq-default temp-buffer-show-function 'show-temp-buffer-in-current-frame)
(setq-default font-lock-auto-fontify t)
(setq-default font-lock-use-fonts nil)
(setq-default font-lock-use-colors t)
(setq-default font-lock-maximum-decoration t)
(setq-default font-lock-maximum-size 256000)
(setq-default font-lock-mode-enable-list nil)
(setq-default font-lock-mode-disable-list nil)
(require 'font-lock)
(add-hook 'font-lock-mode-hook 'turn-on-fast-lock)
(remove-hook 'font-lock-mode-hook 'turn-on-lazy-lock)
(require 'paren)
(paren-set-mode 'blink-paren)
(if (featurep 'scrollbar) (progn (add-spec-list-to-specifier scrollbar-width 'nil) (add-spec-list-to-specifier scrollbar-height 'nil)))
(add-spec-list-to-specifier modeline-shadow-thickness '((global (nil . 2))))
(setq-default truncate-lines t)
(setq-default bar-cursor nil)
(setq-default buffers-menu-max-size 25)
(setq-default complex-buffers-menu-p nil)
(setq-default buffers-menu-sort-function 'sort-buffers-menu-by-mode-then-alphabetically)
(setq-default buffers-menu-grouping-function 'group-buffers-menu-by-mode-then-alphabetically)
(setq-default buffers-menu-submenus-for-groups-p nil)
(setq-default font-menu-ignore-scaled-fonts t)
(setq-default font-menu-this-frame-only-p t)
(if (featurep 'toolbar) (progn (set-default-toolbar-position 'top) (add-spec-list-to-specifier default-toolbar-visible-p 'nil) (add-spec-list-to-specifier toolbar-buttons-captioned-p 'nil)))
(setq-default browse-url-browser-function 'browse-url-netscape)
(make-face 'gui-button-face)
(make-face 'secondary-selection)
(make-face 'list-mode-item-selected)
(make-face 'bold-italic)
(make-face 'pointer)
(make-face 'font-lock-string-face)
(make-face 'font-lock-doc-string-face)
(make-face 'font-lock-type-face)
(make-face 'green)
(make-face 'right-margin)
(make-face 'modeline)
(make-face 'font-lock-reference-face)
(make-face 'paren-mismatch)
(make-face 'bold)
(make-face 'modeline-mousable)
(make-face 'paren-match)
(make-face 'yellow)
(make-face 'italic)
(make-face 'modeline-mousable-minor-mode)
(make-face 'modeline-buffer-id)
(make-face 'primary-selection)
(make-face 'zmacs-region)
(make-face 'font-lock-preprocessor-face)
(make-face 'font-lock-function-name-face)
(make-face 'font-lock-keyword-face)
(make-face 'font-lock-comment-face)
(make-face 'isearch)
(make-face 'text-cursor)
(make-face 'left-margin)
(make-face 'font-lock-variable-name-face)
(make-face 'default)
(make-face 'makefile-space-face)
(make-face 'underline)
(make-face 'highlight)
(make-face 'paren-blink-off)
(make-face 'blue)
(make-face 'red)
(add-spec-list-to-specifier (face-property 'gui-button-face 'foreground) '((global (nil . "black"))))
(add-spec-list-to-specifier (face-property 'gui-button-face 'background) '((global (nil . "grey75"))))
(add-spec-list-to-specifier (face-property 'secondary-selection 'background) '((global ((grayscale) . "gray53") ((color) . "paleturquoise") ((color) . "green"))))
(add-spec-list-to-specifier (face-property 'list-mode-item-selected 'foreground) '((global ((mono x) . [default background]))))
(add-spec-list-to-specifier (face-property 'list-mode-item-selected 'background) '((global ((mono x) . [default foreground]) ((grayscale) . "gray68") ((color) . "gray68"))))
(add-spec-list-to-specifier (face-property 'list-mode-item-selected 'reverse) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'bold-italic 'font) '((global (nil . "-*-courier-bold-i-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'bold-italic 'underline) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'bold-italic 'highlight) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'font-lock-string-face 'foreground) '((global (nil . "green2") ((color) . "green4") ((color) . "green"))))
(add-spec-list-to-specifier (face-property 'font-lock-string-face 'font) '((global ((mono) . [italic]) ((grayscale) . [italic]))))
(add-spec-list-to-specifier (face-property 'font-lock-string-face 'underline) '((global ((tty)) (nil))))
(add-spec-list-to-specifier (face-property 'font-lock-doc-string-face 'foreground) '((global (nil . "green3") ((color) . "green4") ((color) . "green"))))
(add-spec-list-to-specifier (face-property 'font-lock-doc-string-face 'font) '((global ((mono) . [italic]) ((grayscale) . [italic]))))
(add-spec-list-to-specifier (face-property 'font-lock-type-face 'foreground) '((global (nil . "purple") ((color) . "#6920ac"))))
(add-spec-list-to-specifier (face-property 'font-lock-type-face 'font) '((global ((mono) . [italic]) ((grayscale) . [italic]))))
(add-spec-list-to-specifier (face-property 'green 'foreground) '((global ((color) . "green"))))
(add-spec-list-to-specifier (face-property 'modeline 'foreground) '((global ((x) . "Black"))))
(add-spec-list-to-specifier (face-property 'modeline 'background) '((global ((x) . "Gray75"))))
(add-spec-list-to-specifier (face-property 'modeline 'background-pixmap) '((global ((x) . [nothing]) ((tty) . [nothing]) ((stream) . [nothing]))))
(add-spec-list-to-specifier (face-property 'modeline 'reverse) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'font-lock-reference-face 'foreground) '((global (nil . "red3") (nil . "red") ((color) . "red3") ((color) . "red"))))
(add-spec-list-to-specifier (face-property 'font-lock-reference-face 'font) '((global ((mono) . [bold]) ((grayscale) . [bold]))))
(add-spec-list-to-specifier (face-property 'paren-mismatch 'foreground) '((global ((grayscale x) . [modeline foreground]) ((mono x) . [modeline foreground]))))
(add-spec-list-to-specifier (face-property 'paren-mismatch 'background) '((global ((grayscale x) . [modeline background]) ((mono x) . [modeline background]) ((color x) . "DeepPink"))))
(add-spec-list-to-specifier (face-property 'paren-mismatch 'reverse) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'bold 'font) '((global (nil . "-*-courier-bold-r-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'bold 'highlight) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'foreground) '((global ((color x) . "red") (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'background) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'font) '((global ((grayscale x) . [bold]) ((mono x) . [bold]) (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'background-pixmap) '((global ((x) . [inherit :face #s(face name modeline)]) ((tty) . [inherit :face #s(face name modeline)]) ((stream) . [inherit :face #s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'underline) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'strikethru) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'highlight) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'dim) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'blinking) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable 'reverse) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'paren-match 'background) '((global ((color) . "darkseagreen2") ((color) . "green") ((grayscale) . "gray53"))))
(add-spec-list-to-specifier (face-property 'paren-match 'highlight) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'yellow 'foreground) '((global ((color) . "yellow"))))
(add-spec-list-to-specifier (face-property 'italic 'font) '((global (nil . "-*-courier-medium-i-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'italic 'underline) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode 'foreground) '((global ((color x) . "green4") ((color x) . "green") (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode 'background) '((global (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode 'font) '((global (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode 'background-pixmap) '((global ((x) . [inherit :face #s(face name modeline-mousable)]) ((tty) . [inherit :face #s(face name modeline-mousable)]) ((stream) . [inherit :face #s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode 'underline) '((global (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode 'strikethru) '((global (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode 'highlight) '((global (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode 'dim) '((global (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode 'blinking) '((global (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-mousable-minor-mode 'reverse) '((global (nil . [#s(face name modeline-mousable)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'foreground) '((global ((color x) . "blue") (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'background) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'font) '((global ((tty) . [bold-italic]) ((grayscale x) . [bold-italic]) ((mono x) . [bold-italic]) (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'background-pixmap) '((global ((x) . [inherit :face #s(face name modeline)]) ((tty) . [inherit :face #s(face name modeline)]) ((stream) . [inherit :face #s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'underline) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'strikethru) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'highlight) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'dim) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'blinking) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'modeline-buffer-id 'reverse) '((global (nil . [#s(face name modeline)]))))
(add-spec-list-to-specifier (face-property 'primary-selection 'background) '((global ((grayscale) . "gray80") ((color) . "gray"))))
(add-spec-list-to-specifier (face-property 'primary-selection 'background-pixmap) '((global ((mono x) . [autodetect :data "gray3"]) ((mono tty) . [string :data "gray3"]))))
(add-spec-list-to-specifier (face-property 'zmacs-region 'background) '((global ((grayscale) . "gray80") ((color) . "gray"))))
(add-spec-list-to-specifier (face-property 'zmacs-region 'reverse) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'font-lock-preprocessor-face 'foreground) '((global (nil . "navajowhite") ((color) . "blue3") ((color) . "blue"))))
(add-spec-list-to-specifier (face-property 'font-lock-preprocessor-face 'font) '((global (nil . "-adobe-courier-bold-r-normal--*-130-75-75-m-0-iso8859-1") ((mono) . [bold-italic]) ((grayscale) . [bold-italic]))))
(add-spec-list-to-specifier (face-property 'font-lock-preprocessor-face 'highlight) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'font-lock-function-name-face 'foreground) '((global (nil . "blue violet") ((color) . "blue3") ((color) . "blue"))))
(add-spec-list-to-specifier (face-property 'font-lock-function-name-face 'background) '((global (nil . "black"))))
(add-spec-list-to-specifier (face-property 'font-lock-function-name-face 'font) '((global (nil . "-*-courier-bold-r-*-*-*-120-*-*-*-*-iso8859-*") ((mono) . [bold]) ((grayscale) . [bold]))))
(add-spec-list-to-specifier (face-property 'font-lock-function-name-face 'underline) '((global ((tty)))))
(add-spec-list-to-specifier (face-property 'font-lock-function-name-face 'highlight) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'font-lock-keyword-face 'foreground) '((global (nil . "orange") ((color) . "orange"))))
(add-spec-list-to-specifier (face-property 'font-lock-keyword-face 'font) '((global ((mono) . [bold]) ((grayscale) . [bold]))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face 'foreground) '((global (nil . "red") ((color) . "red"))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face 'font) '((global ((mono) . [italic]) ((grayscale) . [italic]))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face 'underline) '((global ((mono tty)) ((grayscale tty)))))
(add-spec-list-to-specifier (face-property 'font-lock-comment-face 'highlight) '((global ((mono tty) . t) ((grayscale tty) . t))))
(add-spec-list-to-specifier (face-property 'isearch 'background) '((global ((color) . "paleturquoise") ((color) . "green"))))
(add-spec-list-to-specifier (face-property 'isearch 'reverse) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'text-cursor 'foreground) '((global (nil . [default background]))))
(add-spec-list-to-specifier (face-property 'text-cursor 'background) '((global ((x) . "Red3"))))
(add-spec-list-to-specifier (face-property 'text-cursor 'reverse) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'font-lock-variable-name-face 'foreground) '((global (nil . "aquamarine") ((color) . "blue3") ((color) . "blue"))))
(add-spec-list-to-specifier (face-property 'font-lock-variable-name-face 'font) '((global ((mono) . [bold]) ((grayscale) . [bold]))))
(add-spec-list-to-specifier (face-property 'default 'foreground) '((global ((x) . "white"))))
(add-spec-list-to-specifier (face-property 'default 'background) '((global ((x) . "black"))))
(add-spec-list-to-specifier (face-property 'default 'font) '((global (nil . "-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*"))))
(add-spec-list-to-specifier (face-property 'makefile-space-face 'background) '((global ((mono x) . "black") ((grayscale x) . "black") ((color x) . "hotpink") ((mono x) . "black") ((grayscale x) . "black") ((color x) . "hotpink"))))
(add-spec-list-to-specifier (face-property 'underline 'underline) '((global (nil . t))))
(add-spec-list-to-specifier (face-property 'highlight 'background) '((global ((color) . "darkseagreen2") ((color) . "green") ((grayscale) . "gray53"))))
(add-spec-list-to-specifier (face-property 'highlight 'highlight) '((global ((tty) . t))))
(add-spec-list-to-specifier (face-property 'paren-blink-off 'foreground) '((global ((x) . "white"))))
(add-spec-list-to-specifier (face-property 'blue 'foreground) '((global (nil . "blue") ((color) . "blue"))))
(add-spec-list-to-specifier (face-property 'red 'foreground) '((global ((color) . "red"))))
(defun prepend-path ( my-path )
(setq load-path (cons (expand-file-name my-path) load-path)))
(defun append-path ( my-path )
(setq load-path (append load-path (list (expand-file-name my-path)))))
;; Look first in the directory ~/elisp for elisp files
(prepend-path "~/elisp")
;; Load verilog mode only when needed
(autoload 'verilog-mode "verilog-mode" "Verilog mode" t )
;; Any files that end in .v should be in verilog mode
(setq auto-mode-alist (cons '("\\.v\\'" . verilog-mode) auto-mode-alist))
;; Any files in verilog mode should have their keywords colorized
(add-hook 'verilog-mode-hook '(lambda () (font-lock-mode 1)))
Have core dump, will send on request. I will keep for 1 week.
Thomas Everett
Lucent Tech.
1-978-952-7478
everettt(a)lucent.com
end