Re: Cannot run cvs-update after quitting liece

After I restart liece, entering the server for which liece doesn't pick up the original value from custom-file, I still cannot run cvs-update. Now I get this: Signaling: (wrong-type-argument stringp nil) normalize-menu-item-name(nil) mapcar(normalize-menu-item-name (nil)) find-menu-item((("%_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 ...) ["%_Hex Edit File..." hexl-find-file :active ...] ["%_Insert File..." insert-file] ["%_View File..." view-file] "------" ["%_New Frame" make-frame] ["Frame on Other %_Display..." make-frame-on-display :active ...] ["%_Close Frame" delete-frame :active ...] "-----" ["%_Save" save-buffer :active ... :suffix ...] ["Save %_As..." write-file] ["Save So%_me Buffers" save-some-buffers] "-----" ["Page Set%_up..." generic-page-setup] ["%_Print" generic-print-buffer :active ... :suffix ...] "-----" ["%_Revert Buffer" revert-buffer :active ... :suffix ...] ("Rever%_t/Recover" ... ... ...) "-----" ["E%_xit XEmacs" save-buffers-kill-emacs]) ("%_Edit" ["%_Undo" undo :active ... :suffix ...] ["%_Redo" redo :included ... :active ... :suffix ...] "----" ["Cu%_t" kill-primary-selection :active ...] ["%_Copy" copy-primary-selection :active ...] ["%_Paste" yank-clipboard-selection :active ...] ["%_Delete" delete-primary-selection :active ...] "----" ["Select %_All" mark-whole-buffer] ["Select Pa%_ge" mark-page] ["Select Paragrap%_h" mark-paragraph] ["Re%_select Region" activate-region :active ...] "----" ["%_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 ...] ["Un-Split (Keep %_Others)" delete-window :active ...] ["Balance %_Windows" balance-windows :active ...] ["Shrink Window to %_Fit" shrink-window-if-larger-than-buffer] "----" ("N%_arrow" ... ... ... "----" ...) "----" ["%_Goto Line..." goto-line] ["Beginning of %_Defun" beginning-of-defun] ["%_End of Defun" end-of-defun] ["%_Count Lines in Buffer" count-lines-buffer :included ...] ["%_Count Lines in Region" count-lines-region :included ...] "----" ["%_Jump to Previous Mark" ... :active ...] ["Se%_t Bookmark" bookmark-set :active ...] ("%_Bookmarks" :filter ... "---" ... ... "---" ... ... ... "---" ... ... ...)) ("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 ...] ["Stop %_Defining Macro" end-kbd-macro :included defining-kbd-macro] ["%_Execute Last Macro" call-last-kbd-macro :active last-kbd-macro] ("Other %_Macro" ... ... ... "---" ... ... "---" ... "---" ... ... "---" ... ...) "----" ["D%_ynamic Abbrev Expand" dabbrev-expand] ["Define %_Global Abbrev for " add-global-abbrev :suffix ...] ("Other %_Abbrev" ... ... "----" "----" ... ... ... ... "---" ... ... ... "---" ... ... ... "---" ... ... "---" ... ...) "---" ["%_Cut Rectangle" kill-rectangle] ("Other %_Rectangles/Register" ... ... ... ... ... ... ... "---" ... ... ... "---" ... ...) "---" ["%_Sort Lines in Region" sort-lines :active ...] ["%_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" ... ... ... ... "---" ... ... "----" ... ... "---" ... ... "---" ... ... ... ...) "---" ("Footnotes" ... ... ... ... ... "--" ... ...) ("Spell-Check" :filter ... ... ... ... ... ... ... ... ... ... ... "-" ... ... ...)) ("%_Tools" ("%_Packages" ... ... ... ... ...) ("%_Internet" ... ... ... ... ...) "---" ("%_Grep" :filter ... ... ... "---" ... ... "---" ... ... ... ... ... "---" ... ... ... ... "---" ...) ("%_Compile" :filter ... ... ... ... "---" ... ... ... ...) ("%_Debug" ... ...) ("%_Shell" ... ... ...) ("%_Tags" ... ... ... ... ... "-----" ... ... ... "-----" ... ... "-----" ...) "----" ("Ca%_lendar" ... ... ... ... ...) ("Ga%_mes" ... ... ... ... ... ... ... ... ... ... ...) "----" ("VC" :filter vc-menu-filter ... "----" ... ... ... "----" ... ... ... ... "----" ... "----" ... ... "----" ...) "---" ("Compare" ... ... ... ... "---" ... ... "---" ... ... "---" ... ... "---" ... ...) ("Merge" ... ... ... ... "---" ... ... "---" ... ... ... ...) ("Apply Patch" ... ...) ("Ediff Miscellanea" ... ... ... ... ...) "-------" ("Directory Search" ... ... "---" ... ... "---" ... ...) ("PCL CVS" ... ... ... ...) "-------") ("%_Options" ("%_Behaviors" :filter ...) ("%_Advanced (Customize)" ... ... ... ... ... ... ... ...) "---" ("%_Editing" ... ... ... ... ... "---" ... ... "---" ... ...) ("%_Keyboard and Mouse" ... ... ... ... ... "----" ... ... "----" ... ... "---" ... "---" ...) ("%_Printing" ... "---" ... ... ...) ("%_Internet" ... ... ... ... ...) ("%_Troubleshooting" ... ... ... ... ...) ("Encodin%_g" ... ... ... ... ...) ("Internationa%_l" ... ... ...) "-----" ("%_Display" ... ... "----" ... ... "---" ... ... ... "---" ... ... "-----" ... ... ... ... "----" ... "------" ... ... ...) ("%_Menubars" ... ... "----" ... ... ... ... ... "---" ...) ("S%_yntax Highlighting" ... ... "-----" ... "-----" ... ... "-----" ... ... ... ... "-----" ... ... ...) ("%_Font" :filter font-menu-family-constructor) ("Font Si%_ze" :filter font-menu-size-constructor) ["Edit Fa%_ces..." ...] "-----" ["Edit I%_nit File" ...] ["%_Save Options to Init 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 ...] "----") ("Apps" ("Games" ...)) ("IRC" ["Load variables file" liece-command-load-vars t] ["Save variables file" liece-command-save-vars t] "----" ["Change window style" liece-command-set-window-style t] ["Reload style file" liece-command-reload-window-style t] ["Reconfigure windows" liece-command-reconfigure-windows t] ["Toggle channel buffer display state" liece-command-toggle-channel-buffer-mode t] ["Toggle nick buffer display state" liece-command-toggle-nick-buffer-mode t] "----" ["Enter debug mode" liece-command-debug t] ["Quit IRC" liece-command-quit t]) ("Channel" ["Join channel" liece-command-join ...] ["Part channel" liece-command-part ...] ["Go to next channel" liece-command-next-channel ...] ["Go to previous channel" liece-command-previous-channel ...] ["Go to unread channel" liece-command-unread-channel ...] ["Rotate left channels" liece-command-pop ...] ["Rotate right channels" liece-command-push ...] "----" ["Invite to this channel" liece-command-invite liece-current-channel] ["Kick out from this channel" liece-command-kick liece-current-channel] "----" ["Set mode of this channel" liece-command-modec liece-current-channel] ["Set topic of this channel" liece-command-topic liece-current-channel] "----" ["Toggle freeze of this channel" liece-command-freeze liece-current-channel] ["Toggle own freeze of this channel" liece-command-own-freeze liece-current-channel] ["Toggle beep notice of this channel" liece-dialogue-beep liece-current-channel] "----" ["List channel" liece-command-list ...] ["Display names of channel" liece-command-names ...] ["Display who are on the channel" liece-command-names ...] "----" ["Set default key of this channel" liece-command-set-default-key ...] "----" ("CTCP" ... ... ... ... ... ... "----" ... ...)) ("Private" ["Toggle private conversation" liece-command-toggle-private ...] ["IsON" liece-command-ison ...] ["Register friends" liece-command-activate-friends t] ["Unregister friends" liece-command-deactivate-friends t] ["Display userhost" liece-command-userhost ...] ["Ignore nicks / regexp" liece-command-kill t] ["Compose mail" liece-command-mail-compose t]) ("DCC" ["Send file" liece-command-dcc-send t] ["Receive file" liece-command-dcc-receive t] "----" ["Send chat request" liece-command-dcc-chat-listen t] ["Accept chat request" liece-command-dcc-chat-connect t] "----" ["List DCC request" liece-command-dcc-list t] ["Dispatch stacked DCC requests" liece-command-dcc-accept t]) ("URL" "----" ["http://irc.fu-berlin.de/" ... t]) nil ("%_Help" ["%_About XEmacs..." about-xemacs] ["%_Home Page (www.xemacs.org)" xemacs-www-page :active ...] ["What's %_New in XEmacs" view-emacs-news] "-----" ("%_Info (Online Docs)" ... "-----" ... ... ... ... ... ... "-----" ... ... ... "-----" ... ... ...) ("XEmacs %_FAQ" ... ...) ("%_Tutorials" :filter tutorials-menu-filter) ("%_Samples" ... ... ... ...) ("%_Commands, Variables, Keys" ... ... ... ... "-----" ... ... ... "-----" ... ... ...) ("Internationa%_l" ... ... ... ... ... ...) ("%_Other" ... ... ... ... ... ...) "-----" ["Recent %_Messages" ...] ["Recent %_Keystrokes" view-lossage] ["Recent %_Warnings" view-warnings] ["Send %_Bug Report..." report-xemacs-bug :active ...] ("WWW" ... ... ... "---" ...) ("---") ("Dired" ... ... ... ... ... ...))) (nil)) add-menu-item-1(t (nil "tools") ("PCL CVS" ["Update Directory" cvs-update t] ["Examine Directory" cvs-examine t] ["Status Directory" cvs-status t] ["Checkout Module" cvs-checkout t]) "vc" nil) add-menu-button((nil "tools") ("PCL CVS" ["Update Directory" cvs-update t] ["Examine Directory" cvs-examine t] ["Status Directory" cvs-status t] ["Checkout Module" cvs-checkout t]) "vc") (save-excursion (set-buffer liece-command-buffer) (add-menu-button (cons ... path) item before)) (let (ad-return-value) (save-excursion (set-buffer liece-command-buffer) (add-menu-button ... item before)) ad-return-value) easy-menu-add-item(nil ("tools") ("PCL CVS" ["Update Directory" cvs-update t] ["Examine Directory" cvs-examine t] ["Status Directory" cvs-status t] ["Checkout Module" cvs-checkout t]) "vc") byte-code("..." [cvs-pcl-cvs-dirchange-re current-load-list "^pcl-cvs: descending directory \\(.*\\)$" nil (byte-code "BYTECODE_OF_UNKNOWN_ENCODING_REMOVED_BY_ADRIAN" [require easymenu] 2) ((error)) fboundp easy-menu-add-item ("tools") ("PCL CVS" ["Update Directory" cvs-update t] ["Examine Directory" cvs-examine t] ["Status Directory" cvs-status t] ["Checkout Module" cvs-checkout t]) "vc"] 5) load-internal("c:\\Program Files\\XEmacs\\xemacs-packages\\lisp\\pcl-cvs\\pcl-cvs-defs.elc" nil t t binary) efs-real-load("c:\\Program Files\\XEmacs\\xemacs-packages\\lisp\\pcl-cvs\\pcl-cvs-defs.elc" nil t t) load("c:\\Program Files\\XEmacs\\xemacs-packages\\lisp\\pcl-cvs\\pcl-cvs-defs.elc" nil t nil) efs-real-require(pcl-cvs-defs "c:\\Program Files\\XEmacs\\xemacs-packages\\lisp\\pcl-cvs\\pcl-cvs-defs.elc") si:require(pcl-cvs-defs nil) require(pcl-cvs-defs) byte-code("..." [require cookie pcl-cvs-defs pcl-cvs-util pcl-cvs-parse pcl-cvs-info diff-mode] 2) load-internal("c:\\Program Files\\XEmacs\\xemacs-packages\\lisp\\pcl-cvs\\pcl-cvs.elc" nil t t binary) efs-real-load("c:\\Program Files\\XEmacs\\xemacs-packages\\lisp\\pcl-cvs\\pcl-cvs.elc" nil t t) load("c:\\Program Files\\XEmacs\\xemacs-packages\\lisp\\pcl-cvs\\pcl-cvs.elc" nil t t) apply(load ("c:\\Program Files\\XEmacs\\xemacs-packages\\lisp\\pcl-cvs\\pcl-cvs.elc" nil t t)) dired-handler-fn(load "c:\\Program Files\\XEmacs\\xemacs-packages\\lisp\\pcl-cvs\\pcl-cvs.elc" nil t t) efs-real-load("c:\\Program Files\\XEmacs\\xemacs-packages\\lisp\\pcl-cvs\\pcl-cvs.elc" nil t t) load("pcl-cvs" nil nil nil) command-execute(cvs-update t) execute-extended-command(nil) call-interactively(execute-extended-command) liece is getting a bit scary to me, but hey it's still young. Adrian APA> This is happening under (emacs-version) APA> "XEmacs 21.5 (beta6) \"bok choi\" [Lucid] (i586-pc-win32, Mule) of Sat APA> May 18 2002 on D5DC120J" APA> I get this Backtrace: APA> Signaling: (invalid-operation "Selecting deleted or non-existent buffer") APA> set-buffer("*Commands*") APA> (save-excursion (set-buffer liece-command-buffer) (add-menu-button (cons ... path) item before)) APA> (let (ad-return-value) (save-excursion (set-buffer liece-command-buffer) (add-menu-button ... item before)) ad-return-value) APA> easy-menu-add-item(nil ("tools") ("PCL CVS" ["Update Directory" cvs-update t] ["Examine Directory" cvs-examine t] ["Status Directory" cvs-status t] ["Checkout Module" cvs-checkout t]) "vc") APA> byte-code("..." [cvs-pcl-cvs-dirchange-re current-load-list "^pcl-cvs: descending directory \\(.*\\)$" nil (byte-code "BYTECODE_OF_UNKNOWN_ENCODING_REMOVED_BY_ADRIAN" [require easymenu] 2) ((error)) fboundp easy-menu-add-item ("tools") ("PCL CVS" ["Update Directory" cvs-update t] ["Examine Directory" cvs-examine t] ["Status Directory" cvs-status t] ["Checkout Module" cvs-checkout t]) "vc"] 5) APA> load-internal("c:\\Program Files\\XEmacs\\xemacs-packages\\lisp\\pcl-cvs\\pcl-cvs-defs.elc" nil t t binary) APA> efs-real-load("c:\\Program Files\\XEmacs\\xemacs-packages\\lisp\\pcl-cvs\\pcl-cvs-defs.elc" nil t t) APA> load("c:\\Program Files\\XEmacs\\xemacs-packages\\lisp\\pcl-cvs\\pcl-cvs-defs.elc" nil t nil) APA> efs-real-require(pcl-cvs-defs "c:\\Program Files\\XEmacs\\xemacs-packages\\lisp\\pcl-cvs\\pcl-cvs-defs.elc") APA> si:require(pcl-cvs-defs nil) APA> require(pcl-cvs-defs) APA> byte-code("..." [require cookie pcl-cvs-defs pcl-cvs-util pcl-cvs-parse pcl-cvs-info diff-mode] 2) APA> load-internal("c:\\Program Files\\XEmacs\\xemacs-packages\\lisp\\pcl-cvs\\pcl-cvs.elc" nil t t binary) APA> efs-real-load("c:\\Program Files\\XEmacs\\xemacs-packages\\lisp\\pcl-cvs\\pcl-cvs.elc" nil t t) APA> load("c:\\Program Files\\XEmacs\\xemacs-packages\\lisp\\pcl-cvs\\pcl-cvs.elc" nil t t) APA> apply(load ("c:\\Program Files\\XEmacs\\xemacs-packages\\lisp\\pcl-cvs\\pcl-cvs.elc" nil t t)) APA> dired-handler-fn(load "c:\\Program Files\\XEmacs\\xemacs-packages\\lisp\\pcl-cvs\\pcl-cvs.elc" nil t t) APA> efs-real-load("c:\\Program Files\\XEmacs\\xemacs-packages\\lisp\\pcl-cvs\\pcl-cvs.elc" nil t t) APA> load("pcl-cvs" nil nil nil) APA> command-execute(cvs-update t) APA> execute-extended-command(nil) APA> call-interactively(execute-extended-command) APA> I might not have left liece cleanly. APA> C-c q didn't work, so I just killed all liece buffers in sight. APA> Some advising seems to go on, which might cause my problem. APA> Also liece forgets the server setting. APA> When I try to start it again, I get prompted for a server, even though APA> I have this in my custom-file: APA> '(liece-server (or APA> (getenv "IRCSERVER") APA> "irc.netsurf.de") APA> ) APA> -- APA> Adrian Aichner APA> mailto:adrian＠xemacs.org APA> http://www.xemacs.org/ -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/