> "Stephen" == Stephen J Turnbull
<stephen(a)xemacs.org> writes:
Uwe Brauer writes:
> I just run xemacs -vanilla and then gnuclient -nw and it worked as
> expected, although I am not sure how to finish the process because the
> function I am used to, when using gnuclient without "-nw",
>
> "C-x #" does not work in that case, so what should I do?
C-x 5 0 (or M-x delete-frame RET).
I am going back to the problem of gnuclient -nw
Which is much more important to me.
First I have to tell that say that I use xemacs 21.5.33 with your
specifier patch (in order to use x-symbol)
What works:
- I start xemacs -vanilla And run gnuserv-start
gnuclient -nw works.
- I start xemacs -q and run gnuserv-start
gnuclient -nw works.
- I comment most of my stuff out in my .emacs file, but set
(setq debug-on-error t)
(setq debug-on-signal t)
I do gnuserv-start
gnuclient -nw sort of works, it gives a bug trace which I attach.
Before trying to continue, I think this error should be analysed.
Uwe Brauer
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
string-match("^kterm" nil)
make-frame-after-init-entry-point(#<tty-console on "/dev/pts/2" 0x9>)
make-frame(nil #<tty-device on "/dev/pts/2" 0x3>)
gnuserv-edit-files((tty "/dev/pts/2" "xterm" 3100) nil)
eval((gnuserv-edit-files (quote (tty "/dev/pts/2" "xterm" 3100))
(quote nil)))
byte-code("..." [header gnuserv-string eval read-from-string] 4)
gnuserv-process-filter(#<process "gnuserv" pid 3099 state:run> "5
(gnuserv-edit-files '(tty \"/dev/pts/2\" \"xterm\" 3100)
'())")
recursive-edit()
byte-code("..." [buffer-read-only noninteractive debugger-buffer middlestart
debugger-args debugger-batch-max-lines pop-to-buffer debugger-mode debugger-setup-buffer
count-lines 2 "...\n" message buffer-string kill-emacs debug backtrace-debug 3 t
debugger-reenable "" nil recursive-edit standard-output] 3)
debug(error (wrong-type-argument characterp nil))
char-equal(?u nil)
#<compiled-function (from
"/usr/local/share/xemacs/xemacs-packages/lisp/dired/dired-xemacs.elc") (e p)
"...(11)" [p domain e char-equal extent-property] 5 0xd30>(#<extent
(14601, 14606) H help-echo keymap dired-file-name in buffer oub 0x1a42>
dired-permissions)
map-extents(#<compiled-function (from
"/usr/local/share/xemacs/xemacs-packages/lisp/dired/dired-xemacs.elc") (e p)
"...(11)" [p domain e char-equal extent-property] 5 0xd30> #<buffer
"oub"> 14548 14647 dired-permissions)
dired-move-to-permissions(?u 1)
#<compiled-function (from
"/usr/local/share/xemacs/xemacs-packages/lisp/dired/dired-xemacs.elc") nil
"...(11)" [dired-do-interactive-permissions 0 dired-move-to-permissions ?u 1] 3
nil nil 0xd20>()
call-interactively(#<compiled-function (from
"/usr/local/share/xemacs/xemacs-packages/lisp/dired/dired-xemacs.elc") nil
"...(11)" [dired-do-interactive-permissions 0 dired-move-to-permissions ?u 1] 3
nil nil 0xd20>)
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
string-match("^kterm" nil)
make-frame-after-init-entry-point(#<tty-console on "/dev/pts/2" 0x9>)
make-frame(nil #<tty-device on "/dev/pts/2" 0x3>)
gnuserv-edit-files((tty "/dev/pts/2" "xterm" 2790) nil)
eval((gnuserv-edit-files (quote (tty "/dev/pts/2" "xterm" 2790))
(quote nil)))
byte-code("..." [header gnuserv-string eval read-from-string] 4)
gnuserv-process-filter(#<process "gnuserv" pid 2789 state:run> "5
(gnuserv-edit-files '(tty \"/dev/pts/2\" \"xterm\" 2790)
'())")
(defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version))
(cond (running-xemacs
;(setq debug-on-error t)
;(setq debug-on-signal t)
(setq custom-file "/home/oub/xemacs/init/custom-init.el")
(load-file "~/xemacs/init/xemacs_init.el")
(define-specifier-tag 'mule-fonts)
(x-symbol-initialize)
))
;;; Older versions of emacs did not have these variables
;;; (emacs-major-version and emacs-minor-version.)
;;; Let's define them if they're not around, since they make
;;; it much easier to conditionalize on the emacs version.
(if (and (not (boundp 'emacs-major-version))
(string-match "^[0-9]+" emacs-version))
(setq emacs-major-version
(string-to-int (substring emacs-version
(match-beginning 0) (match-end 0)))))
(if (and (not (boundp 'emacs-minor-version))
(string-match "^[0-9]+\\.\\([0-9]+\\)" emacs-version))
(setq emacs-minor-version
(string-to-int (substring emacs-version
(match-beginning 1) (match-end 1)))))
;;; Define a function to make it easier to check which version we're
;;; running.
(defun running-emacs-version-or-newer (major minor)
(or (> emacs-major-version major)
(and (= emacs-major-version major)
(>= emacs-minor-version minor))))
(cond ((and running-xemacs
(running-emacs-version-or-newer 19 6))
;;
;; Code requiring XEmacs/Lucid Emacs version 19.6 or newer goes here
;;
))
(cond ((>= emacs-major-version 19)
;;
;; Code for any vintage-19 emacs goes here
;;
))
(cond ((and (not running-xemacs)
(> emacs-major-version 19))
;(load-file "/home/oub/emacs-19/init/emacs_init.el")
(setq custom-file "/home/oub/emacs/custom-init.el")
(load-file "/home/oub/emacs/custom-init.el")
(load-file "~/emacs/emacs_init.el")
;;
;; Code specific to FSF Emacs 19 (not XEmacs/Lucid Emacs) goes here
;;
))
(cond ((<= emacs-major-version 19)
(load-file "~/emacs/emacs_init.el")
;;
;; Code specific to emacs 18 goes here
;;
))
(setq load-home-init-file t) ; don't load init file from ~/.xemacs/init.el
(put 'downcase-region 'disabled nil)
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-beta