Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
e51e47f7
Commit
e51e47f7
authored
Jul 22, 1992
by
Jim Blandy
Browse files
entered into RCS
parent
1d1826db
Changes
9
Hide whitespace changes
Inline
Side-by-side
Showing
9 changed files
with
10 additions
and
23 deletions
+10
-23
lisp/emacs-lisp/edebug.el
lisp/emacs-lisp/edebug.el
+0
-2
lisp/gnusmail.el
lisp/gnusmail.el
+0
-2
lisp/gnusmisc.el
lisp/gnusmisc.el
+0
-2
lisp/gnuspost.el
lisp/gnuspost.el
+0
-2
lisp/mh-e.el
lisp/mh-e.el
+0
-1
lisp/netunam.el
lisp/netunam.el
+0
-2
lisp/progmodes/scheme.el
lisp/progmodes/scheme.el
+0
-2
lisp/xscheme.el
lisp/xscheme.el
+0
-2
src/lread.c
src/lread.c
+10
-8
No files found.
lisp/emacs-lisp/edebug.el
View file @
e51e47f7
...
...
@@ -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.
...
...
lisp/gnusmail.el
View file @
e51e47f7
...
...
@@ -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
...
...
lisp/gnusmisc.el
View file @
e51e47f7
...
...
@@ -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
...
...
lisp/gnuspost.el
View file @
e51e47f7
...
...
@@ -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
...
...
lisp/mh-e.el
View file @
e51e47f7
...
...
@@ -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
...
...
lisp/netunam.el
View file @
e51e47f7
...
...
@@ -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
...
...
lisp/progmodes/scheme.el
View file @
e51e47f7
...
...
@@ -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
...
...
lisp/xscheme.el
View file @
e51e47f7
...
...
@@ -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
...
...
src/lread.c
View file @
e51e47f7
...
...
@@ -160,7 +160,11 @@ static Lisp_Object read0 (), read1 (), read_list (), read_vector ();
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 @@ It is returned as a number.")
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 @@ DEFUN ("read-event", Fread_event, Sread_event, 0, 0, 0,
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 @@ It is returned as a number. Non character events are ignored.")
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 @@ syms_of_lread ()
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
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment