temacs crashes when building with -DNEW_GC WITHOUT optimization :-) Here's the C Call Stack: Adrian OS version: Microsoft Windows XP [Version 5.1.2600] OS: Windows_NT XEmacs 21.5-b23 "daikon" (+CVS-20051124) configured for `i586-pc-win32'. Building XEmacs using "NMAKE". Building XEmacs using make flags " ". Building XEmacs in source tree "c:\\Hacking\\cvs.xemacs.org\\XEmacs\\xemacs-21.5-clean". For src, using compiler "cl -nologo -W3 -DSTRICT -Zi -Od -MDd -c -Ic:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\nt\inc -Ic:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\src -I"c:\Hacking\libs4xemacs\xpm-3.4k" -I"c:\Hacking\libs4xemacs\xpm-3.4k\lib" -I"c:\Hacking\libs4xemacs\libpng-1.0.2" -I"c:\Hacking\libs4xemacs\zlib" -I"c:\Hacking\libs4xemacs\tiff-v3.4\libtiff" -I"c:\Hacking\libs4xemacs\jpeg-6b" -I"c:\Hacking\libs4xemacs\compface" -I"c:\Hacking\libs4xemacs\zlib" -DHAVE_MS_WINDOWS -DHAVE_MENUBARS -DHAVE_SCROLLBARS -DHAVE_TOOLBARS -DHAVE_WIDGETS -DHAVE_DIALOGS -DHAVE_XPM -DFOR_MSW -DHAVE_GIF -DHAVE_PNG -DHAVE_TIFF -DHAVE_JPEG -DHAVE_XFACE -DHAVE_ZLIB -DHAVE_NATIVE_SOUND -DMULE -DPDUMP -DNEW_GC -DUSE_KKCC -DMC_ALLOC -DSYSTEM_MALLOC -DDEBUG_XEMACS -D_DEBUG -DWIN32_LEAN_AND_MEAN -DWIN32_NATIVE -Demacs -DHAVE_CONFIG_H -DPATH_VERSION=\"21.5-b23\" -DPATH_PROGNAME=\"xemacs\" -DEMACS_VERSION=\"21.5-b23\" -DEMACS_PROGNAME=\"xemacs\" -DSTACK_TRACE_EYE_CATCHER=xemacs_21_5_b23_i586_pc_win32 -DPATH_PREFIX=\"..\" -DEMACS_MAJOR_VERSION=21 -DEMACS_MINOR_VERSION=5 -DEMACS_BETA_VERSION=23 -DXEMACS_CODENAME=\""daikon"\" -DXEMACS_EXTRA_NAME=\"(+CVS-20051124)\" -DEMACS_CONFIGURATION=\"i586-pc-win32\" -DPATH_PACKAGEPATH=\""~\\.xemacs;;c:\\Program Files\\XEmacs\\site-packages;c:\\Program Files\\XEmacs\\mule-packages;c:\\Program Files\\XEmacs\\xemacs-packages"\"". For lib-src, using compiler "cl -nologo -W3 -DSTRICT -Zi -Od -MDd -Ic:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lib-src -Ic:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\src -DHAVE_CONFIG_H -DWIN32_NATIVE". Installing XEmacs in "c:\\Program Files\\XEmacs\\XEmacs-21.5-b23". Package path is "~\\.xemacs;;c:\\Program Files\\XEmacs\\site-packages;c:\\Program Files\\XEmacs\\mule-packages;c:\\Program Files\\XEmacs\\xemacs-packages". Compiling in support for Microsoft Windows native GUI. Compiling in international (MULE) support. Compiling in support for XPM images. Compiling in support for GIF images. Compiling in support for PNG images. Compiling in support for TIFF images. Compiling in support for JPEG images. Compiling in support for X-Face message headers. Compiling in support for GZIP compression/decompression. Compiling in support for toolbars. Compiling in support for dialogs. Compiling in support for widgets. Compiling in support for native sounds. Using portable dumper. Using system malloc. Using DLL version of C runtime library. Compiling in debugging support (no slowdown). Using new experimental GC algorithms. Using new experimental allocator. Using new experimental incremental garbage collector. \s-+.+\)*\|^Note:\|Installing\|[Ff]ile(s) copied\|\s-+tests\s-+\|^[A-Z] [^ ]+$\|^Wrong number of arguments:\|^ \*\* " cd c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\ Compilation started at Fri Nov 25 18:18:33 2005 +0100 (W. Europe Standard Time) ? gunzip-error.txt ? man/lispref/errors.texi.new ? nt/xemacs-21.5-clean-make-all-texinfo-error.err P ChangeLog P Makefile.in.in P PROBLEMS P configure P configure.ac P version.sh P dynodump/Makefile.in.in U etc/.cvsignore P etc/ChangeLog U etc/HELLO P lib-src/ChangeLog P lib-src/Makefile.in.in P lib-src/etags.c rcsmerge: warning: conflicts during merge C lisp/ChangeLog M lisp/cmdloop.el P lisp/cus-start.el P lisp/derived.el P lisp/diagnose.el P lisp/files.el P lisp/frame.el P lisp/glyphs.el P lisp/help.el P lisp/hyper-apropos.el P lisp/menubar-items.el P lisp/mouse.el M lisp/package-get.el P lisp/select.el P lisp/simple.el P lisp/specifier.el P lisp/syntax.el P lisp/toolbar.el P lwlib/ChangeLog P lwlib/Makefile.in.in P lwlib/xlwcheckbox.c P lwlib/xlwradio.c P man/ChangeLog P man/Makefile P man/internals/internals.texi P modules/ChangeLog P modules/canna/canna_api.c P modules/common/Makefile.common P netinstall/ChangeLog P netinstall/Makefile.in.in P nt/ChangeLog P nt/config.inc.samp P nt/xemacs.dsp P nt/xemacs.mak P src/.cvsignore U src/.dbxrc.in U src/.gdbinit.in P src/ChangeLog P src/Makefile.in.in P src/alloc.c P src/buffer.c P src/buffer.h P src/bytecode.c P src/bytecode.h P src/config.h.in P src/console-gtk-impl.h P src/console-msw-impl.h P src/console-stream-impl.h P src/console-stream.c P src/console-stream.h P src/console-tty-impl.h P src/console-tty.c P src/console-x-impl.h P src/console.c P src/database.c P src/depend P src/device-gtk.c P src/device-msw.c P src/device-tty.c P src/device-x.c P src/device.c P src/dumper.c P src/dynarr.c P src/elhash.c P src/elhash.h P src/emacs.c P src/eval.c P src/event-Xt.c P src/event-msw.c P src/events.c P src/extents.c P src/extents.h P src/faces.h P src/frame-gtk.c rcsmerge: warning: conflicts during merge C src/frame-msw.c P src/frame-x.c P src/frame.c U src/gc.c U src/gc.h P src/glyphs-gtk.c P src/glyphs-gtk.h P src/glyphs.c P src/glyphs.h P src/gtk-xemacs.c P src/keymap.c P src/lisp.h P src/lrecord.h P src/mc-alloc.c P src/mc-alloc.h P src/mule-coding.c P src/objects-tty-impl.h P src/objects-tty.c P src/objects.c P src/print.c P src/redisplay-gtk.c P src/sound.c P src/specifier.c P src/specifier.h P src/syntax.c P src/syntax.h P src/text.h P src/toolbar.c U src/vdb-fake.c U src/vdb-mach.c U src/vdb-posix.c U src/vdb-win32.c U src/vdb.c U src/vdb.h P src/window.c cvs server: Updating tests cvs server: Updating tests/DLL M tests/automated/region-tests.el U PROBLEMS U dynodump/Makefile.in.in U lib-src/Makefile.in.in U lib-src/etags.c U lisp/derived.el U lisp/files.el U lisp/frame.el U lisp/glyphs.el U lisp/hyper-apropos.el U lisp/menubar-items.el U lisp/mouse.el U lisp/select.el U lisp/specifier.el U lisp/syntax.el U lisp/toolbar.el U lwlib/Makefile.in.in U lwlib/xlwcheckbox.c U man/Makefile U modules/common/Makefile.common U netinstall/Makefile.in.in U src/glyphs-gtk.h U src/gtk-xemacs.c U src/mule-coding.c U src/redisplay-gtk.c U src/sound.c U src/text.h Compilation finished at Fri Nov 25 18:19:56 \s-+.+\)*\|^Note:\|Installing\|[Ff]ile(s) copied\|\s-+tests\s-+\|^[A-Z] [^ ]+$\|^Wrong number of arguments:\|^ \*\* " cd c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\nt\ nmake /f xemacs.mak all Compilation started at Fri Nov 25 18:42:32 2005 +0100 (W. Europe Standard Time) Installing XEmacs in "c:\\Program Files\\XEmacs\\XEmacs-21.5-b23". 1 file(s) copied. 1 File(s) copied 1 File(s) copied Using load-path (c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\) Using module-load-path (c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\modules) Generating autoloads for lisp/next-error.el... While compiling describe-register-1 in file c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\register.el: ** reference to free variable yank-excluded-properties While compiling the end of the data: ** the function remove-list-of-text-properties is not known to be defined. While compiling the end of the data in file c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\diagnose.el: ** The following functions are not known to be defined: sort-numeric-fields, gc-stats While compiling toplevel forms in file c:\Hacking\cvs.xemacs.org\XEmacs\xemacs-21.5-clean\lisp\menubar-items.el: !! Internal error (("lstream not open for writing" #<INTERNAL OBJECT (XEmacs bug?) (string-direct-data) 0x1e2d3c0>)) backtrace(nil t) # bind (error-info) byte-compile-report-error((internal-error "lstream not open for writing" #<INTERNAL OBJECT (XEmacs bug?) (string-direct-data) 0x1e2d3c0>)) # bind (error-info) #<compiled-function (error-info) "...(4)" [error-info byte-compile-report-error] 2>((internal-error "lstream not open for writing" #<INTERNAL OBJECT (XEmacs bug?) (string-direct-data) 0x1e2d3c0>)) # (unwind-protect ...) # bind (byte-compile-current-form handler form) byte-compile-file-form((defconst default-menubar (backquote (("%_File" ["%_Open..." find-file] ["Open in Other %_Window..." find-file-other-window] ["Open in New %_Frame..." find-file-other-frame] ("Open with Specified %_Encoding":filter (lambda (menu) (coding-system-menu-filter (lambda (entry) (let ((coding-system-for-read entry)) (call-interactively (quote find-file)))) (lambda (entry) t) t))) ["%_Hex Edit File..." hexl-find-file :active (fboundp (quote hexl-find-file))] ["%_Insert File..." insert-file] ["%_View File..." view-file] "------" ["%_New Frame" make-frame] ["Frame on Other %_Display..." make-frame-on-display :active (fboundp (quote make-frame-on-display))] ["%_Close Frame" delete-frame :active (not (eq (next-frame (selected-frame) (quote nomini) (quote window-system)) (selected-frame)))] "-----" ["%_Save" save-buffer :active (buffer-modified-p) :suffix (if put-buffer-names-in-file-menu (buffer-name) "")] ["Save %_As..." write-file] ["Save So%_me Buffers" save-some-buffers] "-----" (\,＠ (if (valid-specifier-tag-p (quote msprinter)) (quote (["Page Set%_up..." generic-page-setup])))) ["%_Print" generic-print-buffer:active (or (valid-specifier-tag-p (quote msprinter)) (and (not (eq system-type (quote windows-nt))) (fboundp (quote lpr-region)))):suffix (if (region-active-p) "Selection..." (if put-buffer-names-in-file-menu (concat (buffer-name) "...") "..."))] (\,＠ (unless (valid-specifier-tag-p (quote msprinter)) (quote (["Prett%_y-Print" ps-print-buffer-with-faces:active (fboundp (quote ps-print-buffer-with-faces)) :suffix (if put-buffer-names-in-file-menu (buffer-name) "")])))) "-----" ["%_Revert Buffer" revert-buffer:active (or buffer-file-name revert-buffer-function) :suffix (if put-buffer-names-in-file-menu (buffer-name) "")] ("Rever%_t/Recover" ("Revert Buffer with Specified %_Encoding" :filter (lambda (menu) (coding-system-menu-filter (lambda (entry) (let ((coding-system-for-read entry)) (revert-buffer))) (lambda (entry) (or buffer-file-name revert-buffer-function)) t))) ["Re%_cover Buffer from Autosave" (recover-file buffer-file-name) :active buffer-file-name :suffix (if put-buffer-names-in-file-menu (buffer-name) "")] ["Recover %_Session..." recover-session]) "-----" ["E%_xit XEmacs" save-buffers-kill-emacs]) ("%_Edit" ["%_Undo" undo :active (and (not (eq buffer-undo-list t)) (or buffer-undo-list pending-undo-list)) :suffix (if (eq last-command (quote undo)) "More" "")] ["%_Redo" redo :included (fboundp (quote redo)) :active (not (or (eq buffer-undo-list t) (eq last-buffer-undo-list nil) (not (or (eq last-buffer-undo-list buffer-undo-list) (and (null (car-safe buffer-undo-list)) (eq last-buffer-undo-list (cdr-safe buffer-undo-list))))) (or (eq buffer-undo-list pending-undo-list) (eq (cdr buffer-undo-list) pending-undo-list)))) :suffix (if (eq last-command (quote redo)) "More" "")] "----" ["Cu%_t" kill-primary-selection :active (selection-owner-p)] ["%_Copy" copy-primary-selection :active (selection-owner-p)] ["%_Paste" yank-clipboard-selection:active (selection-exists-p (quote CLIPBOARD))] ["%_Delete" delete-primary-selection :active (selection-owner-p)] "----" ["Select %_All" mark-whole-buffer] ["Select Pa%_ge" mark-page] ["Select Paragrap%_h" mark-paragraph] ["Re%_select Region" activate-region :active (mark t)] "----" ["%_Find..." make-search-dialog] ["R%_eplace..." query-replace] ["Replace (Rege%_xp)..." query-replace-regexp] ["List %_Matching Lines..." list-matching-lines]) ("%_View" ["%_Split Window" split-window-vertically] ["S%_plit Window (Side by Side)" split-window-horizontally] ["%_Un-Split (Keep This)" delete-other-windows :active (not (one-window-p t))] ["Un-Split (Keep %_Others)" delete-window :active (not (one-window-p t))] ["Balance %_Windows" balance-windows :active (not (one-window-p t))] ["Shrink Window to %_Fit" shrink-window-if-larger-than-buffer] "----" ("N%_arrow" ["%_Narrow to Region" narrow-to-region :active (region-exists-p)] ["Narrow to %_Page" narrow-to-page] ["Narrow to %_Defun" narrow-to-defun] "----" ["%_Widen" widen :active (or (/= (point-min) 1) (/= (point-max) (1+ (buffer-size))))]) "----" ["%_Goto Line..." goto-line] ["Beginning of %_Defun" beginning-of-defun] ["%_End of Defun" end-of-defun] ["%_Count Lines in Buffer" count-lines-buffer:included (not (region-active-p))] ["%_Count Lines in Region" count-lines-region:included (region-active-p)] "----" ["%_Jump to Previous Mark" (set-mark-command t) :active (mark t)] ["Se%_t Bookmark" bookmark-set :active (fboundp (quote bookmark-set))] ("%_Bookmarks" :filter (lambda (menu) (let ((alist (and-boundp (quote bookmark-alist) bookmark-alist))) (if (not alist) menu (let ((items (submenu-generate-accelerator-spec (mapcar (function (lambda (bmk) (backquote [(\, bmk) (bookmark-jump (quote (\, bmk)))]))) (bookmark-all-names))))) (append menu (quote ("---")) items))))) "---" ["Insert %_Contents" bookmark-menu-insert :active (fboundp (quote bookmark-menu-insert))] ["Insert L%_ocation" bookmark-menu-locate :active (fboundp (quote bookmark-menu-locate))] "---" ["%_Rename Bookmark" bookmark-menu-rename :active (fboundp (quote bookmark-menu-rename))] ("%_Delete Bookmark" :filter (lambda (menu) (submenu-generate-accelerator-spec (mapcar (function (lambda (bmk) (backquote [(\, bmk) (bookmark-delete (quote (\, bmk)))]))) (bookmark-all-names))))) ["%_Edit Bookmark List" bookmark-bmenu-list :active (and-boundp (quote bookmark-alist) bookmark-alist)] "---" ["%_Save Bookmarks" bookmark-save:active (and-boundp (quote bookmark-alist) bookmark-alist)] ["Save Bookmarks %_As..." bookmark-write :active (and-boundp (quote bookmark-alist) bookmark-alist)] ["%_Load a Bookmark File" bookmark-load :active (fboundp (quote bookmark-load))])) ("C%_mds" ["Repeat Last Comple%_x Command..." repeat-complex-command] ["E%_valuate Lisp Expression..." eval-expression] ["Execute %_Named Command..." execute-extended-command] "----" ["Start %_Defining Macro" start-kbd-macro :included (not defining-kbd-macro)] ["Stop %_Defining Macro" end-kbd-macro :included defining-kbd-macro] ["%_Execute Last Macro" call-last-kbd-macro :active last-kbd-macro] ("Other %_Macro" ["Edit %_Last Macro" edit-last-kbd-macro :active last-kbd-macro] ["%_Edit Macro..." edit-kbd-macro] ["%_Append to Last Macro" (start-kbd-macro t) :active (and (not defining-kbd-macro) last-kbd-macro)] "---" ["%_Name Last Macro..." name-last-kbd-macro:active last-kbd-macro] ["Assign Last Macro to %_Key..." assign-last-kbd-macro-to-key :active (and last-kbd-macro (fboundp (quote assign-last-kbd-macro-to-key)))] "---" ["E%_xecute Last Macro on Region Lines":active (and last-kbd-macro (region-exists-p))] "---" ["%_Query User During Macro" kbd-macro-query :active defining-kbd-macro] ["Enter %_Recursive Edit During Macro" (kbd-macro-query t) :active defining-kbd-macro] "---" ["%_Insert Named Macro into Buffer..." insert-kbd-macro] ["Read Macro from Re%_gion" read-kbd-macro :active (region-exists-p)]) "----" ["D%_ynamic Abbrev Expand" dabbrev-expand] ["Define %_Global Abbrev for " add-global-abbrev :suffix (truncate-string-to-width (abbrev-string-to-be-defined nil) 40 nil nil t)] ("Other %_Abbrev" ["Dynamic Abbrev %_Complete" dabbrev-completion] ["Dynamic Abbrev Complete in %_All Buffers" (dabbrev-completion 16)] "----" "----" ["%_Define Global Abbrev for " add-global-abbrev :suffix (truncate-string-to-width (abbrev-string-to-be-defined nil) 40 nil nil t)] ["Define %_Mode-Specific Abbrev for " add-mode-abbrev :suffix (truncate-string-to-width (abbrev-string-to-be-defined nil) 40 nil nil t)] ["Define Global Ex%_pansion for " inverse-add-global-abbrev :suffix (truncate-string-to-width (inverse-abbrev-string-to-be-defined 1) 40 nil nil t)] ["Define Mode-Specific Expa%_nsion for " inverse-add-mode-abbrev :suffix (truncate-string-to-width (inverse-abbrev-string-to-be-defined 1) 40 nil nil t)] "---" ["E%_xpand Abbrev" expand-abbrev] ["Expand Abbrevs in Re%_gion" expand-region-abbrevs :active (region-exists-p)] ["%_Unexpand Last Abbrev" unexpand-abbrev :active (and (stringp last-abbrev-text) (> last-abbrev-location 0))] "---" ["%_Kill All Abbrevs" kill-all-abbrevs] ["%_Insert All Abbrevs into Buffer" insert-abbrevs] ["%_List Abbrevs" list-abbrevs] "---" ["%_Edit Abbrevs" edit-abbrevs] ["%_Redefine Abbrevs from Buffer" edit-abbrevs-redefine :active (eq major-mode (quote edit-abbrevs-mode))] "---" ["%_Save Abbrevs As..." write-abbrev-file] ["L%_oad Abbrevs..." read-abbrev-file]) "---" ["%_Cut Rectangle" kill-rectangle] ["%_Prefix Rectangle..." string-rectangle] ("Other %_Rectangles/Register" ["%_Yank Rectangle" yank-rectangle] ["Rectangle %_to Register" copy-rectangle-to-register] ["Rectangle %_from Register" insert-register] ["%_Delete Rectangle" clear-rectangle] ["%_Open Rectangle" open-rectangle] ["Rectangle %_Mousing" (customize-set-variable (quote mouse-track-rectangle-p) (not mouse-track-rectangle-p)) :style toggle :selected mouse-track-rectangle-p] "---" ["%_Copy to Register..." copy-to-register :active (region-exists-p)] ["%_Append to Register..." append-register :active (region-exists-p)] ["%_Insert Register..." insert-register] "---" ["%_Save Point to Register" point-to-register] ["%_Jump to Register" register-to-point]) "---" ["%_Sort Lines in Region" sort-lines :active (region-exists-p)] ["%_Uppercase Region or Word" upcase-region-or-word] ["%_Lowercase Region or Word" downcase-region-or-word] ["%_Indent Region or Balanced Expression" indent-region-or-balanced-expression] ["%_Fill Paragraph or Region" fill-paragraph-or-region] ("Other %_Text Commands" ["Sort %_Paragraphs in Region" sort-paragraphs:active (region-exists-p)] ["Sort Pa%_ges in Region" sort-pages :active (region-exists-p)] ["Sort C%_olumns in Region" sort-columns :active (region-exists-p)] ["Sort %_Regexp..." sort-regexp-fields :active (region-exists-p)] "---" ["%_Capitalize Region" capitalize-region :active (region-exists-p)] ["Title-C%_ase Region" capitalize-region-as-title :active (region-exists-p)] "----" ["C%_enter Region or Paragraph" (if (region-active-p) (center-region) (center-line))] ["Center %_Line" center-line] "---" ["%_Indent Region Rigidly" indent-rigidly :active (region-exists-p)] ["In%_dent To Column..." indent-to-column] "---" ["%_Untabify (Tabs to Spaces)" untabify :active (and (region-exists-p) (fboundp (quote untabify)))] ["%_Tabify (Spaces to Tabs)" tabify :active (and (region-exists-p) (fboundp (quote tabify)))] ["Tab to Tab %_Stop" tab-to-tab-stop] ["Edit Ta%_b Stops" edit-tab-stops]) "---" ("%_Tags" ["%_Find Tag..." find-tag] ["Find %_Other Window..." find-tag-other-window] ["%_Next Tag..." (find-tag nil)] ["N%_ext Other Window..." (find-tag-other-window nil)] ["Next %_File" next-file] "-----" ["Tags %_Search..." tags-search] ["Tags %_Replace..." tags-query-replace] ["%_Continue Search/Replace" tags-loop-continue] "-----" ["%_Pop stack" pop-tag-mark] ["%_Apropos..." tags-apropos] "-----" ["%_Set Tags Table File..." visit-tags-table])) ("%_Tools" ("%_Packages" ("%_Set Download Site" ("%_Official Releases" :filter (lambda (&rest junk) (menu-split-long-menu (submenu-generate-accelerator-spec (package-ui-download-menu))))) ("%_Pre-Releases" :filter (lambda (&rest junk) (menu-split-long-menu (submenu-generate-accelerator-spec (package-ui-pre-release-download-menu))))) ("%_Site Releases" :filter (lambda (&rest junk) (menu-split-long-menu (submenu-generate-accelerator-spec (package-ui-site-release-download-menu)))))) "--:shadowEtchedIn" ["%_Update Package Index" package-get-update-base] ["%_List and Install" pui-list-packages] ["U%_pdate Installed Packages" package-get-update-all] ["%_Help" (Info-goto-node "(xemacs)Packages")]) ("%_Internet" ["Read Mail %_1 (VM)..." vm :active (fboundp (quote vm))] ["Read Mail %_2 (MH)..." (mh-rmail t) :active (fboundp (quote mh-rmail))] ["Send %_Mail..." compose-mail :active (fboundp (quote compose-mail))] ["Usenet %_News" gnus :active (fboundp (quote gnus))] ["Browse the %_Web" w3 :active (fboundp (quote w3))]) "---" ("%_Grep" :filter (lambda (menu) (if (or (not (boundp (quote grep-history))) (null grep-history)) menu (let ((items (submenu-generate-accelerator-spec (mapcar (function (lambda (label-value) (vector (first label-value) (list (quote grep) (second label-value))))) (Menubar-items-truncate-history grep-history 10 50))))) (append menu (quote ("---")) items)))) ["%_Grep..." grep :active (fboundp (quote grep))] ["%_Kill Grep" kill-compilation :active (and (fboundp (quote kill-compilation)) (fboundp (quote compilation-find-buffer)) (let ((buffer (condition-case nil (compilation-find-buffer) (error nil)))) (and buffer (get-buffer-process buffer))))] "---" ["Grep %_All Files in Current Directory..." grep-all-files-in-current-directory :active (fboundp (quote grep-all-files-in-current-directory))] ["Grep All Files in Current Directory %_Recursively..." grep-all-files-in-current-directory-and-below :active (fboundp (quote grep-all-files-in-current-directory-and-below))] "---" ["Grep %_C and C Header Files in Current Directory..." (progn (require (quote compile)) (let ((grep-command (cons (concat grep-command " *.[chCH]") (length grep-command)))) (call-interactively (quote grep)))) :active (fboundp (quote grep))] ["Grep C Hea%_der Files in Current Directory..." (progn (require (quote compile)) (let ((grep-command (cons (concat grep-command " *.[hH]") (length grep-command)))) (call-interactively (quote grep)))) :active (fboundp (quote grep))] ["Grep %_E-Lisp Files in Current Directory..." (progn (require (quote compile)) (let ((grep-command (cons (concat grep-command " *.el") (length grep-command)))) (call-interactively (quote grep)))) :active (fboundp (quote grep))] ["Grep %_Perl Files in Current Directory..." (progn (require (quote compile)) (let ((grep-command (cons (concat grep-command " *.pl") (length grep-command)))) (call-interactively (quote grep)))) :active (fboundp (quote grep))] ["Grep %_HTML Files in Current Directory..." (progn (require (quote compile)) (let ((grep-command (cons (concat grep-command " *.*htm*") (length grep-command)))) (call-interactively (quote grep)))) :active (fboundp (quote grep))] "---" ["%_Next Match" next-error :active (and (fboundp (quote compilation-errors-exist-p)) (compilation-errors-exist-p))] ["Pre%_vious Match" previous-error :active (and (fboundp (quote compilation-errors-exist-p)) (compilation-errors-exist-p))] ["%_First Match" first-error :active (and (fboundp (quote compilation-errors-exist-p)) (compilation-errors-exist-p))] ["G%_oto Match" compile-goto-error :active (and (fboundp (quote compilation-errors-exist-p)) (compilation-errors-exist-p))] "---" ["%_Set Grep Command..." (progn (require (quote compile)) (customize-set-variable (quote grep-command) (read-shell-command "Default Grep Command: " grep-command))):active (fboundp (quote grep))]) ("%_Compile" :filter (lambda (menu) (if (or (not (boundp (quote compile-history))) (null compile-history)) menu (let ((items (submenu-generate-accelerator-spec (mapcar (function (lambda (label-value) (vector (first label-value) (list (quote compile) (second label-value))))) (Menubar-items-truncate-history compile-history 10 50))))) (append menu (quote ("---")) items)))) ["%_Compile..." compile :active (fboundp (quote compile))] ["%_Repeat Compilation" recompile :active (fboundp (quote recompile))] ["%_Kill Compilation" kill-compilation :active (and (fboundp (quote kill-compilation)) (fboundp (quote compilation-find-buffer)) (let ((buffer (condition-case nil (compilation-find-buffer) (error nil)))) (and buffer (get-buffer-process buffer))))] "---" ["%_Next Error" next-error :active (and (fboundp (quote compilation-errors-exist-p)) (compilation-errors-exist-p))] ["Pre%_vious Error" previous-error :active (and (fboundp (quote compilation-errors-exist-p)) (compilation-errors-exist-p))] ["%_First Error" first-error :active (and (fboundp (quote compilation-errors-exist-p)) (compilation-errors-exist-p))] ["G%_oto Error" compile-goto-error :active (and (fboundp (quote compilation-errors-exist-p)) (compilation-errors-exist-p))]) ("%_Debug" ["%_GDB..." gdb :active (fboundp (quote gdb))] ["%_DBX..." dbx:active (fboundp (quote dbx))]) ("%_Shell" ["%_Shell" shell :active (fboundp (quote shell))] ["S%_hell Command..." shell-command :active (fboundp (quote shell-command))] ["Shell Command on %_Region..." shell-command-on-region:active (and (fboundp (quote shell-command-on-region)) (region-exists-p))]) ("%_Tags" ["%_Find Tag..." find-tag] ["Find %_Other Window..." find-tag-other-window] ["%_Next Tag..." (find-tag nil)] ["N%_ext Other Window..." (find-tag-other-window nil)] ["Next %_File" next-file] "-----" ["Tags %_Search..." tags-search] ["Tags %_Replace..." tags-query-replace] ["%_Continue Search/Replace" tags-loop-continue] "-----" ["%_Pop stack" pop-tag-mark] ["%_Apropos..." tags-apropos] "-----" ["%_Set Tags Table File..." visit-tags-table]) "----" ("Ca%_lendar" ["%_3-Month Calendar" calendar :active (fboundp (quote calendar))] ["%_Diary" diary :active (fboundp (quote diary))] ["%_Holidays" holidays :active (fboundp (quote holidays))] ["%_Phases of the Moon" phases-of-moon :active (fboundp (quote phases-of-moon))] ["%_Sunrise/Sunset" sunrise-sunset :active (fboundp (quote sunrise-sunset))]) ("Ga%_mes" ["%_Mine Game" xmine :active (fboundp (quote xmine))] ["%_Tetris" tetris :active (fboundp (quote tetris))] ["%_Sokoban" sokoban :active (fboundp (quote sokoban))] ["Quote from %_Zippy" yow :active (fboundp (quote yow))] ["%_Psychoanalyst" doctor :active (fboundp (quote doctor))] ["Ps%_ychoanalyze Zippy!" psychoanalyze-pinhead :active (fboundp (quote psychoanalyze-pinhead))] ["%_Random Flames" flame :active (fboundp (quote flame))] ["%_Dunnet (Adventure)" dunnet :active (fboundp (quote dunnet))] ["Towers of %_Hanoi" hanoi:active (fboundp (quote hanoi))] ["Game of %_Life" life :active (fboundp (quote life))] ["M%_ultiplication Puzzle" mpuz :active (fboundp (quote mpuz))]) "----") ("%_Options" ("%_Advanced (Customize)" ("%_Emacs" :filter (lambda (&rest junk) (cdr (custom-menu-create (quote emacs))))) ["%_Group..." customize-group] ["%_Variable..." customize-variable] ["%_Face..." customize-face] ["%_Saved..." customize-saved] ["Se%_t..." customize-customized] ["%_Apropos..." customize-apropos] ["%_Browse..." customize-browse]) "---" ("%_Editing" ["This Buffer %_Read Only" (toggle-read-only) :style toggle :selected buffer-read-only] ["%_Yank/Kill Interact With Clipboard" (if (eq interprogram-cut-function (quote own-clipboard)) (progn (customize-set-variable (quote interprogram-cut-function) nil) (customize-set-variable (quote interprogram-paste-function) nil)) (customize-set-variable (quote interprogram-cut-function) (quote own-clipboard)) (customize-set-variable (quote interprogram-paste-function) (quote get-clipboard))) :style toggle :selected (eq interprogram-cut-function (quote own-clipboard))] ["%_Overstrike" (progn (setq overwrite-mode (if overwrite-mode nil (quote overwrite-mode-textual))) (customize-set-variable (quote overwrite-mode) overwrite-mode)) :style toggle:selected overwrite-mode] ["%_Abbrev Mode" (customize-set-variable (quote abbrev-mode) (not (default-value (quote abbrev-mode)))) :style toggle :selected (default-value (quote abbrev-mode))] ["Active Re%_gions" (customize-set-variable (quote zmacs-regions) (not zmacs-regions)) :style toggle :selected zmacs-regions] "---" ["%_Case Sensitive Search" (customize-set-variable (quote case-fold-search) (setq case-fold-search (not case-fold-search))) :style toggle :selected (not case-fold-search)] ["Case %_Matching Replace" (customize-set-variable (quote case-replace) (not case-replace)) :style toggle:selected case-replace] "---" ("%_Newline at End of File..." ["%_Don't Require" (customize-set-variable (quote require-final-newline) nil) :style radio:selected (not require-final-newline)] ["%_Require" (customize-set-variable (quote require-final-newline) t) :style radio :selected (eq require-final-newline t)] ["%_Ask" (customize-set-variable (quote require-final-newline) (quote ask)) :style radio :selected (and require-final-newline (not (eq require-final-newline t)))]) ["Add Newline When Moving Past %_End" (customize-set-variable (quote next-line-add-newlines) (not next-line-add-newlines)):style toggle :selected next-line-add-newlines]) ("%_Keyboard and Mouse" ["%_Delete Key Deletes Selection" (customize-set-variable (quote pending-delete-mode) (not pending-delete-mode)) :style toggle :selected (and (boundp (quote pending-delete-mode)) pending-delete-mode) :active (boundp (quote pending-delete-mode))] ["`kill-%_word' Stores in Clipboard" (customize-set-variable (quote kill-word-into-kill-ring) (not kill-word-into-kill-ring)) :style toggle :selected kill-word-into-kill-ring] ["`kill-%_line' Kills Whole Line at Beg" (customize-set-variable (quote kill-whole-line) (not kill-whole-line)):style toggle :selected kill-whole-line] ["Size for %_Block-Movement Commands..." (customize-set-variable (quote block-movement-size) (read-number "Block Movement Size: " t block-movement-size))] ["%_VI Emulation" (progn (toggle-viper-mode) (customize-set-variable (quote viper-mode) viper-mode)):style toggle :selected (and (boundp (quote viper-mode)) viper-mode):active (fboundp (quote toggle-viper-mode))] "----" ["S%_hifted Motion Keys Select Region" (customize-set-variable (quote shifted-motion-keys-select-region) (not shifted-motion-keys-select-region)) :style toggle :selected shifted-motion-keys-select-region] ["%_After Shifted Motion, Unshifted Motion Keys Deselect" (customize-set-variable (quote unshifted-motion-keys-deselect-region) (not unshifted-motion-keys-deselect-region)) :style toggle :selected unshifted-motion-keys-deselect-region] "----" ["%_Set Key..." global-set-key] ["%_Unset Key..." global-unset-key] "---" ["%_Mouse Paste at Text Cursor (not Clicked Location)" (customize-set-variable (quote mouse-yank-at-point) (not mouse-yank-at-point)) :style toggle :selected mouse-yank-at-point] "---" ["%_Teach Extended Commands" (customize-set-variable (quote teach-extended-commands-p) (not teach-extended-commands-p)) :style toggle :selected teach-extended-commands-p]) ("%_Printing" ["Set Printer %_Name for Generic Print Support..." (customize-set-variable (quote printer-name) (read-string "Set printer name: " printer-name))] "---" ["Command-Line %_Switches for `lpr'/`lp'..." (customize-variable (quote lpr-switches)) (boundp (quote lpr-switches))] ("%_Pretty-Print Paper Size" ["%_Letter" (customize-set-variable (quote ps-paper-type) (quote letter)) :style radio :selected (and (boundp (quote ps-paper-type)) (eq ps-paper-type (quote letter))) :active (boundp (quote ps-paper-type))] ["Lette%_r-Small" (customize-set-variable (quote ps-paper-type) (quote letter-small)) :style radio :selected (and (boundp (quote ps-paper-type)) (eq ps-paper-type (quote letter-small))) :active (boundp (quote ps-paper-type))] ["Le%_gal" (customize-set-variable (quote ps-paper-type) (quote legal)) :style radio :selected (and (boundp (quote ps-paper-type)) (eq ps-paper-type (quote legal))) :active (boundp (quote ps-paper-type))] ["%_Statement" (customize-set-variable (quote ps-paper-type) (quote statement)) :style radio :selected (and (boundp (quote ps-paper-type)) (eq ps-paper-type (quote statement))) :active (boundp (quote ps-paper-type))] ["%_Executive" (customize-set-variable (quote ps-paper-type) (quote executive)):style radio :selected (and (boundp (quote ps-paper-type)) (eq ps-paper-type (quote executive))) :active (boundp (quote ps-paper-type))] ["%_Tabloid" (customize-set-variable (quote ps-paper-type) (quote tabloid)) :style radio :selected (and (boundp (quote ps-paper-type)) (eq ps-paper-type (quote tabloid))) :active (boundp (quote ps-paper-type))] ["Le%_dger" (customize-set-variable (quote ps-paper-type) (quote ledger)) :style radio :selected (and (boundp (quote ps-paper-type)) (eq ps-paper-type (quote ledger))) :active (boundp (quote ps-paper-type))] ["A%_3" (customize-set-variable (quote ps-paper-type) (quote a3)) :style radio :selected (and (boundp (quote ps-paper-type)) (eq ps-paper-type (quote a3))) :active (boundp (quote ps-paper-type))] ["%_A4" (customize-set-variable (quote ps-paper-type) (quote a4)) :style radio :selected (and (boundp (quote ps-paper-type)) (eq ps-paper-type (quote a4))) :active (boundp (quote ps-paper-type))] ["A4s%_mall" (customize-set-variable (quote ps-paper-type) (quote a4small)) :style radio :selected (and (boundp (quote ps-paper-type)) (eq ps-paper-type (quote a4small))) :active (boundp (quote ps-paper-type))] ["B%_4" (customize-set-variable (quote ps-paper-type) (quote b4)) :style radio :selected (and (boundp (quote ps-paper-type)) (eq ps-paper-type (quote b4))) :active (boundp (quote ps-paper-type))] ["%_B5" (customize-set-variable (quote ps-paper-type) (quote b5)):style radio :selected (and (boundp (quote ps-paper-type)) (eq ps-paper-type (quote b5))) :active (boundp (quote ps-paper-type))]) ["%_Color Printing" (cond (ps-print-color-p (customize-set-variable (quote ps-print-color-p) nil) (and (boundp (quote original-face-background)) original-face-background (set-face-background (quote default) original-face-background))) (t (customize-set-variable (quote ps-print-color-p) t) (setq original-face-background (face-background-instance (quote default))) (set-face-background (quote default) "white"))) :style toggle :selected (and (boundp (quote ps-print-color-p)) ps-print-color-p) :active (boundp (quote ps-print-color-p))]) ("%_Internet" ("%_Compose Mail With" ["VM mail package" (customize-set-variable (quote mail-user-agent) (quote vm-user-agent)) :style radio :selected (eq mail-user-agent (quote vm-user-agent)) :active (get (quote vm-user-agent) (quote composefunc))] ["Bare-bones Emacs Mailer" (customize-set-variable (quote mail-user-agent) (quote sendmail-user-agent)) :style radio :selected (eq mail-user-agent (quote sendmail-user-agent))] ["MH" (customize-set-variable (quote mail-user-agent) (quote mh-e-user-agent)) :style radio :selected (eq mail-user-agent (quote mh-e-user-agent)) :active (get (quote mh-e-user-agent) (quote composefunc))] ["GNUS" (customize-set-variable (quote mail-user-agent) (quote message-user-agent)) :style radio :selected (eq mail-user-agent (quote message-user-agent)) :active (get (quote message-user-agent) (quote composefunc))]) ["Set My %_Email Address..." (customize-set-variable (quote user-mail-address) (read-string "Set email address: " user-mail-address))] ["Set %_Machine Email Name..." (customize-set-variable (quote mail-host-address) (read-string "Set machine email name: " mail-host-address))] ["Set %_SMTP Server..." (progn (require (quote smtpmail)) (customize-set-variable (quote smtpmail-smtp-server) (read-string "Set SMTP server: " smtpmail-smtp-server))):active (and (boundp (quote send-mail-function)) (eq send-mail-function (quote smtpmail-send-it)))] ["SMTP %_Debug Info" (progn (require (quote smtpmail)) (customize-set-variable (quote smtpmail-debug-info) (not smtpmail-debug-info))) :style toggle :selected (and (boundp (quote smtpmail-debug-info)) smtpmail-debug-info) :active (and (boundp (quote send-mail-function)) (eq send-mail-function (quote smtpmail-send-it)))]) ("%_Troubleshooting" ["%_Debug on Error [not saved]" (setq debug-on-error (not debug-on-error)):style toggle :selected debug-on-error] ["Debug on %_Quit [not saved]" (setq debug-on-quit (not debug-on-quit)) :style toggle :selected debug-on-quit] ["Debug on S%_ignal [not saved]" (setq debug-on-signal (not debug-on-signal)):style toggle :selected debug-on-signal] ["%_Stack Trace on Error [not saved]" (setq stack-trace-on-error (not stack-trace-on-error)) :style toggle :selected stack-trace-on-error] ["Stack Trace on Si%_gnal [not saved]" (setq stack-trace-on-signal (not stack-trace-on-signal)) :style toggle:selected stack-trace-on-signal]) ("Encodin%_g" ["Automatic %_EOL Detection" (customize-set-variable (quote eol-detection-enabled-p) (not eol-detection-enabled-p)):style toggle :selected eol-detection-enabled-p :included (not (memq system-type (quote (windows-nt cygwin32))))] ("Set Coding System of %_Buffer File" :filter (lambda (menu) (coding-system-menu-filter (lambda (entry) (set-buffer-file-coding-system entry)) (lambda (entry) t)))) ("Set Coding System of %_Terminal" :filter (lambda (menu) (coding-system-menu-filter (lambda (entry) (set-terminal-coding-system entry)) (lambda (entry) nil)))) ("Set Coding System of %_Keyboard" :filter (lambda (menu) (coding-system-menu-filter (lambda (entry) (set-keyboard-coding-system entry)) (lambda (entry) nil)))) ("Set Coding System of %_Process" :filter (lambda (menu) (coding-system-menu-filter (lambda (entry) (set-buffer-process-coding-system entry)) (lambda (entry) (get-buffer-process (current-buffer))))))) (\,＠ (when (featurep (quote mule)) (quote (("Internationa%_l" ("Set %_Language Environment" :filter (lambda (menu) (menu-split-long-menu-and-sort (mapcar (function (lambda (entry) (backquote [(\, (car entry)) (set-language-environment (quote (\, (car entry)))) :style radio :selected (\, (equal (car entry) current-language-environment))]))) language-info-alist)))) ["%_Toggle Input Method" toggle-input-method] ["Select %_Input Method" set-input-method]))))) "-----" ("%_Display" (\,＠ (if (featurep (quote scrollbar)) (quote (["%_Scrollbars" (customize-set-variable (quote scrollbars-visible-p) (not scrollbars-visible-p)):style toggle :selected scrollbars-visible-p])))) ["%_Wrap Long Lines" (progn (setq truncate-lines (not truncate-lines)) (customize-set-variable (quote truncate-lines) truncate-lines)) :style toggle :selected (not truncate-lines)] "----" ["%_3D Modeline" (customize-set-variable (quote modeline-3d-p) (not modeline-3d-p)) :style toggle :selected modeline-3d-p] ("Modeline %_Horizontal Scrolling" ["%_None" (customize-set-variable (quote modeline-scrolling-method) nil) :style radio :selected (not modeline-scrolling-method)] ["As %_Text" (customize-set-variable (quote modeline-scrolling-method) t) :style radio :selected (eq modeline-scrolling-method t)] ["As %_Scrollbar" (customize-set-variable (quote modeline-scrolling-method) (quote scrollbar)) :style radio :selected (eq modeline-scrolling-method (quote scrollbar))]) (\,＠ (if (featurep (quote toolbar)) (quote ("---" ["%_Toolbars Visible" (customize-set-variable (quote toolbar-visible-p) (not toolbar-visible-p)):style toggle :selected toolbar-visible-p] ["Toolbars Ca%_ptioned" (customize-set-variable (quote toolbar-captioned-p) (not toolbar-captioned-p)):style toggle :active toolbar-visible-p :selected toolbar-captioned-p] ("Default Toolba%_r Location" ["%_Top" (customize-set-variable (quote default-toolbar-position) (quote top)) :style radio :active toolbar-visible-p:selected (eq default-toolbar-position (quote top))] ["%_Bottom" (customize-set-variable (quote default-toolbar-position) (quote bottom)) :style radio :active toolbar-visible-p :selected (eq default-toolbar-position (quote bottom))] ["%_Left" (customize-set-variable (quote default-toolbar-position) (quote left)) :style radio :active toolbar-visible-p :selected (eq default-toolbar-position (quote left))] ["%_Right" (customize-set-variable (quote default-toolbar-position) (quote right)) :style radio :active toolbar-visible-p:selected (eq default-toolbar-position (quote right))]))))) (\,＠ (if (featurep (quote gutter)) (quote ("---" ["B%_uffers Tab Visible" (customize-set-variable (quote gutter-buffers-tab-visible-p) (not gutter-buffers-tab-visible-p)):style toggle :selected gutter-buffers-tab-visible-p] ("Default %_Gutter Location" ["%_Top" (customize-set-variable (quote default-gutter-position) (quote top)) :style radio :selected (eq default-gutter-position (quote top))] ["%_Bottom" (customize-set-variable (quote default-gutter-position) (quote bottom)) :style radio :selected (eq default-gutter-position (quote bottom))] ["%_Left" (customize-set-variable (quote default-gutter-position) (quote left)) :style radio :selected (eq default-gutter-position (quote left))] ["%_Right" (customize-set-variable (quote default-gutter-position) (quote right)) :style radio :selected (eq default-gutter-position (quote right))]))))) "-----" ["%_Blinking Cursor" (customize-set-variable (quote blink-cursor-mode) (not blink-cursor-mode)) :style toggle :selected (and (boundp (quote blink-cursor-mode)) blink-cursor-mode) :active (boundp (quote blink-cursor-mode))] ["Bl%_ock Cursor" (progn (customize-set-variable (quote bar-cursor) nil) (force-cursor-redisplay)) :style radio :selected (null bar-cursor)] ["Bar Cursor (%_1 Pixel)" (progn (customize-set-variable (quote bar-cursor) t) (force-cursor-redisplay)) :style radio :selected (eq bar-cursor t)] ["Bar Cursor (%_2 Pixels)" (progn (customize-set-variable (quote bar-cursor) 2) (force-cursor-redisplay)) :style radio :selected (and bar-cursor (not (eq bar-cursor t)))] "----" ("Pa%_ren Highlighting" ["%_None" (customize-set-variable (quote paren-mode) nil) :style radio :selected (and (boundp (quote paren-mode)) (not paren-mode)) :active (boundp (quote paren-mode))] ["%_Blinking Paren" (customize-set-variable (quote paren-mode) (quote blink-paren)) :style radio :selected (and (boundp (quote paren-mode)) (eq paren-mode (quote blink-paren))) :active (boundp (quote paren-mode))] ["%_Steady Paren" (customize-set-variable (quote paren-mode) (quote paren)) :style radio :selected (and (boundp (quote paren-mode)) (eq paren-mode (quote paren))) :active (boundp (quote paren-mode))] ["%_Expression" (customize-set-variable (quote paren-mode) (quote sexp)) :style radio :selected (and (boundp (quote paren-mode)) (eq paren-mode (quote sexp))) :active (boundp (quote paren-mode))]) "------" ["%_Line Numbers" (progn (customize-set-variable (quote line-number-mode) (not line-number-mode)) (redraw-modeline)) :style toggle :selected line-number-mode] ["%_Column Numbers" (progn (customize-set-variable (quote column-number-mode) (not column-number-mode)) (redraw-modeline)):style toggle :selected column-number-mode] ("\"Other %_Window\" Location" ["%_Always in Same Frame" (customize-set-variable (quote get-frame-for-buffer-default-instance-limit) nil) :style radio :selected (null get-frame-for-buffer-default-instance-limit)] ["Other Frame (%_2 Frames Max)" (customize-set-variable (quote get-frame-for-buffer-default-instance-limit) 2) :style radio :selected (eq 2 get-frame-for-buffer-default-instance-limit)] ["Other Frame (%_3 Frames Max)" (customize-set-variable (quote get-frame-for-buffer-default-instance-limit) 3) :style radio :selected (eq 3 get-frame-for-buffer-default-instance-limit)] ["Other Frame (%_4 Frames Max)" (customize-set-variable (quote get-frame-for-buffer-default-instance-limit) 4):style radio :selected (eq 4 get-frame-for-buffer-default-instance-limit)] ["Other Frame (%_5 Frames Max)" (customize-set-variable (quote get-frame-for-buffer-default-instance-limit) 5) :style radio :selected (eq 5 get-frame-for-buffer-default-instance-limit)] ["Always Create %_New Frame" (customize-set-variable (quote get-frame-for-buffer-default-instance-limit) 0) :style radio :selected (eq 0 get-frame-for-buffer-default-instance-limit)] "-----" ["%_Temp Buffers Always in Same Frame" (customize-set-variable (quote temp-buffer-show-function) (quote show-temp-buffer-in-current-frame)) :style radio :selected (eq temp-buffer-show-function (quote show-temp-buffer-in-current-frame))] ["Temp Buffers %_Like Other Buffers" (customize-set-variable (quote temp-buffer-show-function) nil) :style radio :selected (null temp-buffer-show-function)] "-----" ["%_Make Current Frame Gnuserv Target" (customize-set-variable (quote gnuserv-frame) (if (eq gnuserv-frame t) nil t)) :style toggle :selected (and (boundp (quote gnuserv-frame)) (eq gnuserv-frame t)) :active (boundp (quote gnuserv-frame))])) ("%_Menubars" ["%_Frame-Local Font Menu" (customize-set-variable (quote font-menu-this-frame-only-p) (not font-menu-this-frame-only-p)) :style toggle :selected (and (boundp (quote font-menu-this-frame-only-p)) font-menu-this-frame-only-p)] ["%_Alt/Meta Selects Menu Items" (if (eq menu-accelerator-enabled (quote menu-force)) (customize-set-variable (quote menu-accelerator-enabled) nil) (customize-set-variable (quote menu-accelerator-enabled) (quote menu-force))) :style toggle:selected (eq menu-accelerator-enabled (quote menu-force))] "----" ["Buffers Menu %_Length..." (customize-set-variable (quote buffers-menu-max-size) (let ((val (read-number "Enter number of buffers to display (or 0 for unlimited): "))) (if (eq val 0) nil val)))] ["%_Multi-Operation Buffers Sub-Menus" (customize-set-variable (quote complex-buffers-menu-p) (not complex-buffers-menu-p)):style toggle :selected complex-buffers-menu-p] ["S%_ubmenus for Buffer Groups" (customize-set-variable (quote buffers-menu-submenus-for-groups-p) (not buffers-menu-submenus-for-groups-p)) :style toggle :selected buffers-menu-submenus-for-groups-p] ["%_Verbose Buffer Menu Entries" (if (eq buffers-menu-format-buffer-line-function (quote slow-format-buffers-menu-line)) (customize-set-variable (quote buffers-menu-format-buffer-line-function) (quote format-buffers-menu-line)) (customize-set-variable (quote buffers-menu-format-buffer-line-function) (quote slow-format-buffers-menu-line))):style toggle :selected (eq buffers-menu-format-buffer-line-function (quote slow-format-buffers-menu-line))] ("Buffers Menu %_Sorting" ["%_Most Recently Used" (progn (customize-set-variable (quote buffers-menu-sort-function) nil) (customize-set-variable (quote buffers-menu-grouping-function) nil)):style radio :selected (null buffers-menu-sort-function)] ["%_Alphabetically" (progn (customize-set-variable (quote buffers-menu-sort-function) (quote sort-buffers-menu-alphabetically)) (customize-set-variable (quote buffers-menu-grouping-function) nil)) :style radio :selected (eq (quote sort-buffers-menu-alphabetically) buffers-menu-sort-function)] ["%_By Major Mode, Then Alphabetically" (progn (customize-set-variable (quote buffers-menu-sort-function) (quote sort-buffers-menu-by-mode-then-alphabetically)) (customize-set-variable (quote buffers-menu-grouping-function) (quote group-buffers-menu-by-mode-then-alphabetically))):style radio :selected (eq (quote sort-buffers-menu-by-mode-then-alphabetically) buffers-menu-sort-function)]) "---" ["%_Ignore Scaled Fonts" (customize-set-variable (quote font-menu-ignore-scaled-fonts) (not font-menu-ignore-scaled-fonts)) :style toggle :selected (and (boundp (quote font-menu-ignore-scaled-fonts)) font-menu-ignore-scaled-fonts)]) ("S%_yntax Highlighting" ["%_In This Buffer" (progn (font-lock-mode) (customize-set-variable (quote font-lock-mode) font-lock-mode)) :style toggle :selected (and (boundp (quote font-lock-mode)) font-lock-mode) :active (boundp (quote font-lock-mode))] ["%_Automatic" (customize-set-variable (quote font-lock-auto-fontify) (not font-lock-auto-fontify)) :style toggle:selected (and (boundp (quote font-lock-auto-fontify)) font-lock-auto-fontify):active (fboundp (quote font-lock-mode))] "-----" ["Force %_Rehighlight in this Buffer" (customize-set-variable (quote font-lock-auto-fontify) (not font-lock-auto-fontify)) :style toggle :selected (and (boundp (quote font-lock-auto-fontify)) font-lock-auto-fontify) :active (fboundp (quote font-lock-mode))] "-----" ["%_Fonts" (progn (require (quote font-lock)) (font-lock-use-default-fonts) (customize-set-variable (quote font-lock-use-fonts) t) (customize-set-variable (quote font-lock-use-colors) nil) (font-lock-mode 1)) :style radio :selected (and (boundp (quote font-lock-use-fonts)) font-lock-use-fonts):active (fboundp (quote font-lock-mode))] ["%_Colors" (progn (require (quote font-lock)) (font-lock-use-default-colors) (customize-set-variable (quote font-lock-use-colors) t) (customize-set-variable (quote font-lock-use-fonts) nil) (font-lock-mode 1)) :style radio :selected (and (boundp (quote font-lock-use-colors)) font-lock-use-colors) :active (boundp (quote font-lock-mode))] "-----" ["%_1 Least" (progn (require (quote font-lock)) (if (or (and (not (integerp font-lock-maximum-decoration)) (not (eq t font-lock-maximum-decoration))) (and (integerp font-lock-maximum-decoration) (<= font-lock-maximum-decoration 0))) nil (customize-set-variable (quote font-lock-maximum-decoration) nil) (font-lock-recompute-variables))) :style radio :active (fboundp (quote font-lock-mode)) :selected (and (boundp (quote font-lock-maximum-decoration)) (or (and (not (integerp font-lock-maximum-decoration)) (not (eq t font-lock-maximum-decoration))) (and (integerp font-lock-maximum-decoration) (<= font-lock-maximum-decoration 0))))] ["%_2 More" (progn (require (quote font-lock)) (if (and (integerp font-lock-maximum-decoration) (= 1 font-lock-maximum-decoration)) nil (customize-set-variable (quote font-lock-maximum-decoration) 1) (font-lock-recompute-variables))):style radio :active (fboundp (quote font-lock-mode)) :selected (and (boundp (quote font-lock-maximum-decoration)) (integerp font-lock-maximum-decoration) (= 1 font-lock-maximum-decoration))] ["%_3 Even More" (progn (require (quote font-lock)) (if (and (integerp font-lock-maximum-decoration) (= 2 font-lock-maximum-decoration)) nil (customize-set-variable (quote font-lock-maximum-decoration) 2) (font-lock-recompute-variables))) :style radio:active (fboundp (quote font-lock-mode)) :selected (and (boundp (quote font-lock-maximum-decoration)) (integerp font-lock-maximum-decoration) (= 2 font-lock-maximum-decoration))] ["%_4 Most" (progn (require (quote font-lock)) (if (or (eq font-lock-maximum-decoration t) (and (integerp font-lock-maximum-decoration) (>= font-lock-maximum-decoration 3))) nil (customize-set-variable (quote font-lock-maximum-decoration) t) (font-lock-recompute-variables))):style radio :active (fboundp (quote font-lock-mode)) :selected (and (boundp (quote font-lock-maximum-decoration)) (or (eq font-lock-maximum-decoration t) (and (integerp font-lock-maximum-decoration) (>= font-lock-maximum-decoration 3))))] "-----" ["Lazy %_Lock" (progn (lazy-lock-mode) (customize-set-variable (quote lazy-lock-mode) lazy-lock-mode) (redraw-modeline)):active (and (boundp (quote font-lock-mode)) (boundp (quote lazy-lock-mode)) font-lock-mode) :style toggle :selected (and (boundp (quote lazy-lock-mode)) lazy-lock-mode)] ["Lazy %_Shot" (progn (lazy-shot-mode) (customize-set-variable (quote lazy-shot-mode) lazy-shot-mode) (redraw-modeline)):active (and (boundp (quote font-lock-mode)) (boundp (quote lazy-shot-mode)) font-lock-mode) :style toggle :selected (and (boundp (quote lazy-shot-mode)) lazy-shot-mode)] ["Cac%_hing" (progn (fast-lock-mode) (customize-set-variable (quote fast-lock-mode) fast-lock-mode) (redraw-modeline)) :active (and (boundp (quote font-lock-mode)) (boundp (quote fast-lock-mode)) font-lock-mode):style toggle :selected (and (boundp (quote fast-lock-mode)) fast-lock-mode)]) ("%_Font" :filter font-menu-family-constructor) ("Font Si%_ze":filter font-menu-size-constructor) ["Edit Fa%_ces..." (customize-face nil)] "-----" ["Edit I%_nit File" (let ((el-file (or user-init-file "~/.xemacs/init.el"))) (if (string-match "\\.elc$" el-file) (setq el-file (substring user-init-file 0 (1- (length el-file))))) (find-file el-file) (or (eq major-mode (quote emacs-lisp-mode)) (emacs-lisp-mode)))] ["%_Save Options to Custom File" customize-save-customized]) ("%_Buffers" :filter buffers-menu-filter ["Go To %_Previous Buffer" switch-to-other-buffer] ["Go To %_Buffer..." switch-to-buffer] "----" ["%_List All Buffers" list-all-buffers] ["%_Delete Buffer" kill-this-buffer :suffix (if put-buffer-names-in-file-menu (buffer-name) "")] "----") nil ("%_Help" ["%_About XEmacs..." about-xemacs] ["%_Home Page (www.xemacs.org)" xemacs-www-page :active (fboundp (quote browse-url))] ["What's %_New in XEmacs" view-emacs-news] ["B%_eta Info" describe-beta:included (string-match "beta" emacs-version)] "-----" ("%_Info (Online Docs)" ["%_Info Contents" (Info-goto-node "(dir)")] "-----" ["XEmacs %_User's Manual" (Info-goto-node "(XEmacs)")] ["XEmacs %_Lisp Reference Manual" (Info-goto-node "(Lispref)")] ["All About %_Packages" (Info-goto-node "(xemacs)Packages")] ["%_Getting Started with XEmacs" (Info-goto-node "(New-Users-Guide)")] ["%_XEmacs Internals Manual" (Info-goto-node "(Internals)")] ["%_How to Use Info" (Info-goto-node "(Info)")] "-----" ["Lookup %_Key Sequence in User's Manual..." Info-goto-emacs-key-command-node] ["Lookup %_Command in User's Manual..." Info-goto-emacs-command-node] ["Lookup %_Function in Lisp Reference..." Info-elisp-ref] "-----" ["Find %_Topic in User's Manual/Lispref..." Info-search-index-in-xemacs-and-lispref] ["%_Search Text in User's Manual..." Info-search-text-in-xemacs] ["S%_earch Text in Lisp Reference..." Info-search-text-in-lispref]) ("XEmacs %_FAQ" ["%_FAQ (local)" xemacs-local-faq] ["FAQ via %_WWW" xemacs-www-faq :active (fboundp (quote browse-url))]) ("%_Tutorials" :filter tutorials-menu-filter) ("%_Samples" ["View Sample %_init.el" view-sample-init-el :active (locate-data-file "sample.init.el")] ["View Sample .%_gtkrc" (Help-find-file (locate-data-file "sample.gtkrc")):included (featurep (quote gtk)) :active (locate-data-file "sample.gtkrc")] ["View Sample .%_Xresources" (Help-find-file (locate-data-file "sample.Xresources")):included (featurep (quote x)) :active (locate-data-file "sample.Xresources")] ["View Sample %_enriched.doc" (Help-find-file (locate-data-file "enriched.doc")) :active (locate-data-file "enriched.doc")]) ("%_Commands, Variables, Keys" ["Describe %_Mode" describe-mode] ["%_Apropos..." hyper-apropos] ["%_Command-Only Apropos..." command-hyper-apropos] ["Apropos %_Docs..." apropos-documentation] "-----" ["Describe %_Key..." describe-key] ["Show %_Bindings" describe-bindings] ["Show M%_ouse Bindings" describe-pointer] "-----" ["Describe %_Function..." describe-function] ["Describe %_Variable..." describe-variable] ["%_Locate Command in Keymap..." where-is]) (\,＠ (when (featurep (quote mule)) (quote (("Internationa%_l" ("Describe %_Language Support" :filter (lambda (menu) (menu-split-long-menu-and-sort (mapcar (function (lambda (entry) (backquote [(\, (car entry)) (describe-language-environment (quote (\, (car entry)))) :style radio :selected (\, (equal (car entry) current-language-environment))]))) language-info-alist)))) ["Describe %_Input Method" describe-input-method] ["Describe Current %_Coding Systems" describe-current-coding-system] ["Show Character %_Table" view-charset-by-menu] ["Show %_Diagnosis for MULE" mule-diag :active nil] ["Show \"%_hello\" in Many Languages" view-hello-file]))))) ("%_Other" ["%_Current Installation Info" describe-installation :active (boundp (quote Installation-string))] ["%_Known Problems" view-xemacs-problems] ["%_Obtaining the Latest Version" describe-distribution] ["%_No Warranty" describe-no-warranty] ["XEmacs %_License" describe-copying] ["Find %_Packages" finder-by-keyword] ["View %_Splash Screen" xemacs-splash-buffer] ["%_Unix Manual..." manual-entry]) "-----" ["Recent %_Messages" (view-lossage t)] ["Recent %_Keystrokes" view-lossage] ["Recent %_Warnings" view-warnings] ["Send %_Bug Report..." report-xemacs-bug :active (fboundp (quote report-xemacs-bug))]))))) # (unwind-protect ...) #<compiled-function nil "...(43)" [byte-compile-unresolved-functions byte-compile-inbuffer 1 " \n" nil looking-at ";" byte-compile-file-form read byte-compile-flush-pending byte-compile-warn-about-unresolved-functions] 3>() # (unwind-protect ...) call-with-condition-handler(#<compiled-function (error-info) "...(4)" [error-info byte-compile-report-error] 2> #<compiled-function nil "...(43)" [byte-compile-unresolved-functions byte-compile-inbuffer 1 " \n" nil looking-at ";" byte-compile-file-form read byte-compile-flush-pending byte-compile-warn-about-unresolved-functions] 3>) # (unwind-protect ...) # bind (byte-compile-warnings-beginning byte-compile-point-max-prev byte-compile-log-buffer byte-compile-macro-environment byte-compile-function-environment byte-compile-autoload-environment byte-compile-unresolved-functions byte-compile-bound-variables byte-compile-free-references byte-compile-free-assignments byte-compile-verbose byte-optimize byte-compile-emacs19-compatibility byte-compile-dynamic byte-compile-dynamic-docstrings byte-compile-warnings byte-compile-file-domain byte-compile-outbuffer float-output-format case-fold-search print-length print-level byte-compile-constants byte-compile-variables byte-compile-tag-number byte-compile-depth byte-compile-maxdepth byte-compile-output eval filename byte-compile-inbuffer) byte-compile-from-buffer(#<buffer " *Compiler Input*"> "c:\\Hacking\\cvs.xemacs.org\\XEmacs\\xemacs-21.5-clean\\lisp\\menubar-items.el") # bind (byte-compile-current-file target-file input-buffer output-buffer byte-compile-dest-file load filename) byte-compile-file("c:\\Hacking\\cvs.xemacs.org\\XEmacs\\xemacs-21.5-clean\\lisp\\menubar-items.el") byte-code("..." [file byte-compile-file t] 2) <1 line deleted by Adrian Aichner> # bind (file) batch-byte-compile-1("c:\\Hacking\\cvs.xemacs.org\\XEmacs\\xemacs-21.5-clean\\lisp\\menubar-items.el") # bind (error file-to-process) batch-byte-compile-one-file() # bind (error) batch-byte-compile() funcall(batch-byte-compile) # bind (arg) command-line-do-funcall("-f") funcall(command-line-do-funcall "-f") (cond (end-of-options (setq file-p t)) ((setq tem (when (eq (aref arg 0) ?-) (or (assoc arg command-switch-alist) (assoc (substring arg 1) command-switch-alist)))) (funcall (cdr tem) arg)) ((string-match "\\`\\+[0-9]+\\'" arg) (setq line (string-to-int arg))) ((or (string= arg "-") (string= arg "--")) (setq end-of-options t)) (t (setq file-p t))) (while command-line-args-left (setq arg (pop command-line-args-left)) (cond (end-of-options (setq file-p t)) ((setq tem (when (eq (aref arg 0) ?-) (or (assoc arg command-switch-alist) (assoc (substring arg 1) command-switch-alist)))) (funcall (cdr tem) arg)) ((string-match "\\`\\+[0-9]+\\'" arg) (setq line (string-to-int arg))) ((or (string= arg "-") (string= arg "--")) (setq end-of-options t)) (t (setq file-p t))) (when file-p (setq file-p nil) (incf file-count) (setq arg (expand-file-name arg dir)) (cond ((= file-count 1) (find-file arg)) (noninteractive (find-file arg)) (t (find-file-other-window arg))) (when line (goto-line line) (setq line nil)))) # bind (tem arg file-p end-of-options line file-count dir) (let ((dir command-line-default-directory) (file-count 0) (line nil) (end-of-options nil) file-p arg tem) (while command-line-args-left (setq arg (pop command-line-args-left)) (cond (end-of-options (setq file-p t)) ((setq tem (when (eq (aref arg 0) ?-) (or (assoc arg command-switch-alist) (assoc (substring arg 1) command-switch-alist)))) (funcall (cdr tem) arg)) ((string-match "\\`\\+[0-9]+\\'" arg) (setq line (string-to-int arg))) ((or (string= arg "-") (string= arg "--")) (setq end-of-options t)) (t (setq file-p t))) (when file-p (setq file-p nil) (incf file-count) (setq arg (expand-file-name arg dir)) (cond ((= file-count 1) (find-file arg)) (noninteractive (find-file arg)) (t (find-file-other-window arg))) (when line (goto-line line) (setq line nil))))) (cond ((null command-line-args-left) (unless noninteractive (run-hooks (quote term-setup-hook)) (setq term-setup-hook nil) (when (string= (buffer-name) "*scratch*") (unless (or inhibit-startup-message (input-pending-p)) (let (tmout) (unwind-protect (catch (quote tmout) (setq tmout (add-timeout startup-message-timeout (lambda (ignore) (condition-case nil (throw (quote tmout) t) (error nil))) nil)) (display-splash-screen) (or nil (goto-char (point-min))) (sit-for 0) (setq unread-command-event (next-command-event))) (when tmout (disable-timeout tmout))))) (with-current-buffer (get-buffer "*scratch*") (erase-buffer) (when (stringp initial-scratch-message) (insert initial-scratch-message)) (set-buffer-modified-p nil))))) (t (let ((dir command-line-default-directory) (file-count 0) (line nil) (end-of-options nil) file-p arg tem) (while command-line-args-left (setq arg (pop command-line-args-left)) (cond (end-of-options (setq file-p t)) ((setq tem (when (eq (aref arg 0) ?-) (or (assoc arg command-switch-alist) (assoc (substring arg 1) command-switch-alist)))) (funcall (cdr tem) arg)) ((string-match "\\`\\+[0-9]+\\'" arg) (setq line (string-to-int arg))) ((or (string= arg "-") (string= arg "--")) (setq end-of-options t)) (t (setq file-p t))) (when file-p (setq file-p nil) (incf file-count) (setq arg (expand-file-name arg dir)) (cond ((= file-count 1) (find-file arg)) (noninteractive (find-file arg)) (t (find-file-other-window arg))) (when line (goto-line line) (setq line nil))))))) command-line-1() # bind (command-line-args-left) (let ((command-line-args-left (cdr command-line-args))) (let ((debugger (quote early-error-handler)) (debug-on-error t)) (setq command-line-args-left (command-line-early command-line-args-left)) (when (eq system-type (quote windows-nt)) (declare-fboundp (init-mswindows-at-startup))) (when (featurep (quote toolbar)) (init-toolbar-location)) (when (featurep (quote mule)) (declare-fboundp (init-mule-at-startup))) (if (featurep (quote toolbar)) (if (featurep (quote infodock)) (require (quote id-x-toolbar)) (init-toolbar))) (when (and initial-window-system (not noninteractive)) (funcall (intern (concat "init-" (symbol-name initial-window-system) "-win")))) (frame-initialize)) (startup-initialize-custom-faces) (if (featurep (quote menubar)) (init-menubar-at-startup)) (load-init-file) (with-current-buffer (get-buffer "*scratch*") (erase-buffer) (set-buffer-modified-p nil) (when (eq major-mode (quote fundamental-mode)) (funcall initial-major-mode)) (font-lock-set-defaults)) (when (and (eq (quote tty) (console-type)) (not (noninteractive))) (load-terminal-library)) (command-line-1) (setq inhibit-warning-display nil) (when (noninteractive) (kill-emacs t))) command-line() (if (noninteractive) (command-line) (condition-case data (command-line) (t (setq error-data data)))) # bind (error-data) (let (error-data) (if (noninteractive) (command-line) (condition-case data (command-line) (t (setq error-data data)))) (setq default-directory (abbreviate-file-name default-directory)) (if auto-save-list-file-prefix (setq auto-save-list-file-name (expand-file-name (format "%s%d-%s" auto-save-list-file-prefix (emacs-pid) (system-name))))) (run-hooks (quote emacs-startup-hook)) (and term-setup-hook (run-hooks (quote term-setup-hook))) (setq term-setup-hook nil) (frame-notice-user-settings) (when window-setup-hook (run-hooks (quote window-setup-hook))) (setq window-setup-hook nil) (if error-data (signal-error (car error-data) (cdr error-data)))) (if command-line-processed (message "Back to top level.") (setq command-line-processed t) (when (getenv "XEMACSDEBUG") (eval (read (getenv "XEMACSDEBUG")))) (let ((value (user-home-directory))) (if (and value (< (length value) (length default-directory)) (equal (file-attributes default-directory) (file-attributes value))) (setq default-directory (file-name-as-directory value)))) (setq default-directory (abbreviate-file-name default-directory)) (initialize-xemacs-paths) (startup-set-invocation-environment) (startup-setup-paths (cond (inhibit-all-packages t) (inhibit-early-packages (quote (early))) (t nil)) nil) (startup-setup-paths-warning) (startup-load-autoloads) (let (error-data) (if (noninteractive) (command-line) (condition-case data (command-line) (t (setq error-data data)))) (setq default-directory (abbreviate-file-name default-directory)) (if auto-save-list-file-prefix (setq auto-save-list-file-name (expand-file-name (format "%s%d-%s" auto-save-list-file-prefix (emacs-pid) (system-name))))) (run-hooks (quote emacs-startup-hook)) (and term-setup-hook (run-hooks (quote term-setup-hook))) (setq term-setup-hook nil) (frame-notice-user-settings) (when window-setup-hook (run-hooks (quote window-setup-hook))) (setq window-setup-hook nil) (if error-data (signal-error (car error-data) (cdr error-data)))) (if load-user-init-file-p (maybe-migrate-user-init-file))) normal-top-level() # (condition-case ... . error) # (catch top-level ...) Fatal error. Your files have been auto-saved. byte-compile-file-form((defconst default-menubar (backquote (("%_File" ["%_Open..." find-file] ["Open in Other %_Window..." find-file-other-window] ["Open in New %_Frame..." find-file-other-frame] ("Open with Specified %_Encoding":filter (lambda (menu) (coding-system-menu-filter (lambda (entry) (let ((coding-system-for-read entry)) (call-interactively (quote find-file)))) (lambda (entry) t) t))) ["%_Hex Edit File..." hexl-find-file :active (fboundp (quote hexl-find-file))] ["%_Insert File..." insert-file] ["%_View File..." view-file] "------" ["%_New Frame" make-frame] ["Frame on Other %_Display..." make-frame-on-display :active (fboundp (quote make-frame-on-display))] ["%_Close Frame" delete-frame :active (not (eq (next-frame (selected-frame) (quote nomini) (quote window-system)) (selected-frame)))] "-----" ["%_Save" save-buffer :active (buffer-modified-p) :suffix (if put-buffer-names-in-file-menu (buffer-name) "")] ["Save %_As..." write-file] ["Save So%_me Buffers" save-some-buffers] "-----" (\,＠ (if (valid-specifier-tag-p (quote msprinter)) (quote (["Page Set%_up..." generic-page-setup])))) ["%_Print" generic-print-buffer:active (or (valid-specifier-tag-p (quote msprinter)) (and (not (eq system-type (quote windows-nt))) (fboundp (quote lpr-region)))):suffix (if (region-active-p) "Selection..." (if put-buffer-names-in-file-menu (concat (buffer-name) "...") "..."))] (\,＠ (unless (valid-specifier-tag-p (quote msprinter)) (quote (["Prett%_y-Print" ps-print-buffer-with-faces:active (fboundp (quote ps-print-buffer-with-faces)) :suffix (if put-buffer-names-in-file-menu (buffer-name) "")])))) "-----" ["%_Revert Buffer" revert-buffer:active (or buffer-file-name revert-buffer-function) :suffix (if put-buffer-names-in-file-menu (buffer-name) "")] ("Rever%_t/Recover" ("Revert Buffer with Specified %_Encoding" :filter (lambda (menu) (coding-system-menu-filter (lambda (entry) (let ((coding-system-for-read entry)) (revert-buffer))) (lambda (entry) (or buffer-file-name revert-buffer-function)) t))) ["Re%_cover Buffer from Autosave" (recover-file buffer-file-name) :active buffer-file-name :suffix (if put-buffer-names-in-file-menu (buffer-name) "")] ["Recover %_Session..." recover-session]) "-----" ["E%_xit XEmacs" save-buffers-kill-emacs]) ("%_Edit" ["%_Undo" undo :active (and (not (eq buffer-undo-list t)) (or buffer-undo-list pending-undo-list)) :suffix (if (eq last-command (quote undo)) "More" "")] ["%_Redo" redo :included (fboundp (quote redo)) :active (not (or (eq buffer-undo-list t) (eq last-buffer-undo-list nil) (not (or (eq last-buffer-undo-list buffer-undo-list) (and (null (car-safe buffer-undo-list)) (eq last-buffer-undo-list (cdr-safe buffer-undo-list))))) (or (eq buffer-undo-list pending-undo-list) (eq (cdr buffer-undo-list) pending-undo-list)))) :suffix (if (eq last-command (quote redo)) "More" "")] "----" ["Cu%_t" kill-primary-selection :active (selection-owner-p)] ["%_Copy" copy-primary-selection :active (selection-owner-p)] ["%_Paste" yank-clipboard-selection:active (selection-exists-p (quote CLIPBOARD))] ["%_Delete" delete-primary-selection :active (selection-owner-p)] "----" ["Select %_All" mark-whole-buffer] ["Select Pa%_ge" mark-page] ["Select Paragrap%_h" mark-paragraph] ["Re%_select Region" activate-region :active (mark t)] "----" ["%_Find..." make-search-dialog] ["R%_eplace..." query-replace] ["Replace (Rege%_xp)..." query-replace-regexp] ["List %_Matching Lines..." list-matching-lines]) ("%_View" ["%_Split Window" split-window-vertically] ["S%_plit Window (Side by Side)" split-window-horizontally] ["%_Un-Split (Keep This)" delete-other-windows :active (not (one-window-p t))] ["Un-Split (Keep %_Others)" delete-window :active (not (one-window-p t))] ["Balance %_Windows" balance-windows :active (not (one-window-p t))] ["Shrink Window to %_Fit" shrink-window-if-larger-than-buffer] "----" ("N%_arrow" ["%_Narrow to Region" narrow-to-region :active (region-exists-p)] ["Narrow to %_Page" narrow-to-page] ["Narrow to %_Defun" narrow-to-defun] "----" ["%_Widen" widen :active (or (/= (point-min) 1) (/= (point-max) (1+ (buffer-size))))]) "----" ["%_Goto Line..." goto-line] ["Beginning of %_Defun" beginning-of-defun] ["%_End of Defun" end-of-defun] ["%_Count Lines in Buffer" count-lines-buffer:included (not (region-active-p))] ["%_Count Lines in Region" count-lines-region:included (region-active-p)] "----" ["%_Jump to Previous Mark" (set-mark-command t) :active (mark t)] ["Se%_t Bookmark" bookmark-set :active (fboundp (quote bookmark-set))] ("%_Bookmarks" :filter (lambda (menu) (let ((alist (and-boundp (quote bookmark-alist) bookmark-alist))) (if (not alist) menu (let ((items (submenu-generate-accelerator-spec (mapcar (function (lambda (bmk) (backquote [(\, bmk) (bookmark-jump (quote (\, bmk)))]))) (bookmark-all-names))))) (append menu (quote ("---")) items))))) "---" ["Insert %_Contents" bookmark-menu-insert :active (fboundp (quote bookmark-menu-insert))] ["Insert L%_ocation" bookmark-menu-locate :active (fboundp (quote bookmark-menu-locate))] "---" ["%_Rename Bookmark" bookmark-menu-rename :active (fboundp (quote bookmark-menu-rename))] ("%_Delete Bookmark" :filter (lambda (menu) (submenu-generate-accelerator-spec (mapcar (function (lambda (bmk) (backquote [(\, bmk) (bookmark-delete (quote (\, bmk)))]))) (bookmark-all-names))))) ["%_Edit Bookmark List" bookmark-bmenu-list :active (and-boundp (quote bookmark-alist) bookmark-alist)] "---" ["%_Save Bookmarks" bookmark-save:active (and-boundp (quote bookmark-alist) bookmark-alist)] ["Save Bookmarks %_As..." bookmark-write :active (and-boundp (quote bookmark-alist) bookmark-alist)] ["%_Load a Bookmark File" bookmark-load :active (fboundp (quote bookmark-load))])) ("C%_mds" ["Repeat Last Comple%_x Command..." repeat-complex-command] ["E%_valuate Lisp Expression..." eval-expression] ["Execute %_Named Command..." execute-extended-command] "----" ["Start %_Defining Macro" start-kbd-macro :included (not defining-kbd-macro)] ["Stop %_Defining Macro" end-kbd-macro :included defining-kbd-macro] ["%_Execute Last Macro" call-last-kbd-macro :active last-kbd-macro] ("Other %_Macro" ["Edit %_Last Macro" edit-last-kbd-macro :active last-kbd-macro] ["%_Edit Macro..." edit-kbd-macro] ["%_Append to Last Macro" (start-kbd-macro t) :active (and (not defining-kbd-macro) last-kbd-macro)] "---" ["%_Name Last Macro..." name-last-kbd-macro:active last-kbd-macro] ["Assign Last Macro to %_Key..." assign-last-kbd-macro-to-key :active (and last-kbd-macro (fboundp (quote assign-last-kbd-macro-to-key)))] "---" ["E%_xecute Last Macro on Region Lines":active (and last-kbd-macro (region-exists-p))] "---" ["%_Query User During Macro" kbd-macro-query :active defining-kbd-macro] ["Enter %_Recursive Edit During Macro" (kbd-macro-query t) :active defining-kbd-macro] "---" ["%_Insert Named Macro into Buffer..." insert-kbd-macro] ["Read Macro from Re%_gion" read-kbd-macro :active (region-exists-p)]) "----" ["D%_ynamic Abbrev Expand" dabbrev-expand] ["Define %_Global Abbrev for " add-global-abbrev :suffix (truncate-string-to-width (abbrev-string-to-be-defined nil) 40 nil nil t)] ("Other %_Abbrev" ["Dynamic Abbrev %_Complete" dabbrev-completion] ["Dynamic Abbrev Complete in %_All Buffers" (dabbrev-completion 16)] "----" "----" ["%_Define Global Abbrev for " add-global-abbrev :suffix (truncate-string-to-width (abbrev-string-to-be-defined nil) 40 nil nil t)] ["Define %_Mode-Specific Abbrev for " add-mode-abbrev :suffix (truncate-string-to-width (abbrev-string-to-be-defined nil) 40 nil nil t)] ["Define Global Ex%_pansion for " inverse-add-global-abbrev :suffix (truncate-string-to-width (inverse-abbrev-string-to-be-defined 1) 40 nil nil t)] ["Define Mode-Specific Expa%_nsion for " inverse-add-mode-abbrev :suffix (truncate-string-to-width (inverse-abbrev-string-to-be-defined 1) 40 nil nil t)] "---" ["E%_xpand Abbrev" expand-abbrev] ["Expand Abbrevs in Re%_gion" expand-region-abbrevs :active (region-exists-p)] ["%_Unexpand Last Abbrev" unexpand-abbrev :active (and (stringp last-abbrev-text) (> last-abbrev-location 0))] "---" ["%_Kill All Abbrevs" kill-all-abbrevs] ["%_Insert All Abbrevs into Buffer" insert-abbrevs] ["%_List Abbrevs" list-abbrevs] "---" ["%_Edit Abbrevs" edit-abbrevs] ["%_Redefine Abbrevs from Buffer" edit-abbrevs-redefine :active (eq major-mode (quote edit-abbrevs-mode))] "---" ["%_Save Abbrevs As..." write-abbrev-file] ["L%_oad Abbrevs..." read-abbrev-file]) "---" ["%_Cut Rectangle" kill-rectangle] ["%_Prefix Rectangle..." string-rectangle] ("Other %_Rectangles/Register" ["%_Yank Rectangle" yank-rectangle] ["Rectangle %_to Register" copy-rectangle-to-register] ["Rectangle %_from Register" insert-register] ["%_Delete Rectangle" clear-rectangle] ["%_Open Rectangle" open-rectangle] ["Rectangle %_Mousing" (customize-set-variable (quote mouse-track-rectangle-p) (not mouse-track-rectangle-p)) :style toggle :selected mouse-track-rectangle-p] "---" ["%_Copy to Register..." copy-to-register :active (region-exists-p)] ["%_Append to Register..." append-register :active (region-exists-p)] ["%_Insert Register..." insert-register] "---" ["%_Save Point to Register" point-to-register] ["%_Jump to Register" register-to-point]) "---" ["%_Sort Lines in Region" sort-lines :active (region-exists-p)] ["%_Uppercase Region or Word" upcase-region-or-word] ["%_Lowercase Region or Word" downcase-region-or-word] ["%_Indent Region or Balanced Expression" indent-region-or-balanced-expression] ["%_Fill Paragraph or Region" fill-paragraph-or-region] ("Other %_Text Commands" ["Sort %_Paragraphs in Region" sort-paragraphs:active (region-exists-p)] ["Sort Pa%_ges in Region" sort-pages :active (region-exists-p)] ["Sort C%_olumns in Region" sort-columns :active (region-exists-p)] ["Sort %_Regexp..." sort-regexp-fields :active (region-exists-p)] "---" ["%_Capitalize Region" capitalize-region :active (region-exists-p)] ["Title-C%_ase Region" capitalize-region-as-title :active (region-exists-p)] "----" ["C%_enter Region or Paragraph" (if (region-active-p) (center-region) (center-line))] ["Center %_Line" center-line] "---" ["%_Indent Region Rigidly" indent-rigidly :active (region-exists-p)] ["In%_dent To Column..." indent-to-column] "---" ["%_Untabify (Tabs to Spaces)" untabify :active (and (region-exists-p) (fboundp (quote untabify)))] ["%_Tabify (Spaces to Tabs)" tabify :active (and (region-exists-p) (fboundp (quote tabify)))] ["Tab to Tab %_Stop" tab-to-tab-stop] ["Edit Ta%_b Stops" edit-tab-stops]) "---" ("%_Tags" ["%_Find Tag..." find-tag] ["Find %_Other Window..." find-tag-other-window] ["%_Next Tag..." (find-tag nil)] ["N%_ext Other Window..." (find-tag-other-window nil)] ["Next %_File" next-file] "-----" ["Tags %_Search..." tags-search] ["Tags %_Replace..." tags-query-replace] ["%_Continue Search/Replace" tags-loop-continue] "-----" ["%_Pop stack" pop-tag-mark] ["%_Apropos..." tags-apropos] "-----" ["%_Set Tags Table File..." visit-tags-table])) ("%_Tools" ("%_Packages" ("%_Set Download Site" ("%_Official Releases" :filter (lambda (&rest junk) (menu-split-long-menu (submenu-generate-accelerator-spec (package-ui-download-menu))))) ("%_Pre-Releases" :filter (lambda (&rest junk) (menu-split-long-menu (submenu-generate-accelerator-spec (package-ui-pre-release-download-menu))))) ("%_Site Releases" :filter (lambda (&rest junk) (menu-split-long-menu (submenu-generate-accelerator-spec (package-ui-site-release-download-menu)))))) "--:shadowEtchedIn" ["%_Update Package Index" package-get-update-base] ["%_List and Install" pui-list-packages] ["U%_pdate Installed Packages" package-get-update-all] ["%_Help" (Info-goto-node "(xemacs)Packages")]) ("%_Internet" ["Read Mail %_1 (VM)..." vm :active (fboundp (quote vm))] ["Read Mail %_2 (MH)..." (mh-rmail t) :active (fboundp (quote mh-rmail))] ["Send %_Mail..." compose-mail :active (fboundp (quote compose-mail))] ["Usenet %_News" gnus :active (fboundp (quote gnus))] ["Browse the %_Web" w3 :active (fboundp (quote w3))]) "---" ("%_Grep" :filter (lambda (menu) (if (or (not (boundp (quote grep-history))) (null grep-history)) menu (let ((items (submenu-generate-accelerator-spec (mapcar (function (lambda (label-value) (vector (first label-value) (list (quote grep) (second label-value))))) (Menubar-items-truncate-history grep-history 10 50))))) (append menu (quote ("---")) items)))) ["%_Grep..." grep :active (fboundp (quote grep))] ["%_Kill Grep" kill-compilation :active (and (fboundp (quote kill-compilation)) (fboundp (quote compilation-find-buffer)) (let ((buffer (condition-case nil (compilation-find-buffer) (error nil)))) (and buffer (get-buffer-process buffer))))] "---" ["Grep %_All Files in Current Directory..." grep-all-files-in-current-directory :active (fboundp (quote grep-all-files-in-current-directory))] ["Grep All Files in Current Directory %_Recursively..." grep-all-files-in-current-directory-and-below :active (fboundp (quote grep-all-files-in-current-directory-and-below))] "---" ["Grep %_C and C Header Files in Current Directory..." (progn (require (quote compile)) (let ((grep-command (cons (concat grep-command " *.[chCH]") (length grep-command)))) (call-interactively (quote grep)))) :active (fboundp (quote grep))] ["Grep C Hea%_der Files in Current Directory..." (progn (require (quote compile)) (let ((grep-command (cons (concat grep-command " *.[hH]") (length grep-command)))) (call-interactively (quote grep)))) :active (fboundp (quote grep))] ["Grep %_E-Lisp Files in Current Directory..." (progn (require (quote compile)) (let ((grep-command (cons (concat grep-command " *.el") (length grep-command)))) (call-interactively (quote grep)))) :active (fboundp (quote grep))] ["Grep %_Perl Files in Current Directory..." (progn (require (quote compile)) (let ((grep-command (cons (concat grep-command " *.pl") (length grep-command)))) (call-interactively (quote grep)))) :active (fboundp (quote grep))] ["Grep %_HTML Files in Current Directory..." (progn (require (quote compile)) (let ((grep-command (cons (concat grep-command " *.*htm*") (length grep-command)))) (call-interactively (quote grep)))) :active (fboundp (quote grep))] "---" ["%_Next Match" next-error :active (and (fboundp (quote compilation-errors-exist-p)) (compilation-errors-exist-p))] ["Pre%_vious Match" previous-error :active (and (fboundp (quote compilation-errors-exist-p)) (compilation-errors-exist-p))] ["%_First Match" first-error :active (and (fboundp (quote compilation-errors-exist-p)) (compilation-errors-exist-p))] ["G%_oto Match" compile-goto-error :active (and (fboundp (quote compilation-errors-exist-p)) (compilation-errors-exist-p))] "---" ["%_Set Grep Command..." (progn (require (quote compile)) (customize-set-variable (quote grep-command) (read-shell-command "Default Grep Command: " grep-command))):active (fboundp (quote grep))]) ("%_Compile" :filter (lambda (menu) (if (or (not (boundp (quote compile-history))) (null compile-history)) menu (let ((items (submenu-generate-accelerator-spec (mapcar (function (lambda (label-value) (vector (first label-value) (list (quote compile) (second label-value))))) (Menubar-items-truncate-history compile-history 10 50))))) (append menu (quote ("---")) items)))) ["%_Compile..." compile :active (fboundp (quote compile))] ["%_Repeat Compilation" recompile :active (fboundp (quote recompile))] ["%_Kill Compilation" kill-compilation :active (and (fboundp (quote kill-compilation)) (fboundp (quote compilation-find-buffer)) (let ((buffer (condition-case nil (compilation-find-buffer) (error nil)))) (and buffer (get-buffer-process buffer))))] "---" ["%_Next Error" next-error :active (and (fboundp (quote compilation-errors-exist-p)) (compilation-errors-exist-p))] ["Pre%_vious Error" previous-error :active (and (fboundp (quote compilation-errors-exist-p)) (compilation-errors-exist-p))] ["%_First Error" first-error :active (and (fboundp (quote compilation-errors-exist-p)) (compilation-errors-exist-p))] ["G%_oto Error" compile-goto-error :active (and (fboundp (quote compilation-errors-exist-p)) (compilation-errors-exist-p))]) ("%_Debug" ["%_GDB..." gdb :active (fboundp (quote gdb))] ["%_DBX..." dbx:active (fboundp (quote dbx))]) ("%_Shell" ["%_Shell" shell :active (fboundp (quote shell))] ["S%_hell Command..." shell-command :active (fboundp (quote shell-command))] ["Shell Command on %_Region..." shell-command-on-region:active (and (fboundp (quote shell-command-on-region)) (region-exists-p))]) ("%_Tags" ["%_Find Tag..." find-tag] ["Find %_Other Window..." find-tag-other-window] ["%_Next Tag..." (find-tag nil)] ["N%_ext Other Window..." (find-tag-other-window nil)] ["Next %_File" next-file] "-----" ["Tags %_Search..." tags-search] ["Tags %_Replace..." tags-query-replace] ["%_Continue Search/Replace" tags-loop-continue] "-----" ["%_Pop stack" pop-tag-mark] ["%_Apropos..." tags-apropos] "-----" ["%_Set Tags Table File..." visit-tags-table]) "----" ("Ca%_lendar" ["%_3-Month Calendar" calendar :active (fboundp (quote calendar))] ["%_Diary" diary :active (fboundp (quote diary))] ["%_Holidays" holidays :active (fboundp (quote holidays))] ["%_Phases of the Moon" phases-of-moon :active (fboundp (quote phases-of-moon))] ["%_Sunrise/Sunset" sunrise-sunset :active (fboundp (quote sunrise-sunset))]) ("Ga%_mes" ["%_Mine Game" xmine :active (fboundp (quote xmine))] ["%_Tetris" tetris :active (fboundp (quote tetris))] ["%_Sokoban" sokoban :active (fboundp (quote sokoban))] ["Quote from %_Zippy" yow :active (fboundp (quote yow))] ["%_Psychoanalyst" doctor :active (fboundp (quote doctor))] ["Ps%_ychoanalyze Zippy!" psychoanalyze-pinhead :active (fboundp (quote psychoanalyze-pinhead))] ["%_Random Flames" flame :active (fboundp (quote flame))] ["%_Dunnet (Adventure)" dunnet :active (fboundp (quote dunnet))] ["Towers of %_Hanoi" hanoi:active (fboundp (quote hanoi))] ["Game of %_Life" life :active (fboundp (quote life))] ["M%_ultiplication Puzzle" mpuz :active (fboundp (quote mpuz))]) "----") ("%_Options" ("%_Advanced (Customize)" ("%_Emacs" :filter (lambda (&rest junk) (cdr (custom-menu-create (quote emacs))))) ["%_Group..." customize-group] ["%_Variable..." customize-variable] ["%_Face..." customize-face] ["%_Saved..." customize-saved] ["Se%_t..." customize-customized] ["%_Apropos..." customize-apropos] ["%_Browse..." customize-browse]) "---" ("%_Editing" ["This Buffer %_Read Only" (toggle-read-only) :style toggle :selected buffer-read-only] ["%_Yank/Kill Interact With Clipboard" (if (eq interprogram-cut-function (quote own-clipboard)) (progn (customize-set-variable (quote interprogram-cut-function) nil) (customize-set-variable (quote interprogram-paste-function) nil)) (customize-set-variable (quote interprogram-cut-function) (quote own-clipboard)) (customize-set-variable (quote interprogram-paste-function) (quote get-clipboard))) :style toggle :selected (eq interprogram-cut-function (quote own-clipboard))] ["%_Overstrike" (progn (setq overwrite-mode (if overwrite-mode nil (quote overwrite-mode-textual))) (customize-set-variable (quote overwrite-mode) overwrite-mode)) :style toggle:selected overwrite-mode] ["%_Abbrev Mode" (customize-set-variable (quote abbrev-mode) (not (default-value (quote abbrev-mode)))) :style toggle :selected (default-value (quote abbrev-mode))] ["Active Re%_gions" (customize-set-variable (quote zmacs-regions) (not zmacs-regions)) :style toggle :selected zmacs-regions] "---" ["%_Case Sensitive Search" (customize-set-variable (quote case-fold-search) (setq case-fold-search (not case-fold-search))) :style toggle :selected (not case-fold-search)] ["Case %_Matching Replace" (customize-set-variable (quote case-replace) (not case-replace)) :style toggle:selected case-replace] "---" ("%_Newline at End of File..." ["%_Don't Require" (customize-set-variable (quote require-final-newline) nil) :style radio:selected (not require-final-newline)] ["%_Require" (customize-set-variable (quote require-final-newline) t) :style radio :selected (eq require-final-newline t)] ["%_Ask" (customize-set-variable (quote require-final-newline) (quote ask)) :style radio :selected (and require-final-newline (not (eq require-final-newline t)))]) ["Add Newline When Moving Past %_End" (customize-set-variable (quote next-line-add-newlines) (not next-line-add-newlines)):style toggle :selected next-line-add-newlines]) ("%_Keyboard and Mouse" ["%_Delete Key Deletes Selection" (customize-set-variable (quote pending-delete-mode) (not pending-delete-mode)) :style toggle :selected (and (boundp (quote pending-delete-mode)) pending-delete-mode) :active (boundp (quote pending-delete-mode))] ["`kill-%_word' Stores in Clipboard" (customize-set-variable (quote kill-word-into-kill-ring) (not kill-word-into-kill-ring)) :style toggle :selected kill-word-into-kill-ring] ["`kill-%_line' Kills Whole Line at Beg" (customize-set-variable (quote kill-whole-line) (not kill-whole-line)):style toggle :selected kill-whole-line] ["Size for %_Block-Movement Commands..." (customize-set-variable (quote block-movement-size) (read-number "Block Movement Size: " t block-movement-size))] ["%_VI Emulation" (progn (toggle-viper-mode) (customize-set-variable (quote viper-mode) viper-mode)):style toggle :selected (and (boundp (quote viper-mode)) viper-mode):active (fboundp (quote toggle-viper-mode))] "----" ["S%_hifted Motion Keys Select Region" (customize-set-variable (quote shifted-motion-keys-select-region) (not shifted-motion-keys-select-region)) :style toggle :selected shifted-motion-keys-select-region] ["%_After Shifted Motion, Unshifted Motion Keys Deselect" (customize-set-variable (quote unshifted-motion-keys-deselect-region) (not unshifted-motion-keys-deselect-region)) :style toggle :selected unshifted-motion-keys-deselect-region] "----" ["%_Set Key..." global-set-key] ["%_Unset Key..." global-unset-key] "---" ["%_Mouse Paste at Text Cursor (not Clicked Location)" (customize-set-variable (quote mouse-yank-at-point) (not mouse-yank-at-point)) :style toggle :selected mouse-yank-at-point] "---" ["%_Teach Extended Commands" (customize-set-variable (quote teach-extended-commands-p) (not teach-extended-commands-p)) :style toggle :selected teach-extended-commands-p]) ("%_Printing" ["Set Printer %_Name for Generic Print Support..." (customize-set-variable (quote printer-name) (read-string "Set printer name: " printer-name))] "---" ["Command-Line %_Switches for `lpr'/`lp'..." (customize-variable (quote lpr-switches)) (boundp (quote lpr-switches))] ("%_Pretty-Print Paper Size" ["%_Letter" (customize-set-variable (quote ps-paper-type) (quote letter)) :style radio :selected (and (boundp (quote ps-paper-type)) (eq ps-paper-type (quote letter))) :active (boundp (quote ps-paper-type))] ["Lette%_r-Small" (customize-set-variable (quote ps-paper-type) (quote letter-small)) :style radio :selected (and (boundp (quote ps-paper-type)) (eq ps-paper-type (quote letter-small))) :active (boundp (quote ps-paper-type))] ["Le%_gal" (customize-set-variable (quote ps-paper-type) (quote legal)) :style radio :selected (and (boundp (quote ps-paper-type)) (eq ps-paper-type (quote legal))) :active (boundp (quote ps-paper-type))] ["%_Statement" (customize-set-variable (quote ps-paper-type) (quote statement)) :style radio :selected (and (boundp (quote ps-paper-type)) (eq ps-paper-type (quote statement))) :active (boundp (quote ps-paper-type))] ["%_Executive" (customize-set-variable (quote ps-paper-type) (quote executive)):style radio :selected (and (boundp (quote ps-paper-type)) (eq ps-paper-type (quote executive))) :active (boundp (quote ps-paper-type))] ["%_Tabloid" (customize-set-variable (quote ps-paper-type) (quote tabloid)) :style radio :selected (and (boundp (quote ps-paper-type)) (eq ps-paper-type (quote tabloid))) :active (boundp (quote ps-paper-type))] ["Le%_dger" (customize-set-variable (quote ps-paper-type) (quote ledger)) :style radio :selected (and (boundp (quote ps-paper-type)) (eq ps-paper-type (quote ledger))) :active (boundp (quote ps-paper-type))] ["A%_3" (customize-set-variable (quote ps-paper-type) (quote a3)) :style radio :selected (and (boundp (quote ps-paper-type)) (eq ps-paper-type (quote a3))) :active (boundp (quote ps-paper-type))] ["%_A4" (customize-set-variable (quote ps-paper-type) (quote a4)) :style radio :selected (and (boundp (quote ps-paper-type)) (eq ps-paper-type (quote a4))) :active (boundp (quote ps-paper-type))] ["A4s%_mall" (customize-set-variable (quote ps-paper-type) (quote a4small)) :style radio :selected (and (boundp (quote ps-paper-type)) (eq ps-paper-type (quote a4small))) :active (boundp (quote ps-paper-type))] ["B%_4" (customize-set-variable (quote ps-paper-type) (quote b4)) :style radio :selected (and (boundp (quote ps-paper-type)) (eq ps-paper-type (quote b4))) :active (boundp (quote ps-paper-type))] ["%_B5" (customize-set-variable (quote ps-paper-type) (quote b5)):style radio :selected (and (boundp (quote ps-paper-type)) (eq ps-paper-type (quote b5))) :active (boundp (quote ps-paper-type))]) ["%_Color Printing" (cond (ps-print-color-p (customize-set-variable (quote ps-print-color-p) nil) (and (boundp (quote original-face-background)) original-face-background (set-face-background (quote default) original-face-background))) (t (customize-set-variable (quote ps-print-color-p) t) (setq original-face-background (face-background-instance (quote default))) (set-face-background (quote default) "white"))) :style toggle :selected (and (boundp (quote ps-print-color-p)) ps-print-color-p) :active (boundp (quote ps-print-color-p))]) ("%_Internet" ("%_Compose Mail With" ["VM mail package" (customize-set-variable (quote mail-user-agent) (quote vm-user-agent)) :style radio :selected (eq mail-user-agent (quote vm-user-agent)) :active (get (quote vm-user-agent) (quote composefunc))] ["Bare-bones Emacs Mailer" (customize-set-variable (quote mail-user-agent) (quote sendmail-user-agent)) :style radio :selected (eq mail-user-agent (quote sendmail-user-agent))] ["MH" (customize-set-variable (quote mail-user-agent) (quote mh-e-user-agent)) :style radio :selected (eq mail-user-agent (quote mh-e-user-agent)) :active (get (quote mh-e-user-agent) (quote composefunc))] ["GNUS" (customize-set-variable (quote mail-user-agent) (quote message-user-agent)) :style radio :selected (eq mail-user-agent (quote message-user-agent)) :active (get (quote message-user-agent) (quote composefunc))]) ["Set My %_Email Address..." (customize-set-variable (quote user-mail-address) (read-string "Set email address: " user-mail-address))] ["Set %_Machine Email Name..." (customize-set-variable (quote mail-host-address) (read-string "Set machine email name: " mail-host-address))] ["Set %_SMTP Server..." (progn (require (quote smtpmail)) (customize-set-variable (quote smtpmail-smtp-server) (read-string "Set SMTP server: " smtpmail-smtp-server))):active (and (boundp (quote send-mail-function)) (eq send-mail-function (quote smtpmail-send-it)))] ["SMTP %_Debug Info" (progn (require (quote smtpmail)) (customize-set-variable (quote smtpmail-debug-info) (not smtpmail-debug-info))) :style toggle :selected (and (boundp (quote smtpmail-debug-info)) smtpmail-debug-info) :active (and (boundp (quote send-mail-function)) (eq send-mail-function (quote smtpmail-send-it)))]) ("%_Troubleshooting" ["%_Debug on Error [not saved]" (setq debug-on-error (not debug-on-error)):style toggle :selected debug-on-error] ["Debug on %_Quit [not saved]" (setq debug-on-quit (not debug-on-quit)) :style toggle :selected debug-on-quit] ["Debug on S%_ignal [not saved]" (setq debug-on-signal (not debug-on-signal)):style toggle :selected debug-on-signal] ["%_Stack Trace on Error [not saved]" (setq stack-trace-on-error (not stack-trace-on-error)) :style toggle :selected stack-trace-on-error] ["Stack Trace on Si%_gnal [not saved]" (setq stack-trace-on-signal (not stack-trace-on-signal)) :style toggle:selected stack-trace-on-signal]) ("Encodin%_g" ["Automatic %_EOL Detection" (customize-set-variable (quote eol-detection-enabled-p) (not eol-detection-enabled-p)):style toggle :selected eol-detection-enabled-p :included (not (memq system-type (quote (windows-nt cygwin32))))] ("Set Coding System of %_Buffer File" :filter (lambda (menu) (coding-system-menu-filter (lambda (entry) (set-buffer-file-coding-system entry)) (lambda (entry) t)))) ("Set Coding System of %_Terminal" :filter (lambda (menu) (coding-system-menu-filter (lambda (entry) (set-terminal-coding-system entry)) (lambda (entry) nil)))) ("Set Coding System of %_Keyboard" :filter (lambda (menu) (coding-system-menu-filter (lambda (entry) (set-keyboard-coding-system entry)) (lambda (entry) nil)))) ("Set Coding System of %_Process" :filter (lambda (menu) (coding-system-menu-filter (lambda (entry) (set-buffer-process-coding-system entry)) (lambda (entry) (get-buffer-process (current-buffer))))))) (\,＠ (when (featurep (quote mule)) (quote (("Internationa%_l" ("Set %_Language Environment" :filter (lambda (menu) (menu-split-long-menu-and-sort (mapcar (function (lambda (entry) (backquote [(\, (car entry)) (set-language-environment (quote (\, (car entry)))) :style radio :selected (\, (equal (car entry) current-language-environment))]))) language-info-alist)))) ["%_Toggle Input Method" toggle-input-method] ["Select %_Input Method" set-input-method]))))) "-----" ("%_Display" (\,＠ (if (featurep (quote scrollbar)) (quote (["%_Scrollbars" (customize-set-variable (quote scrollbars-visible-p) (not scrollbars-visible-p)):style toggle :selected scrollbars-visible-p])))) ["%_Wrap Long Lines" (progn (setq truncate-lines (not truncate-lines)) (customize-set-variable (quote truncate-lines) truncate-lines)) :style toggle :selected (not truncate-lines)] "----" ["%_3D Modeline" (customize-set-variable (quote modeline-3d-p) (not modeline-3d-p)) :style toggle :selected modeline-3d-p] ("Modeline %_Horizontal Scrolling" ["%_None" (customize-set-variable (quote modeline-scrolling-method) nil) :style radio :selected (not modeline-scrolling-method)] ["As %_Text" (customize-set-variable (quote modeline-scrolling-method) t) :style radio :selected (eq modeline-scrolling-method t)] ["As %_Scrollbar" (customize-set-variable (quote modeline-scrolling-method) (quote scrollbar)) :style radio :selected (eq modeline-scrolling-method (quote scrollbar))]) (\,＠ (if (featurep (quote toolbar)) (quote ("---" ["%_Toolbars Visible" (customize-set-variable (quote toolbar-visible-p) (not toolbar-visible-p)):style toggle :selected toolbar-visible-p] ["Toolbars Ca%_ptioned" (customize-set-variable (quote toolbar-captioned-p) (not toolbar-captioned-p)):style toggle :active toolbar-visible-p :selected toolbar-captioned-p] ("Default Toolba%_r Location" ["%_Top" (customize-set-variable (quote default-toolbar-position) (quote top)) :style radio :active toolbar-visible-p:selected (eq default-toolbar-position (quote top))] ["%_Bottom" (customize-set-variable (quote default-toolbar-position) (quote bottom)) :style radio :active toolbar-visible-p :selected (eq default-toolbar-position (quote bottom))] ["%_Left" (customize-set-variable (quote default-toolbar-position) (quote left)) :style radio :active toolbar-visible-p :selected (eq default-toolbar-position (quote left))] ["%_Right" (customize-set-variable (quote default-toolbar-position) (quote right)) :style radio :active toolbar-visible-p:selected (eq default-toolbar-position (quote right))]))))) (\,＠ (if (featurep (quote gutter)) (quote ("---" ["B%_uffers Tab Visible" (customize-set-variable (quote gutter-buffers-tab-visible-p) (not gutter-buffers-tab-visible-p)):style toggle :selected gutter-buffers-tab-visible-p] ("Default %_Gutter Location" ["%_Top" (customize-set-variable (quote default-gutter-position) (quote top)) :style radio :selected (eq default-gutter-position (quote top))] ["%_Bottom" (customize-set-variable (quote default-gutter-position) (quote bottom)) :style radio :selected (eq default-gutter-position (quote bottom))] ["%_Left" (customize-set-variable (quote default-gutter-position) (quote left)) :style radio :selected (eq default-gutter-position (quote left))] ["%_Right" (customize-set-variable (quote default-gutter-position) (quote right)) :style radio :selected (eq default-gutter-position (quote right))]))))) "-----" ["%_Blinking Cursor" (customize-set-variable (quote blink-cursor-mode) (not blink-cursor-mode)) :style toggle :selected (and (boundp (quote blink-cursor-mode)) blink-cursor-mode) :active (boundp (quote blink-cursor-mode))] ["Bl%_ock Cursor" (progn (customize-set-variable (quote bar-cursor) nil) (force-cursor-redisplay)) :style radio :selected (null bar-cursor)] ["Bar Cursor (%_1 Pixel)" (progn (customize-set-variable (quote bar-cursor) t) (force-cursor-redisplay)) :style radio :selected (eq bar-cursor t)] ["Bar Cursor (%_2 Pixels)" (progn (customize-set-variable (quote bar-cursor) 2) (force-cursor-redisplay)) :style radio :selected (and bar-cursor (not (eq bar-cursor t)))] "----" ("Pa%_ren Highlighting" ["%_None" (customize-set-variable (quote paren-mode) nil) :style radio :selected (and (boundp (quote paren-mode)) (not paren-mode)) :active (boundp (quote paren-mode))] ["%_Blinking Paren" (customize-set-variable (quote paren-mode) (quote blink-paren)) :style radio :selected (and (boundp (quote paren-mode)) (eq paren-mode (quote blink-paren))) :active (boundp (quote paren-mode))] ["%_Steady Paren" (customize-set-variable (quote paren-mode) (quote paren)) :style radio :selected (and (boundp (quote paren-mode)) (eq paren-mode (quote paren))) :active (boundp (quote paren-mode))] ["%_Expression" (customize-set-variable (quote paren-mode) (quote sexp)) :style radio :selected (and (boundp (quote paren-mode)) (eq paren-mode (quote sexp))) :active (boundp (quote paren-mode))]) "------" ["%_Line Numbers" (progn (customize-set-variable (quote line-number-mode) (not line-number-mode)) (redraw-modeline)) :style toggle :selected line-number-mode] ["%_Column Numbers" (progn (customize-set-variable (quote column-number-mode) (not column-number-mode)) (redraw-modeline)):style toggle :selected column-number-mode] ("\"Other %_Window\" Location" ["%_Always in Same Frame" (customize-set-variable (quote get-frame-for-buffer-default-instance-limit) nil) :style radio :selected (null get-frame-for-buffer-default-instance-limit)] ["Other Frame (%_2 Frames Max)" (customize-set-variable (quote get-frame-for-buffer-default-instance-limit) 2) :style radio :selected (eq 2 get-frame-for-buffer-default-instance-limit)] ["Other Frame (%_3 Frames Max)" (customize-set-variable (quote get-frame-for-buffer-default-instance-limit) 3) :style radio :selected (eq 3 get-frame-for-buffer-default-instance-limit)] ["Other Frame (%_4 Frames Max)" (customize-set-variable (quote get-frame-for-buffer-default-instance-limit) 4):style radio :selected (eq 4 get-frame-for-buffer-default-instance-limit)] ["Other Frame (%_5 Frames Max)" (customize-set-variable (quote get-frame-for-buffer-default-instance-limit) 5) :style radio :selected (eq 5 get-frame-for-buffer-default-instance-limit)] ["Always Create %_New Frame" (customize-set-variable (quote get-frame-for-buffer-default-instance-limit) 0) :style radio :selected (eq 0 get-frame-for-buffer-default-instance-limit)] "-----" ["%_Temp Buffers Always in Same Frame" (customize-set-variable (quote temp-buffer-show-function) (quote show-temp-buffer-in-current-frame)) :style radio :selected (eq temp-buffer-show-function (quote show-temp-buffer-in-current-frame))] ["Temp Buffers %_Like Other Buffers" (customize-set-variable (quote temp-buffer-show-function) nil) :style radio :selected (null temp-buffer-show-function)] "-----" ["%_Make Current Frame Gnuserv Target" (customize-set-variable (quote gnuserv-frame) (if (eq gnuserv-frame t) nil t)) :style toggle :selected (and (boundp (quote gnuserv-frame)) (eq gnuserv-frame t)) :active (boundp (quote gnuserv-frame))])) ("%_Menubars" ["%_Frame-Local Font Menu" (customize-set-variable (quote font-menu-this-frame-only-p) (not font-menu-this-frame-only-p)) :style toggle :selected (and (boundp (quote font-menu-this-frame-only-p)) font-menu-this-frame-only-p)] ["%_Alt/Meta Selects Menu Items" (if (eq menu-accelerator-enabled (quote menu-force)) (customize-set-variable (quote menu-accelerator-enabled) nil) (customize-set-variable (quote menu-accelerator-enabled) (quote menu-force))) :style toggle:selected (eq menu-accelerator-enabled (quote menu-force))] "----" ["Buffers Menu %_Length..." (customize-set-variable (quote buffers-menu-max-size) (let ((val (read-number "Enter number of buffers to display (or 0 for unlimited): "))) (if (eq val 0) nil val)))] ["%_Multi-Operation Buffers Sub-Menus" (customize-set-variable (quote complex-buffers-menu-p) (not complex-buffers-menu-p)):style toggle :selected complex-buffers-menu-p] ["S%_ubmenus for Buffer Groups" (customize-set-variable (quote buffers-menu-submenus-for-groups-p) (not buffers-menu-submenus-for-groups-p)) :style toggle :selected buffers-menu-submenus-for-groups-p] ["%_Verbose Buffer Menu Entries" (if (eq buffers-menu-format-buffer-line-function (quote slow-format-buffers-menu-line)) (customize-set-variable (quote buffers-menu-format-buffer-line-function) (quote format-buffers-menu-line)) (customize-set-variable (quote buffers-menu-format-buffer-line-function) (quote slow-format-buffers-menu-line))):style toggle :selected (eq buffers-menu-format-buffer-line-function (quote slow-format-buffers-menu-line))] ("Buffers Menu %_Sorting" ["%_Most Recently Used" (progn (customize-set-variable (quote buffers-menu-sort-function) nil) (customize-set-variable (quote buffers-menu-grouping-function) nil)):style radio :selected (null buffers-menu-sort-function)] ["%_Alphabetically" (progn (customize-set-variable (quote buffers-menu-sort-function) (quote sort-buffers-menu-alphabetically)) (customize-set-variable (quote buffers-menu-grouping-function) nil)) :style radio :selected (eq (quote sort-buffers-menu-alphabetically) buffers-menu-sort-function)] ["%_By Major Mode, Then Alphabetically" (progn (customize-set-variable (quote buffers-menu-sort-function) (quote sort-buffers-menu-by-mode-then-alphabetically)) (customize-set-variable (quote buffers-menu-grouping-function) (quote group-buffers-menu-by-mode-then-alphabetically))):style radio :selected (eq (quote sort-buffers-menu-by-mode-then-alphabetically) buffers-menu-sort-function)]) "---" ["%_Ignore Scaled Fonts" (customize-set-variable (quote font-menu-ignore-scaled-fonts) (not font-menu-ignore-scaled-fonts)) :style toggle :selected (and (boundp (quote font-menu-ignore-scaled-fonts)) font-menu-ignore-scaled-fonts)]) ("S%_yntax Highlighting" ["%_In This Buffer" (progn (font-lock-mode) (customize-set-variable (quote font-lock-mode) font-lock-mode)) :style toggle :selected (and (boundp (quote font-lock-mode)) font-lock-mode) :active (boundp (quote font-lock-mode))] ["%_Automatic" (customize-set-variable (quote font-lock-auto-fontify) (not font-lock-auto-fontify)) :style toggle:selected (and (boundp (quote font-lock-auto-fontify)) font-lock-auto-fontify):active (fboundp (quote font-lock-mode))] "-----" ["Force %_Rehighlight in this Buffer" (customize-set-variable (quote font-lock-auto-fontify) (not font-lock-auto-fontify)) :style toggle :selected (and (boundp (quote font-lock-auto-fontify)) font-lock-auto-fontify) :active (fboundp (quote font-lock-mode))] "-----" ["%_Fonts" (progn (require (quote font-lock)) (font-lock-use-default-fonts) (customize-set-variable (quote font-lock-use-fonts) t) (customize-set-variable (quote font-lock-use-colors) nil) (font-lock-mode 1)) :style radio :selected (and (boundp (quote font-lock-use-fonts)) font-lock-use-fonts):active (fboundp (quote font-lock-mode))] ["%_Colors" (progn (require (quote font-lock)) (font-lock-use-default-colors) (customize-set-variable (quote font-lock-use-colors) t) (customize-set-variable (quote font-lock-use-fonts) nil) (font-lock-mode 1)) :style radio :selected (and (boundp (quote font-lock-use-colors)) font-lock-use-colors) :active (boundp (quote font-lock-mode))] "-----" ["%_1 Least" (progn (require (quote font-lock)) (if (or (and (not (integerp font-lock-maximum-decoration)) (not (eq t font-lock-maximum-decoration))) (and (integerp font-lock-maximum-decoration) (<= font-lock-maximum-decoration 0))) nil (customize-set-variable (quote font-lock-maximum-decoration) nil) (font-lock-recompute-variables))) :style radio :active (fboundp (quote font-lock-mode)) :selected (and (boundp (quote font-lock-maximum-decoration)) (or (and (not (integerp font-lock-maximum-decoration)) (not (eq t font-lock-maximum-decoration))) (and (integerp font-lock-maximum-decoration) (<= font-lock-maximum-decoration 0))))] ["%_2 More" (progn (require (quote font-lock)) (if (and (integerp font-lock-maximum-decoration) (= 1 font-lock-maximum-decoration)) nil (customize-set-variable (quote font-lock-maximum-decoration) 1) (font-lock-recompute-variables))):style radio :active (fboundp (quote font-lock-mode)) :selected (and (boundp (quote font-lock-maximum-decoration)) (integerp font-lock-maximum-decoration) (= 1 font-lock-maximum-decoration))] ["%_3 Even More" (progn (require (quote font-lock)) (if (and (integerp font-lock-maximum-decoration) (= 2 font-lock-maximum-decoration)) nil (customize-set-variable (quote font-lock-maximum-decoration) 2) (font-lock-recompute-variables))) :style radio:active (fboundp (quote font-lock-mode)) :selected (and (boundp (quote font-lock-maximum-decoration)) (integerp font-lock-maximum-decoration) (= 2 font-lock-maximum-decoration))] ["%_4 Most" (progn (require (quote font-lock)) (if (or (eq font-lock-maximum-decoration t) (and (integerp font-lock-maximum-decoration) (>= font-lock-maximum-decoration 3))) nil (customize-set-variable (quote font-lock-maximum-decoration) t) (font-lock-recompute-variables))):style radio :active (fboundp (quote font-lock-mode)) :selected (and (boundp (quote font-lock-maximum-decoration)) (or (eq font-lock-maximum-decoration t) (and (integerp font-lock-maximum-decoration) (>= font-lock-maximum-decoration 3))))] "-----" ["Lazy %_Lock" (progn (lazy-lock-mode) (customize-set-variable (quote lazy-lock-mode) lazy-lock-mode) (redraw-modeline)):active (and (boundp (quote font-lock-mode)) (boundp (quote lazy-lock-mode)) font-lock-mode) :style toggle :selected (and (boundp (quote lazy-lock-mode)) lazy-lock-mode)] ["Lazy %_Shot" (progn (lazy-shot-mode) (customize-set-variable (quote lazy-shot-mode) lazy-shot-mode) (redraw-modeline)):active (and (boundp (quote font-lock-mode)) (boundp (quote lazy-shot-mode)) font-lock-mode) :style toggle :selected (and (boundp (quote lazy-shot-mode)) lazy-shot-mode)] ["Cac%_hing" (progn (fast-lock-mode) (customize-set-variable (quote fast-lock-mode) fast-lock-mode) (redraw-modeline)) :active (and (boundp (quote font-lock-mode)) (boundp (quote fast-lock-mode)) font-lock-mode):style toggle :selected (and (boundp (quote fast-lock-mode)) fast-lock-mode)]) ("%_Font" :filter font-menu-family-constructor) ("Font Si%_ze":filter font-menu-size-constructor) ["Edit Fa%_ces..." (customize-face nil)] "-----" ["Edit I%_nit File" (let ((el-file (or user-init-file "~/.xemacs/init.el"))) (if (string-match "\\.elc$" el-file) (setq el-file (substring user-init-file 0 (1- (length el-file))))) (find-file el-file) (or (eq major-mode (quote emacs-lisp-mode)) (emacs-lisp-mode)))] ["%_Save Options to Custom File" customize-save-customized]) ("%_Buffers" :filter buffers-menu-filter ["Go To %_Previous Buffer" switch-to-other-buffer] ["Go To %_Buffer..." switch-to-buffer] "----" ["%_List All Buffers" list-all-buffers] ["%_Delete Buffer" kill-this-buffer :suffix (if put-buffer-names-in-file-menu (buffer-name) "")] "----") nil ("%_Help" ["%_About XEmacs..." about-xemacs] ["%_Home Page (www.xemacs.org)" xemacs-www-page :active (fboundp (quote browse-url))] ["What's %_New in XEmacs" view-emacs-news] ["B%_eta Info" describe-beta:included (string-match "beta" emacs-version)] "-----" ("%_Info (Online Docs)" ["%_Info Contents" (Info-goto-node "(dir)")] "-----" ["XEmacs %_User's Manual" (Info-goto-node "(XEmacs)")] ["XEmacs %_Lisp Reference Manual" (Info-goto-node "(Lispref)")] ["All About %_Packages" (Info-goto-node "(xemacs)Packages")] ["%_Getting Started with XEmacs" (Info-goto-node "(New-Users-Guide)")] ["%_XEmacs Internals Manual" (Info-goto-node "(Internals)")] ["%_How to Use Info" (Info-goto-node "(Info)")] "-----" ["Lookup %_Key Sequence in User's Manual..." Info-goto-emacs-key-command-node] ["Lookup %_Command in User's Manual..." Info-goto-emacs-command-node] ["Lookup %_Function in Lisp Reference..." Info-elisp-ref] "-----" ["Find %_Topic in User's Manual/Lispref..." Info-search-index-in-xemacs-and-lispref] ["%_Search Text in User's Manual..." Info-search-text-in-xemacs] ["S%_earch Text in Lisp Reference..." Info-search-text-in-lispref]) ("XEmacs %_FAQ" ["%_FAQ (local)" xemacs-local-faq] ["FAQ via %_WWW" xemacs-www-faq :active (fboundp (quote browse-url))]) ("%_Tutorials" :filter tutorials-menu-filter) ("%_Samples" ["View Sample %_init.el" view-sample-init-el :active (locate-data-file "sample.init.el")] ["View Sample .%_gtkrc" (Help-find-file (locate-data-file "sample.gtkrc")):included (featurep (quote gtk)) :active (locate-data-file "sample.gtkrc")] ["View Sample .%_Xresources" (Help-find-file (locate-data-file "sample.Xresources")):included (featurep (quote x)) :active (locate-data-file "sample.Xresources")] ["View Sample %_enriched.doc" (Help-find-file (locate-data-file "enriched.doc")) :active (locate-data-file "enriched.doc")]) ("%_Commands, Variables, Keys" ["Describe %_Mode" describe-mode] ["%_Apropos..." hyper-apropos] ["%_Command-Only Apropos..." command-hyper-apropos] ["Apropos %_Docs..." apropos-documentation] "-----" ["Describe %_Key..." describe-key] ["Show %_Bindings" describe-bindings] ["Show M%_ouse Bindings" describe-pointer] "-----" ["Describe %_Function..." describe-function] ["Describe %_Variable..." describe-variable] ["%_Locate Command in Keymap..." where-is]) (\,＠ (when (featurep (quote mule)) (quote (("Internationa%_l" ("Describe %_Language Support" :filter (lambda (menu) (menu-split-long-menu-and-sort (mapcar (function (lambda (entry) (backquote [(\, (car entry)) (describe-language-environment (quote (\, (car entry)))) :style radio :selected (\, (equal (car entry) current-language-environment))]))) language-info-alist)))) ["Describe %_Input Method" describe-input-method] ["Describe Current %_Coding Systems" describe-current-coding-system] ["Show Character %_Table" view-charset-by-menu] ["Show %_Diagnosis for MULE" mule-diag :active nil] ["Show \"%_hello\" in Many Languages" view-hello-file]))))) ("%_Other" ["%_Current Installation Info" describe-installation :active (boundp (quote Installation-string))] ["%_Known Problems" view-xemacs-problems] ["%_Obtaining the Latest Version" describe-distribution] ["%_No Warranty" describe-no-warranty] ["XEmacs %_License" describe-copying] ["Find %_Packages" finder-by-keyword] ["View %_Splash Screen" xemacs-splash-buffer] ["%_Unix Manual..." manual-entry]) "-----" ["Recent %_Messages" (view-lossage t)] ["Recent %_Keystrokes" view-lossage] ["Recent %_Warnings" view-warnings] ["Send %_Bug Report..." report-xemacs-bug :active (fboundp (quote report-xemacs-bug))]))))) call-with-condition-handler(#<compiled-function (error-info) "...(4)" [error-info byte-compile-report-error] 2> #<compiled-function nil "...(43)" [byte-compile-unresolved-functions byte-compile-inbuffer 1 " \n" nil looking-at ";" byte-compile-file-form read byte-compile-flush-pending byte-compile-warn-about-unresolved-functions] 3>) # bind (byte-compile-warnings-beginning byte-compile-point-max-prev byte-compile-log-buffer byte-compile-macro-environment byte-compile-function-environment byte-compile-autoload-environment byte-compile-unresolved-functions byte-compile-bound-variables byte-compile-free-references byte-compile-free-assignments byte-compile-verbose byte-optimize byte-compile-emacs19-compatibility byte-compile-dynamic byte-compile-dynamic-docstrings byte-compile-warnings byte-compile-file-domain byte-compile-outbuffer float-output-format case-fold-search print-length print-level byte-compile-constants byte-compile-variables byte-compile-tag-number byte-compile-depth byte-compile-maxdepth byte-compile-output eval filename byte-compile-inbuffer) -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/