Mercurial > emacs
changeset 851:9620f7edf04d
entered into RCS
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Wed, 22 Jul 1992 20:59:53 +0000 |
| parents | 0bc61321ba50 |
| children | 06165faefe70 |
| files | lisp/=gnusmail.el lisp/=gnusmisc.el lisp/=gnuspost.el lisp/=mh-e.el lisp/=netunam.el lisp/emacs-lisp/edebug.el lisp/progmodes/scheme.el lisp/xscheme.el src/lread.c |
| diffstat | 9 files changed, 10 insertions(+), 23 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/=gnusmail.el Wed Jul 22 19:24:48 1992 +0000 +++ b/lisp/=gnusmail.el Wed Jul 22 20:59:53 1992 +0000 @@ -5,8 +5,6 @@ ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> ;; Keywords: news -;; $Header: gnusmail.el,v 1.1 90/03/23 13:24:39 umerin Locked $ - ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify
--- a/lisp/=gnusmisc.el Wed Jul 22 19:24:48 1992 +0000 +++ b/lisp/=gnusmisc.el Wed Jul 22 20:59:53 1992 +0000 @@ -5,8 +5,6 @@ ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> ;; Keywords: news -;; $Header: gnusmisc.el,v 1.2 90/03/23 13:25:04 umerin Locked $ - ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify
--- a/lisp/=gnuspost.el Wed Jul 22 19:24:48 1992 +0000 +++ b/lisp/=gnuspost.el Wed Jul 22 20:59:53 1992 +0000 @@ -5,8 +5,6 @@ ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> ;; Keywords: news -;; $Header: gnuspost.el,v 1.2 90/03/23 13:25:16 umerin Locked $ - ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify
--- a/lisp/=mh-e.el Wed Jul 22 19:24:48 1992 +0000 +++ b/lisp/=mh-e.el Wed Jul 22 20:59:53 1992 +0000 @@ -7,7 +7,6 @@ ;; Keywords: mail (defvar mh-e-RCS-id) -(setq mh-e-RCS-id "$Header: /var/home/larus/lib/emacs/RCS/mh-e.el,v 3.1 90/09/28 15:47:58 larus Exp Locker: larus $") ;; GNU Emacs is distributed in the hope that it will be useful, ;; but without any warranty. No author or distributor
--- a/lisp/=netunam.el Wed Jul 22 19:24:48 1992 +0000 +++ b/lisp/=netunam.el Wed Jul 22 20:59:53 1992 +0000 @@ -4,8 +4,6 @@ ;; Author: Chris Hanson <cph@zurich.ai.mit.edu> -;;; $Header: netunam.el,v 1.3 88/12/21 16:32:23 GMT cph Exp $ - ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify
--- a/lisp/emacs-lisp/edebug.el Wed Jul 22 19:24:48 1992 +0000 +++ b/lisp/emacs-lisp/edebug.el Wed Jul 22 20:59:53 1992 +0000 @@ -53,8 +53,6 @@ ;;; Change list ;;; ----------- -;;; $Header: /import/kaplan/kaplan/liberte/Edebug/RCS/edebug.el,v 2.5 91/07/25 13:32:53 liberte Exp Locker: liberte $ -;;; $Log: edebug.el,v $ ;;; Revision 2.5 91/07/25 13:32:53 liberte ;;; Doc string cleanup. ;;; If edebug-form-hook is t, evaluate all arguments.
--- a/lisp/progmodes/scheme.el Wed Jul 22 19:24:48 1992 +0000 +++ b/lisp/progmodes/scheme.el Wed Jul 22 20:59:53 1992 +0000 @@ -5,8 +5,6 @@ ;; Author: Bill Rozas <jinz@prep.ai.mit.edu> ;; Keywords: languages, lisp -;;; $Header: scheme.el,v 1.7 88/07/15 20:20:00 GMT cph Exp $ - ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify
--- a/lisp/xscheme.el Wed Jul 22 19:24:48 1992 +0000 +++ b/lisp/xscheme.el Wed Jul 22 20:59:53 1992 +0000 @@ -5,8 +5,6 @@ ;; Maintainer: FSF ;; Keywords: languages -;;; $Header: xscheme.el,v 1.26 90/09/11 01:51:20 GMT cph Exp $ - ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify
--- a/src/lread.c Wed Jul 22 19:24:48 1992 +0000 +++ b/src/lread.c Wed Jul 22 20:59:53 1992 +0000 @@ -160,7 +160,11 @@ DEFUN ("read-char", Fread_char, Sread_char, 0, 0, 0, "Read a character from the command input (keyboard or macro).\n\ -It is returned as a number.") +It is returned as a number.\n\ +If the user generates an event which is not a character (i.e. a mouse\n\ +click or function key event), `read-char' signals an error. If you\n\ +want to read non-character events, or ignore them, call `read-event'\n\ +or `read-char-exclusive' instead.") () { register Lisp_Object val; @@ -179,7 +183,6 @@ return val; } -#ifdef HAVE_X_WINDOWS DEFUN ("read-event", Fread_event, Sread_event, 0, 0, 0, "Read an event object from the input stream.") () @@ -189,7 +192,6 @@ val = read_char (0); return val; } -#endif DEFUN ("read-char-exclusive", Fread_char_exclusive, Sread_char_exclusive, 0, 0, 0, "Read a character from the command input (keyboard or macro).\n\ @@ -199,9 +201,11 @@ register Lisp_Object val; #ifndef standalone - val = read_char (0); - while (XTYPE (val) != Lisp_Int) - val = read_char (0); + do + { + val = read_char (0); + } + while (XTYPE (val) != Lisp_Int); #else val = getchar (); #endif @@ -1565,9 +1569,7 @@ defsubr (&Seval_region); defsubr (&Sread_char); defsubr (&Sread_char_exclusive); -#ifdef HAVE_X_WINDOWS defsubr (&Sread_event); -#endif /* HAVE_X_WINDOWS */ defsubr (&Sget_file_char); defsubr (&Smapatoms);