Error if locale is omitted in set-progress-feedback-instantiator

This bug report will be sent to the XEmacs Development Team, not to your local site managers!! Please write in English, because the XEmacs maintainers do not have translators to read other languages for them. Please describe as succinctly as possible: - What happened. - What you thought should have happened. - Precisely what you were doing at the time. Please also include any C or lisp back-traces that you may have. ================================================================ Dear Bug Team! The function set-progress-feedback-instantiator in gutter-items.el does not work correctly if called with the LOCALE argument omitted. A simple fix is as follows: diff -u gutter-items.el.orig gutter-items.el --- gutter-items.el.orig Sat Mar 08 19:19:20 2003 +++ gutter-items.el Sat Mar 08 19:19:32 2003 ＠＠ -423,6 +423,7 ＠＠ :descriptor "Progress"]) (defun set-progress-feedback-instantiator (&optional locale) + (setq locale (or locale (current-locale))) (cond ((eq progress-feedback-style 'small) (setq progress-glyph-height 16) ================================================================ System Info to help track down your bug: --------------------------------------- OS version: 4NT 5.00U Windows XP 5.1 OS: Windows_NT XEmacs 21.5-b11 "cabbage" configured for `i586-pc-win32'. Building XEmacs using "nmake". Building XEmacs using make flags " ". Building XEmacs in "C:\\Data\\XEmacs\\xemacs-21.5.11\\nt". Using compiler "cl -nologo -W3 -DSTRICT -O2 -G5 -Ob2 -MD". Installing XEmacs in "C:\\Apps\\XEmacs\\XEmacs-21.5-b11". Package path is "~\\.xemacs;;C:\\Apps\\XEmacs\\site-packages;C:\\Apps\\XEmacs\\mule-packages;C:\\Apps\\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 with optimization. Load-Path Lisp Shadows: ---------------------- (c:\Apps\XEmacs\xemacs-packages\lisp\ecrypto\sha1-el c:\Apps\XEmacs\xemacs-packages\lisp\gnus\sha1-el c:\Apps\XEmacs\xemacs-packages\lisp\ecrypto\hex-util c:\Apps\XEmacs\xemacs-packages\lisp\gnus\hex-util c:\Apps\XEmacs\xemacs-packages\lisp\gnus\starttls c:\Apps\XEmacs\xemacs-packages\lisp\mail-lib\starttls c:\Apps\XEmacs\xemacs-packages\lisp\gnus\rfc2104 c:\Apps\XEmacs\xemacs-packages\lisp\mail-lib\rfc2104 c:\Apps\XEmacs\xemacs-packages\lisp\gnus\pop3 c:\Apps\XEmacs\xemacs-packages\lisp\mail-lib\pop3 c:\Apps\XEmacs\xemacs-packages\lisp\gnus\netrc c:\Apps\XEmacs\xemacs-packages\lisp\mail-lib\netrc c:\Apps\XEmacs\xemacs-packages\lisp\gnus\pgg c:\Apps\XEmacs\xemacs-packages\lisp\pgg\pgg c:\Apps\XEmacs\xemacs-packages\lisp\gnus\pgg-pgp5 c:\Apps\XEmacs\xemacs-packages\lisp\pgg\pgg-pgp5 c:\Apps\XEmacs\xemacs-packages\lisp\gnus\pgg-pgp c:\Apps\XEmacs\xemacs-packages\lisp\pgg\pgg-pgp c:\Apps\XEmacs\xemacs-packages\lisp\gnus\pgg-parse c:\Apps\XEmacs\xemacs-packages\lisp\pgg\pgg-parse c:\Apps\XEmacs\xemacs-packages\lisp\gnus\pgg-gpg c:\Apps\XEmacs\xemacs-packages\lisp\pgg\pgg-gpg c:\Apps\XEmacs\xemacs-packages\lisp\gnus\pgg-def c:\Apps\XEmacs\xemacs-packages\lisp\pgg\pgg-def c:\Apps\XEmacs\xemacs-packages\lisp\gnus\sieve c:\Apps\XEmacs\xemacs-packages\lisp\sieve\sieve c:\Apps\XEmacs\xemacs-packages\lisp\gnus\sieve-mode c:\Apps\XEmacs\xemacs-packages\lisp\sieve\sieve-mode c:\Apps\XEmacs\xemacs-packages\lisp\gnus\sieve-manage c:\Apps\XEmacs\xemacs-packages\lisp\sieve\sieve-manage c:\Apps\XEmacs\mule-packages\lisp\mule-base\viet-util c:\Apps\XEmacs\XEmacs-21.5-b11\lisp\mule\viet-util c:\Apps\XEmacs\mule-packages\lisp\mule-base\korea-util c:\Apps\XEmacs\XEmacs-21.5-b11\lisp\mule\korea-util c:\Apps\XEmacs\mule-packages\lisp\mule-base\japan-util c:\Apps\XEmacs\XEmacs-21.5-b11\lisp\mule\japan-util c:\Apps\XEmacs\mule-packages\lisp\mule-base\ethio-util c:\Apps\XEmacs\XEmacs-21.5-b11\lisp\mule\ethio-util c:\Apps\XEmacs\mule-packages\lisp\mule-base\cyril-util c:\Apps\XEmacs\XEmacs-21.5-b11\lisp\mule\cyril-util c:\Apps\XEmacs\mule-packages\lisp\mule-base\china-util c:\Apps\XEmacs\XEmacs-21.5-b11\lisp\mule\china-util c:\Apps\XEmacs\mule-packages\lisp\mule-ucs\unicode c:\Apps\XEmacs\XEmacs-21.5-b11\lisp\unicode) Installed XEmacs Packages: ------------------------- ((zenirc:version 1.13 :type regular) (xslt-process :version 1.11 :type regular) (xslide :version 1.03 :type regular) (xemacs-devel :version 1.48 :type single-file) (xemacs-base :version 1.71 :type regular) (w3 :version 1.26 :type regular) (vm :version 7.07 :type regular) (viper :version 1.35 :type regular) (view-process :version 1.12 :type regular) (vhdl :version 1.15 :type regular) (vc-cc :version 1.21 :type regular) (vc :version 1.33 :type regular) (tramp :version 1.1 :type regular) (tpu :version 1.12 :type regular) (tooltalk :version 1.13 :type regular) (tm :version 1.34 :type regular) (time :version 1.12 :type regular) (textools :version 1.13 :type regular) (text-modes :version 1.55 :type single-file) (texinfo :version 1.21 :type regular) (supercite :version 1.19 :type regular) (strokes :version 1.08 :type regular) (speedbar :version 1.24 :type regular) (sounds-wav :version 1.1 :type regular) (sounds-au :version 1.1 :type regular) (sml-mode :version 0.05 :type regular) (slider :version 1.13 :type regular) (sieve :version 1.1 :type regular) (sh-script :version 1.16 :type regular) (sgml :version 1.08 :type regular) (semantic :version 1.14 :type regular) (scheme :version 1.12 :type regular) (sasl :version 1.12 :type regular) (ruby-modes :version 1.0 :type single-file) (rmail :version 1.13 :type regular) (reftex :version 1.28 :type regular) (python-modes :version 1.01 :type single-file) (psgml-dtds :version 1.02 :type regular) (psgml :version 1.35 :type regular) (ps-print :version 1.08 :type regular) (prog-modes :version 1 .67 :type single-file) (pgg :version 1.01 :type regular) (perl-modes :version 1.02 :type single-file) (pcomplete :version 1.02 :type regular) (pcl-cvs :version 1.64 :type regular) (pc :version 1.25 :type single-file) (os-utils :version 1.29 :type single-file) (ocaml :version 0.03 :type regular) (net-utils :version 1.28 :type single-file) (mmm-mode :version 1.0 :type regular) (misc-games :version 1.15 :type single-file) (mine :version 1.14 :type regular) (mh-e :version 1.16 :type regular) (mew :version 1.17 :type regular) (mailcrypt :version 2.12 :type regular) (mail-lib :version 1.54 :type regular) (liece :version 1.1 :type regular) (jde :version 1.38 :type regular) (ispell :version 1.24 :type regular) (ilisp :version 1.28 :type regular) (igrep :version 1.1 :type regular) (idlwave :version 1.27 :type regular) (ibuffer :version 1.08 :type regular) (hm--html-menus :version 1.18 :type regular) (haskell-mode :version 1.03 :type regular) (gnus :version 1.64 :type regular) (gnats :version 1.15 :type regular) (games :version 1.13 :type regular) (fsf-compat :version 1.11 :type single-file) (frame-icon :version 1.09 :type regular) (fortran-modes :version 1.01 :type single-file) (forms :version 1.14 :type regular) (footnote :version 1.15 :type regular) (eudc :version 1.36 :type regular) (eterm :version 1.13 :type regular) (ess :version 1.02 :type regular) (eshell :version 1.03 :type regular) (emerge :version 1.09 :type regular) (elib :version 1.1 :type single-file) (eieio :version 1.03 :type regular) (efs :version 1.29 :type regular) (edt :version 1.12 :type regular) (edit-utils :version 1.95 :type single-file) (ediff :version 1.44 :type regular) (edebug :version 1.14 :type regular) (ecrypto :version 0.12 :type regular) (docbookide :version 0.05 :type regular) (dired :version 1.12 :type regular) (dictionary :version 1.11 :type regular) (debug :version 1.16 :type regular) (crisp :version 1.12 :type regular) (cookie :version 1.14 :type regular) (clearcase :version 1.04 :type regular) (cc-mode :version 1.31 :type regular) (calendar :version 1.19 :type regular) (calc :version 1.23 :type regular) (c-support :version 1.16 :type single-file) (build :version 1.07 :type regular) (bbdb :version 1.21 :type regular) (auctex :version 1.32 :type regular) (apel :version 1.25 :type regular) (ada :version 1.11 :type regular) (skk :version 1.23 :type regular) (mule-ucs :version 1.04 :type regular) (mule-base :version 1.42 :type regular) (lookup :version 1.13 :type regular) (locale :version 1.2 :type regular) (leim :version 1.19 :type regular) (latin-unity :version 1.07 :type regular) (egg-its :version 1.26 :type regular) (edict :version 1.13 :type regular)) Features: -------- (xemacsbug shadow info view-less view debug hyper-apropos gnus-topic nnfolder pop3 byte-optimize bytecomp byte-compile nnml nndraft nnmh efs-cu bbdb-gnus bbdb-snarf mail-extr bbdb-com gnus-agent gnus-srvr gnus-score score-mode nnvirtual gnus-msg gnus-art mm-uu mm-view gnus-sum gnus-group gnus-undo nnmail mail-source format-spec nntp nnoo gnus-cache filladapt gnus-start gnus-spec gnus-int gnus-range message mml mml-sec mml-smime smime comint ring dig mml1991 mml2015 pgg pgg-parse pgg-def mm-decode mm-bodies mm-encode mailcap mail-parse rfc2045 rfc2231 rfc2047 qp ietf-drums mail-abbrevs sendmail rfc822 mailheader canlock gnus-win gnus gnus-ems gnus-xmas messagexmas gnus-util netrc time-date parse-time nnheader nnheaderxm mail-utils mm-util mail-prsvr wid-edit dabbrev pending-del font-lock cus-face bbdb timezone zenirc-autoloads xslt-process-autoloads xslide-autoloads xemacs-devel-autoloads xemacs-base-autoloads w3-autoloads vm-autoloads viper-autoloads view-process-autoloads vhdl-autoloads vc-cc-autoloads vc-autoloads tramp-autoloads tpu-autoloads tooltalk-autoloads tm-autoloads time-autoloads textools-autoloads text-modes-autoloads texinfo-autoloads supercite-autoloads strokes-autoloads speedbar-autoloads sounds-wav-autoloads sounds-au-autoloads sml-mode-autoloads slider-autoloads sieve-autoloads sh-script-autoloads sgml-autoloads semantic-autoloads scheme-autoloads sasl-autoloads ruby-modes-autoloads rmail-autoloads reftex-autoloads python-modes-autoloads psgml-dtds-autoloads psgml-autoloads ps-print-autoloads prog-modes-autoloads pgg-autoloads perl-modes-autoloads pcomplete-autoloads pcl-cvs-autoloads pc-autoloads os-utils-autoloads ocaml-autoloads net-utils-autoloads mmm-mode-autoloads misc-games-autoloads mine-autoloads mh-e-autoloads mew-autoloads mailcrypt-autoloads mail-lib-autoloads liece-autoloads jde-autoloads ispell-autoloads ilisp-autoloads igrep-autoloads idlwave-autoloads ibuffer-autoloads hm--html-menus-autoloads haskell-mode-autoloads gnus-autoloads gnats-autoloads games-autoloads fsf-compat-autoloads frame-icon-autoloads fortran-modes-autoloads forms-autoloads footnote-autoloads eudc-autoloads eterm-autoloads ess-autoloads eshell-autoloads emerge-autoloads elib-autoloads eieio-autoloads efs-autoloads edt-autoloads edit-utils-autoloads ediff-autoloads edebug-autoloads ecrypto-autoloads docbookide-autoloads dired-autoloads dictionary-autoloads debug-autoloads crisp-autoloads cookie-autoloads clearcase-autoloads cc-mode-autoloads calendar-autoloads calc-autoloads c-support-autoloads build-autoloads bbdb-autoloads auctex-autoloads apel-autoloads ada-autoloads skk-autoloads mule-ucs-autoloads mule-base-autoloads lookup-autoloads locale-autoloads leim-autoloads latin-unity-autoloads egg-its-autoloads edict-autoloads mule-autoloads auto-autoloads loadhist rsz-minibuf auto-show fontl-hooks tibetan lao devanagari indian slovenian czech romanian ccl code-cmds gutter-items menubar-items x-menubar dragdrop mode-motion mouse behavior itimer auto-save lisp-mode easymenu iso8859-1 page buff-menu lib-complete cus-file derived env text-props frame obsolete cus-start custom widget cl-extra mini-cl cl cl-19 packages backquote very-early-lisp unicode mswindows-scrollbars mswindows toolbar native-sound scrollbar network-streams subprocesses menu-accelerator-support menubar md5 xemacs mule gutter tiff png gif jpeg xface xpm xbm lisp-float-type file-coding dde windows-nt dragdrop-api dialog devices window-system base64) Recent keystrokes: ----------------- t e - c o m p i l e - TAB f TAB RET misc-user Sh-home DEL Sh-insert \ g u t t TAB - i TAB RET M-x l o a d - l i TAB RET g u t t TAB - i t TAB RET misc-user q C-c C-k m C-c C-k misc-user M-x x e m a c s - b u TAB BS BS BS BS BS BS BS BS BS BS q C-h a b u g RET next q M-x r e p o r t - x e m TAB RET Recent messages (most recent first): ----------------------------------- Loading xemacsbug...done Loading xemacsbug... Notice: Unable to instantiate font for charset japanese-jisx0208, face default Notice: Unable to instantiate font for charset japanese-jisx0208, face hyper-apropos-documentation Entering debugger... Loading gutter-items...done Loading gutter-items... Wrote c:\Apps\XEmacs\XEmacs-21.5-b11\lisp\gutter-items.elc Compiling c:\Apps\XEmacs\XEmacs-21.5-b11\lisp\gutter-items.el...done Compiling gutter-items.el... (buffers-tab-omit-some-buffers) Compiling gutter-items.el... (progress-feedback-with-label) Compiling gutter-items.el... (progress-feedback) Compiling gutter-items.el... (current-progress-feedback-label) Compiling gutter-items.el... (current-progress-feedback) Compiling gutter-items.el... (display-progress-feedback) Compiling gutter-items.el... (raw-append-progress-feedback) Compiling gutter-items.el... (abort-progress-feedback) Compiling gutter-items.el... (append-progress-feedback) Compiling gutter-items.el... (progress-feedback-dispatch-non-command-events) Compiling gutter-items.el... (remove-progress-feedback)