>>>> "APA" == Adrian Aichner
<Adrian.Aichner(a)T-Online.De> writes:
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/