Mercurial > hg > xemacs-beta
comparison lisp/cmdloop.el @ 1346:01c57eb70ae9
[xemacs-hg @ 2003-03-09 02:27:27 by ben]
To: xemacs-patches@xemacs.org
i.c: Sleep between calls to check for I/O, since these calls are non-blocking.
behavior.el: Allow other keywords for forward compatibility.
cl-macs.el: Rewrite to eliminate byte-compiler warning when `return' is used
without `finally'.
cmdloop.el: Avoid truncated error messages for `end-of-file' and the like.
cmdloop.el: Avoid char-int error after syncing.
files.el: Eliminate byte-compile warnings.
printer.el: Fix line-width calculations.
#### This used to work. Someone's changes (perhaps by
Michael Sperber?) seem to have messed something up.
simple.el: Use new clear-left-side functions to avoid messages ending up on
the same line as other output.
xemacs.mak: Add override for info/ as well when separate source/build dirs.
xemacs.mak: Order sections in main build process and add comments. Add
additional dependencies to try and prevent later steps from
happening when failures in earlier steps have occurred.
Makefile.in.in: Order sections in main build process and add comments. Add
additional dependencies to try and prevent later steps from
happening when failures in earlier steps have occurred.
alloc.c: Don't arbitrarily clear Vconfigure_info_directory since it
messes up separate build/source dirs.
console.c, console.h, device-msw.c, device.c: Add accidentally omitted msprinter console and data descriptions.
print.c, console-msw.c: Add clear-left-side functionality to help keep stdio/stderr
output from separate sources on separate lines. Generalize
the different kinds of debugging output. Add dpa().
profile.c: Add better docs on Unix/Windows differences.
regex.c: Fix problems with rel-alloc compilation caused by previous patch.
emacs.c: Seg fault rather than abort on Cygwin, since gdb doesn't trap
aborts properly.
console-gtk-impl.h, console-gtk.h, console-msw.h, console-x-impl.h, console-x.h, dialog-gtk.c, dialog-x.c, event-msw.c, frame-gtk.c, frame-x.c, frameslots.h, glyphs-gtk.c, glyphs-x.c, gui-gtk.c, gui-x.c, inline.c, menubar-gtk.c, menubar-msw.c, menubar-x.c, scrollbar-gtk.c, scrollbar-x.c, ui-gtk.c: Delete popup-data object. Delete menubar_data field from frames,
since its usage is frame-specific. Delete menubar-msw.h,
gui-x.h, gui-gtk.h. Clean up handling of lwlib callback data
GCPRO'ing and add missing GCPRO recomputation in widget code.
author | ben |
---|---|
date | Sun, 09 Mar 2003 02:27:46 +0000 |
parents | 1b0339b048ce |
children | 0117860e01eb |
comparison
equal
deleted
inserted
replaced
1345:3b27da507d56 | 1346:01c57eb70ae9 |
---|---|
244 ; (prin1 error-object stream))) | 244 ; (prin1 error-object stream))) |
245 ; error-object stream)) | 245 ; error-object stream)) |
246 | 246 |
247 (put 'file-error 'display-error | 247 (put 'file-error 'display-error |
248 #'(lambda (error-object stream) | 248 #'(lambda (error-object stream) |
249 (let ((tail (cdr error-object)) | 249 (let ((type (car error-object)) |
250 (first t)) | 250 (tail (cdr error-object)) |
251 (princ (car tail) stream) | 251 (first t) |
252 (while (setq tail (cdr tail)) | 252 (print-message-label 'error)) |
253 (princ (if first ": " ", ") stream) | 253 (if (eq type 'file-error) |
254 (princ (car tail) stream) | 254 (progn (princ (car tail) stream) |
255 (setq first nil))))) | 255 (setq tail (cdr tail))) |
256 (princ (or (gettext (get type 'error-message)) type) | |
257 stream)) | |
258 (while tail | |
259 (princ (if first ": " ", ") stream) | |
260 (prin1 (car tail) stream) | |
261 (setq tail (cdr tail) | |
262 first nil))))) | |
256 | 263 |
257 (put 'undefined-keystroke-sequence 'display-error | 264 (put 'undefined-keystroke-sequence 'display-error |
258 #'(lambda (error-object stream) | 265 #'(lambda (error-object stream) |
259 (princ (key-description (car (cdr error-object))) stream) | 266 (princ (key-description (car (cdr error-object))) stream) |
260 ;; #### I18N3: doesn't localize properly. | 267 ;; #### I18N3: doesn't localize properly. |
592 ((and (not first) (eq char ?\C-m)) | 599 ((and (not first) (eq char ?\C-m)) |
593 (setq done t)) | 600 (setq done t)) |
594 ((not first) | 601 ((not first) |
595 (setq unread-command-events (list char) | 602 (setq unread-command-events (list char) |
596 done t)) | 603 done t)) |
597 (t (setq code char | 604 (t (setq code (char-to-int char) |
598 done t))) | 605 done t))) |
599 (setq first nil)) | 606 (setq first nil)) |
600 (int-to-char code))) | 607 (int-to-char code))) |
601 | 608 |
602 ;; in passwd.el. | 609 ;; in passwd.el. |