Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
dbc4e1c1
Commit
dbc4e1c1
authored
Jan 26, 1993
by
Jim Blandy
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
JimB's changes since January 18th
parent
72766144
Changes
49
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
49 changed files
with
1120 additions
and
876 deletions
+1120
-876
Makefile.in
Makefile.in
+12
-14
lisp/comint.el
lisp/comint.el
+1
-1
lisp/ebuff-menu.el
lisp/ebuff-menu.el
+3
-3
lisp/ehelp.el
lisp/ehelp.el
+2
-2
lisp/electric.el
lisp/electric.el
+2
-2
lisp/emacs-lisp/disass.el
lisp/emacs-lisp/disass.el
+5
-4
lisp/emacs-lisp/edebug.el
lisp/emacs-lisp/edebug.el
+1
-1
lisp/emerge.el
lisp/emerge.el
+1
-1
lisp/emulation/vip.el
lisp/emulation/vip.el
+4
-4
lisp/frame.el
lisp/frame.el
+1
-1
lisp/gnus.el
lisp/gnus.el
+1
-1
lisp/help.el
lisp/help.el
+1
-1
lisp/info.el
lisp/info.el
+1
-1
lisp/isearch.el
lisp/isearch.el
+12
-4
lisp/map-ynp.el
lisp/map-ynp.el
+2
-2
lisp/mouse.el
lisp/mouse.el
+372
-352
lisp/progmodes/c-mode.el
lisp/progmodes/c-mode.el
+6
-4
lisp/progmodes/fortran.el
lisp/progmodes/fortran.el
+3
-3
lisp/progmodes/simula.el
lisp/progmodes/simula.el
+1
-1
lisp/scroll-bar.el
lisp/scroll-bar.el
+5
-3
lisp/simple.el
lisp/simple.el
+5
-8
lisp/subr.el
lisp/subr.el
+3
-3
lisp/term/sun-mouse.el
lisp/term/sun-mouse.el
+4
-2
lisp/terminal.el
lisp/terminal.el
+1
-1
src/Makefile.in
src/Makefile.in
+8
-5
src/buffer.c
src/buffer.c
+9
-6
src/buffer.h
src/buffer.h
+2
-1
src/callint.c
src/callint.c
+29
-14
src/commands.h
src/commands.h
+3
-3
src/data.c
src/data.c
+7
-13
src/dispnew.c
src/dispnew.c
+16
-1
src/emacs.c
src/emacs.c
+1
-3
src/fns.c
src/fns.c
+7
-2
src/frame.c
src/frame.c
+66
-18
src/frame.h
src/frame.h
+2
-2
src/insdel.c
src/insdel.c
+4
-4
src/keyboard.c
src/keyboard.c
+65
-73
src/keyboard.h
src/keyboard.h
+1
-2
src/keymap.c
src/keymap.c
+8
-2
src/lread.c
src/lread.c
+10
-2
src/minibuf.c
src/minibuf.c
+2
-2
src/term.c
src/term.c
+12
-0
src/termhooks.h
src/termhooks.h
+11
-0
src/window.c
src/window.c
+36
-12
src/xfns.c
src/xfns.c
+41
-45
src/xmenu.c
src/xmenu.c
+1
-1
src/xselect.c.old
src/xselect.c.old
+58
-70
src/xterm.c
src/xterm.c
+259
-170
src/xterm.h
src/xterm.h
+13
-6
No files found.
Makefile.in
View file @
dbc4e1c1
...
@@ -231,7 +231,6 @@ lib-src/Makefile: ${srcdir}/lib-src/Makefile.in Makefile
...
@@ -231,7 +231,6 @@ lib-src/Makefile: ${srcdir}/lib-src/Makefile.in Makefile
-e
's|^LOADLIBES *=.*$$|LOADLIBES='
"
${libsrc_libs}
"
'|'
\
-e
's|^LOADLIBES *=.*$$|LOADLIBES='
"
${libsrc_libs}
"
'|'
\
-e
'/^# DIST: /d'
)
>
lib-src/Makefile.tmp
-e
'/^# DIST: /d'
)
>
lib-src/Makefile.tmp
${srcdir}
/move-if-change lib-src/Makefile.tmp lib-src/Makefile
${srcdir}
/move-if-change lib-src/Makefile.tmp lib-src/Makefile
# Remind people not to edit this.
chmod
-w
lib-src/Makefile
chmod
-w
lib-src/Makefile
src/Makefile
:
${srcdir}/src/Makefile.in Makefile
src/Makefile
:
${srcdir}/src/Makefile.in Makefile
...
@@ -248,7 +247,6 @@ src/Makefile: ${srcdir}/src/Makefile.in Makefile
...
@@ -248,7 +247,6 @@ src/Makefile: ${srcdir}/src/Makefile.in Makefile
-e
's|^CONFIG_CFLAGS *=.*$$|CONFIG_CFLAGS='
"
${CONFIG_CFLAGS}
"
'|'
\
-e
's|^CONFIG_CFLAGS *=.*$$|CONFIG_CFLAGS='
"
${CONFIG_CFLAGS}
"
'|'
\
-e
'/^# DIST: /d'
)
>
src/Makefile.tmp
-e
'/^# DIST: /d'
)
>
src/Makefile.tmp
${srcdir}
/move-if-change src/Makefile.tmp src/Makefile
${srcdir}
/move-if-change src/Makefile.tmp src/Makefile
# Remind people not to edit this.
chmod
-w
src/Makefile
chmod
-w
src/Makefile
oldXMenu/Makefile
:
${srcdir}/oldXMenu/Makefile Makefile
oldXMenu/Makefile
:
${srcdir}/oldXMenu/Makefile Makefile
...
@@ -262,10 +260,10 @@ Makefile:
...
@@ -262,10 +260,10 @@ Makefile:
# ==================== Installation ====================
# ==================== Installation ====================
## If we let lib-src do its own installation, that means we
## don't have to duplicate the list of utilities to install in
## this Makefile as well.
install
:
all mkdir
install
:
all mkdir
## If we let lib-src do its own installation, that means we
## don't have to duplicate the list of utilities to install in
## this Makefile as well.
(
cd
lib-src
;
$(MAKE)
install
${MFLAGS}
bindir
=
${bindir}
libdir
=
${libdir}
)
(
cd
lib-src
;
$(MAKE)
install
${MFLAGS}
bindir
=
${bindir}
libdir
=
${libdir}
)
-
set
${COPYDESTS}
;
\
-
set
${COPYDESTS}
;
\
for
dir
in
${COPYDIR}
;
do
\
for
dir
in
${COPYDIR}
;
do
\
...
@@ -297,10 +295,10 @@ install: all mkdir
...
@@ -297,10 +295,10 @@ install: all mkdir
-
rm
-f
${bindir}
/emacs
-
rm
-f
${bindir}
/emacs
ln
${bindir}
/emacs-
${version}
${bindir}
/emacs
ln
${bindir}
/emacs-
${version}
${bindir}
/emacs
## If we let lib-src do its own installation, that means we
## don't have to duplicate the list of utilities to install in
## this Makefile as well.
install.sysv
:
all mkdir
install.sysv
:
all mkdir
## If we let lib-src do its own installation, that means we
## don't have to duplicate the list of utilities to install in
## this Makefile as well.
(
cd
lib-src
;
$(MAKE)
install
${MFLAGS}
bindir
=
${bindir}
libdir
=
${libdir}
)
(
cd
lib-src
;
$(MAKE)
install
${MFLAGS}
bindir
=
${bindir}
libdir
=
${libdir}
)
-
set
${COPYDESTS}
;
\
-
set
${COPYDESTS}
;
\
for
dir
in
${COPYDIR}
;
do
\
for
dir
in
${COPYDIR}
;
do
\
...
@@ -330,10 +328,10 @@ install.sysv: all mkdir
...
@@ -330,10 +328,10 @@ install.sysv: all mkdir
-
cpset src/emacs
${bindir}
/emacs-
${version}
1755 bin bin
-
cpset src/emacs
${bindir}
/emacs-
${version}
1755 bin bin
-
ln
${bindir}
/emacs-
${version}
${bindir}
/emacs
-
ln
${bindir}
/emacs-
${version}
${bindir}
/emacs
## If we let lib-src do its own installation, that means we
## don't have to duplicate the list of utilities to install in
## this Makefile as well.
install.xenix
:
all mkdir
install.xenix
:
all mkdir
## If we let lib-src do its own installation, that means we
## don't have to duplicate the list of utilities to install in
## this Makefile as well.
(
cd
lib-src
;
$(MAKE)
install
${MFLAGS}
bindir
=
${bindir}
libdir
=
${libdir}
)
(
cd
lib-src
;
$(MAKE)
install
${MFLAGS}
bindir
=
${bindir}
libdir
=
${libdir}
)
-
set
${COPYDESTS}
;
\
-
set
${COPYDESTS}
;
\
for
dir
in
${COPYDIR}
;
do
\
for
dir
in
${COPYDIR}
;
do
\
...
@@ -368,10 +366,10 @@ install.xenix: all mkdir
...
@@ -368,10 +366,10 @@ install.xenix: all mkdir
chmod
1755
${bindir}
/emacs
chmod
1755
${bindir}
/emacs
-
rm
-f
${bindir}
/emacs.old
-
rm
-f
${bindir}
/emacs.old
## If we let lib-src do its own installation, that means we
## don't have to duplicate the list of utilities to install in
## this Makefile as well.
install.aix
:
all mkdir
install.aix
:
all mkdir
## If we let lib-src do its own installation, that means we
## don't have to duplicate the list of utilities to install in
## this Makefile as well.
(
cd
lib-src
;
$(MAKE)
install
${MFLAGS}
bindir
=
${bindir}
libdir
=
${libdir}
)
(
cd
lib-src
;
$(MAKE)
install
${MFLAGS}
bindir
=
${bindir}
libdir
=
${libdir}
)
-
set
${COPYDESTS}
;
\
-
set
${COPYDESTS}
;
\
for
dir
in
${COPYDIR}
;
do
\
for
dir
in
${COPYDIR}
;
do
\
...
...
lisp/comint.el
View file @
dbc4e1c1
...
@@ -1091,7 +1091,7 @@ it just adds completion characters to the end of the filename."
...
@@ -1091,7 +1091,7 @@ it just adds completion characters to the end of the filename."
(
let
((
ch
(
read-char
)))
(
let
((
ch
(
read-char
)))
(
if
(
=
ch
?\
)
(
if
(
=
ch
?\
)
(
set-window-configuration
conf
)
(
set-window-configuration
conf
)
(
setq
unread-command-event
ch
))))))))
(
setq
unread-command-event
s
(
list
ch
))))))))
)
;;; Converting process modes to use comint mode
;;; Converting process modes to use comint mode
;;; ===========================================================================
;;; ===========================================================================
...
...
lisp/ebuff-menu.el
View file @
dbc4e1c1
...
@@ -63,8 +63,8 @@ Calls value of `electric-buffer-menu-mode-hook' on entry if non-nil.
...
@@ -63,8 +63,8 @@ Calls value of `electric-buffer-menu-mode-hook' on entry if non-nil.
(
setq
select
(
setq
select
(
catch
'electric-buffer-menu-select
(
catch
'electric-buffer-menu-select
(
message
"<<< Press Space to bury the buffer list >>>"
)
(
message
"<<< Press Space to bury the buffer list >>>"
)
(
if
(
=
(
setq
unread-command-event
(
read-char
))
?\
)
(
if
(
=
(
setq
unread-command-event
s
(
list
(
read-char
))
)
?\
)
(
progn
(
setq
unread-command-event
nil
)
(
progn
(
setq
unread-command-event
s
nil
)
(
throw
'electric-buffer-menu-select
nil
)))
(
throw
'electric-buffer-menu-select
nil
)))
(
let
((
first
(
progn
(
goto-char
(
point-min
))
(
let
((
first
(
progn
(
goto-char
(
point-min
))
(
forward-line
2
)
(
forward-line
2
)
...
@@ -196,7 +196,7 @@ electric-buffer-menu-mode-hook if it is non-nil."
...
@@ -196,7 +196,7 @@ electric-buffer-menu-mode-hook if it is non-nil."
(
defun
Electric-buffer-menu-exit
()
(
defun
Electric-buffer-menu-exit
()
(
interactive
)
(
interactive
)
(
setq
unread-command-event
last-input-char
)
(
setq
unread-command-event
s
(
list
last-input-char
)
)
;; for robustness
;; for robustness
(
condition-case
()
(
condition-case
()
(
throw
'electric-buffer-menu-select
nil
)
(
throw
'electric-buffer-menu-select
nil
)
...
...
lisp/ehelp.el
View file @
dbc4e1c1
...
@@ -119,8 +119,8 @@ BUFFER is put into `default-major-mode' (or `fundamental-mode') when we exit"
...
@@ -119,8 +119,8 @@ BUFFER is put into `default-major-mode' (or `fundamental-mode') when we exit"
(
catch
'exit
(
catch
'exit
(
if
(
pos-visible-in-window-p
(
point-max
))
(
if
(
pos-visible-in-window-p
(
point-max
))
(
progn
(
message
"<<< Press Space to bury the help buffer >>>"
)
(
progn
(
message
"<<< Press Space to bury the help buffer >>>"
)
(
if
(
=
(
setq
unread-command-event
(
read-char
))
?\
)
(
if
(
=
(
setq
unread-command-event
s
(
list
(
read-char
))
)
?\
)
(
progn
(
setq
unread-command-event
nil
)
(
progn
(
setq
unread-command-event
s
nil
)
(
throw
'exit
t
)))))
(
throw
'exit
t
)))))
(
let
(
up
down
both
neither
(
let
(
up
down
both
neither
(
standard
(
and
(
eq
(
key-binding
" "
)
(
standard
(
and
(
eq
(
key-binding
" "
)
...
...
lisp/electric.el
View file @
dbc4e1c1
...
@@ -85,7 +85,7 @@
...
@@ -85,7 +85,7 @@
cmd
this-command
)
cmd
this-command
)
(
if
(
or
(
prog1
quit-flag
(
setq
quit-flag
nil
))
(
if
(
or
(
prog1
quit-flag
(
setq
quit-flag
nil
))
(
=
last-input-char
?\C-g
))
(
=
last-input-char
?\C-g
))
(
progn
(
setq
unread-command-event
nil
(
progn
(
setq
unread-command-event
s
nil
prefix-arg
nil
)
prefix-arg
nil
)
;; If it wasn't cancelling a prefix character, then quit.
;; If it wasn't cancelling a prefix character, then quit.
(
if
(
or
(
=
(
length
(
this-command-keys
))
1
)
(
if
(
or
(
=
(
length
(
this-command-keys
))
1
)
...
@@ -101,7 +101,7 @@
...
@@ -101,7 +101,7 @@
(
setq
last-command
this-command
)
(
setq
last-command
this-command
)
(
if
(
or
(
prog1
quit-flag
(
setq
quit-flag
nil
))
(
if
(
or
(
prog1
quit-flag
(
setq
quit-flag
nil
))
(
=
last-input-char
?\C-g
))
(
=
last-input-char
?\C-g
))
(
progn
(
setq
unread-command-event
nil
)
(
progn
(
setq
unread-command-event
s
nil
)
(
if
(
not
inhibit-quit
)
(
if
(
not
inhibit-quit
)
(
progn
(
ding
)
(
progn
(
ding
)
(
message
"Quit"
)
(
message
"Quit"
)
...
...
lisp/emacs-lisp/disass.el
View file @
dbc4e1c1
...
@@ -41,6 +41,7 @@
...
@@ -41,6 +41,7 @@
(
defvar
disassemble-recursive-indent
3
"*"
)
(
defvar
disassemble-recursive-indent
3
"*"
)
;;;###autoload
(
defun
disassemble
(
object
&optional
buffer
indent
interactive-p
)
(
defun
disassemble
(
object
&optional
buffer
indent
interactive-p
)
"Print disassembled code for OBJECT in (optional) BUFFER.
"Print disassembled code for OBJECT in (optional) BUFFER.
OBJECT can be a symbol defined as a function, or a function itself
OBJECT can be a symbol defined as a function, or a function itself
...
@@ -136,7 +137,7 @@ redefine OBJECT if it is a symbol."
...
@@ -136,7 +137,7 @@ redefine OBJECT if it is a symbol."
(
insert
"\n"
))))
(
insert
"\n"
))))
(
cond
((
and
(
consp
obj
)
(
assq
'byte-code
obj
))
(
cond
((
and
(
consp
obj
)
(
assq
'byte-code
obj
))
(
disassemble-1
(
assq
'byte-code
obj
)
indent
))
(
disassemble-1
(
assq
'byte-code
obj
)
indent
))
((
compiled
-function-p
obj
)
((
byte-code
-function-p
obj
)
(
disassemble-1
obj
indent
))
(
disassemble-1
obj
indent
))
(
t
(
t
(
insert
"Uncompiled body: "
)
(
insert
"Uncompiled body: "
)
...
@@ -195,14 +196,14 @@ OBJ should be a call to BYTE-CODE generated by the byte compiler."
...
@@ -195,14 +196,14 @@ OBJ should be a call to BYTE-CODE generated by the byte compiler."
(
setq
arg
(
car
arg
))
(
setq
arg
(
car
arg
))
;; but if the value of the constant is compiled code, then
;; but if the value of the constant is compiled code, then
;; recursively disassemble it.
;; recursively disassemble it.
(
cond
((
or
(
compiled
-function-p
arg
)
(
cond
((
or
(
byte-code
-function-p
arg
)
(
and
(
eq
(
car-safe
arg
)
'lambda
)
(
and
(
eq
(
car-safe
arg
)
'lambda
)
(
assq
'byte-code
arg
))
(
assq
'byte-code
arg
))
(
and
(
eq
(
car-safe
arg
)
'macro
)
(
and
(
eq
(
car-safe
arg
)
'macro
)
(
or
(
compiled
-function-p
(
cdr
arg
))
(
or
(
byte-code
-function-p
(
cdr
arg
))
(
and
(
eq
(
car-safe
(
cdr
arg
))
'lambda
)
(
and
(
eq
(
car-safe
(
cdr
arg
))
'lambda
)
(
assq
'byte-code
(
cdr
arg
))))))
(
assq
'byte-code
(
cdr
arg
))))))
(
cond
((
compiled
-function-p
arg
)
(
cond
((
byte-code
-function-p
arg
)
(
insert
"<compiled-function>\n"
))
(
insert
"<compiled-function>\n"
))
((
eq
(
car-safe
arg
)
'lambda
)
((
eq
(
car-safe
arg
)
'lambda
)
(
insert
"<compiled lambda>"
))
(
insert
"<compiled lambda>"
))
...
...
lisp/emacs-lisp/edebug.el
View file @
dbc4e1c1
...
@@ -1480,7 +1480,7 @@ Should be 0 at the top level.")
...
@@ -1480,7 +1480,7 @@ Should be 0 at the top level.")
(
last-command
last-command
)
(
last-command
last-command
)
(
this-command
this-command
)
(
this-command
this-command
)
(
last-input-char
last-input-char
)
(
last-input-char
last-input-char
)
;; Assume no edebug command sets unread-command-
char
.
;; Assume no edebug command sets unread-command-
events
.
;; (unread-command-char -1)
;; (unread-command-char -1)
(
debug-on-error
debug-on-error
)
(
debug-on-error
debug-on-error
)
...
...
lisp/emerge.el
View file @
dbc4e1c1
...
@@ -2910,7 +2910,7 @@ SPC, it is ignored; if it is anything else, it is processed as a command."
...
@@ -2910,7 +2910,7 @@ SPC, it is ignored; if it is anything else, it is processed as a command."
(
enlarge-window
1
))
(
enlarge-window
1
))
(
let
((
c
(
read-char
)))
(
let
((
c
(
read-char
)))
(
if
(
/=
c
32
)
(
if
(
/=
c
32
)
(
setq
unread-command-event
c
))))))))
(
setq
unread-command-event
s
(
list
c
))))))))
)
;; Improved auto-save file names.
;; Improved auto-save file names.
;; This function fixes many problems with the standard auto-save file names:
;; This function fixes many problems with the standard auto-save file names:
...
...
lisp/emulation/vip.el
View file @
dbc4e1c1
...
@@ -333,9 +333,9 @@ vi mode. ARG is used as the prefix value for the executed command. If
...
@@ -333,9 +333,9 @@ vi mode. ARG is used as the prefix value for the executed command. If
CHAR is given it becomes the first character of the command."
CHAR is given it becomes the first character of the command."
(
interactive
"P"
)
(
interactive
"P"
)
(
let
(
com
(
buff
(
current-buffer
))
(
first
t
))
(
let
(
com
(
buff
(
current-buffer
))
(
first
t
))
(
if
char
(
setq
unread-command-event
char
))
(
if
char
(
setq
unread-command-event
s
(
list
char
))
)
(
setq
prefix-arg
arg
)
(
setq
prefix-arg
arg
)
(
while
(
or
first
unread-command-event
)
(
while
(
or
first
unread-command-event
s
)
;; this while loop is executed until unread command char will be
;; this while loop is executed until unread command char will be
;; exhausted.
;; exhausted.
(
setq
first
nil
)
(
setq
first
nil
)
...
@@ -393,7 +393,7 @@ obtained so far, and COM is the command part obtained so far."
...
@@ -393,7 +393,7 @@ obtained so far, and COM is the command part obtained so far."
(
while
(
=
char
?U
)
(
while
(
=
char
?U
)
(
vip-describe-arg
prefix-arg
)
(
vip-describe-arg
prefix-arg
)
(
setq
char
(
read-char
)))
(
setq
char
(
read-char
)))
(
setq
unread-command-event
char
))
(
setq
unread-command-event
s
(
list
char
))
)
(
defun
vip-prefix-arg-com
(
char
value
com
)
(
defun
vip-prefix-arg-com
(
char
value
com
)
"Vi operator as prefix argument."
"Vi operator as prefix argument."
...
@@ -447,7 +447,7 @@ obtained so far, and COM is the command part obtained so far."
...
@@ -447,7 +447,7 @@ obtained so far, and COM is the command part obtained so far."
(
while
(
=
char
?U
)
(
while
(
=
char
?U
)
(
vip-describe-arg
prefix-arg
)
(
vip-describe-arg
prefix-arg
)
(
setq
char
(
read-char
)))
(
setq
char
(
read-char
)))
(
setq
unread-command-event
char
))
(
setq
unread-command-event
s
(
list
char
))
)
;; as com is non-nil, this means that we have a command to execute
;; as com is non-nil, this means that we have a command to execute
(
if
(
or
(
=
(
car
com
)
?r
)
(
=
(
car
com
)
?R
))
(
if
(
or
(
=
(
car
com
)
?r
)
(
=
(
car
com
)
?R
))
;; execute apropriate region command.
;; execute apropriate region command.
...
...
lisp/frame.el
View file @
dbc4e1c1
...
@@ -113,7 +113,7 @@ These supercede the values given in default-frame-alist.")
...
@@ -113,7 +113,7 @@ These supercede the values given in default-frame-alist.")
;;; need to see if it should go away or change. Create a text frame
;;; need to see if it should go away or change. Create a text frame
;;; here.
;;; here.
(
defun
frame-notice-user-settings
()
(
defun
frame-notice-user-settings
()
(
if
(
live-fram
e-p
frame-initial-frame
)
(
if
(
frame-liv
e-p
frame-initial-frame
)
(
progn
(
progn
;; If the user wants a minibuffer-only frame, we'll have to
;; If the user wants a minibuffer-only frame, we'll have to
;; make a new one; you can't remove or add a root window to/from
;; make a new one; you can't remove or add a root window to/from
...
...
lisp/gnus.el
View file @
dbc4e1c1
...
@@ -2287,7 +2287,7 @@ If argument UNREAD is non-nil, only unread article is selected."
...
@@ -2287,7 +2287,7 @@ If argument UNREAD is non-nil, only unread article is selected."
(
let
((
char
(
read-char
)))
(
let
((
char
(
read-char
)))
(
if
(
=
char
cmd
)
(
if
(
=
char
cmd
)
(
gnus-Subject-next-group
nil
)
(
gnus-Subject-next-group
nil
)
(
setq
unread-command-event
char
))))
(
setq
unread-command-event
s
(
list
char
))))
)
)
)
))
))
)))
)))
...
...
lisp/help.el
View file @
dbc4e1c1
...
@@ -293,7 +293,7 @@ C-w print information on absence of warranty for GNU Emacs."
...
@@ -293,7 +293,7 @@ C-w print information on absence of warranty for GNU Emacs."
(
princ
(
cond
((
stringp
def
)
"a keyboard macro."
)
(
princ
(
cond
((
stringp
def
)
"a keyboard macro."
)
((
subrp
def
)
((
subrp
def
)
(
concat
beg
"built-in function."
))
(
concat
beg
"built-in function."
))
((
compiled
-function-p
def
)
((
byte-code
-function-p
def
)
(
concat
beg
"compiled Lisp function."
))
(
concat
beg
"compiled Lisp function."
))
((
symbolp
def
)
((
symbolp
def
)
(
format
"alias for `%s'."
def
))
(
format
"alias for `%s'."
def
))
...
...
lisp/info.el
View file @
dbc4e1c1
...
@@ -768,7 +768,7 @@ N is the digit argument used to invoke this command."
...
@@ -768,7 +768,7 @@ N is the digit argument used to invoke this command."
(
message
(
if
flag
"Type Space to see more"
(
message
(
if
flag
"Type Space to see more"
"Type Space to return to Info"
))
"Type Space to return to Info"
))
(
if
(
/=
?\
(
setq
ch
(
read-char
)))
(
if
(
/=
?\
(
setq
ch
(
read-char
)))
(
progn
(
setq
unread-command-event
ch
)
nil
)
(
progn
(
setq
unread-command-event
s
(
list
ch
)
)
nil
)
flag
))
flag
))
(
scroll-up
)))))
(
scroll-up
)))))
...
...
lisp/isearch.el
View file @
dbc4e1c1
...
@@ -4,7 +4,7 @@
...
@@ -4,7 +4,7 @@
;; LCD Archive Entry:
;; LCD Archive Entry:
;; isearch-mode|Daniel LaLiberte|liberte@cs.uiuc.edu
;; isearch-mode|Daniel LaLiberte|liberte@cs.uiuc.edu
;; |A minor mode replacement for isearch.el.
;; |A minor mode replacement for isearch.el.
;; |$Date: 1992/11/
07 06:1
7:0
4
$|$Revision: 1.1
5
$|~/modes/isearch-mode.el
;; |$Date: 1992/11/
16 01:3
7:0
6
$|$Revision: 1.1
6
$|~/modes/isearch-mode.el
;; This file is not yet part of GNU Emacs, but it is based almost
;; This file is not yet part of GNU Emacs, but it is based almost
;; entirely on isearch.el which is part of GNU Emacs.
;; entirely on isearch.el which is part of GNU Emacs.
...
@@ -88,8 +88,15 @@
...
@@ -88,8 +88,15 @@
;;;====================================================================
;;;====================================================================
;;; Change History
;;; Change History
;;; $Header: /home/gd/gnu/emacs/19.0/lisp/RCS/isearch-mode.el,v 1.1
5
1992/11/
07 06:1
7:0
4
jimb Exp jimb $
;;; $Header: /home/gd/gnu/emacs/19.0/lisp/RCS/isearch-mode.el,v 1.1
6
1992/11/
16 01:3
7:0
6
jimb Exp jimb $
;;; $Log: isearch-mode.el,v $
;;; $Log: isearch-mode.el,v $
; Revision 1.16 1992/11/16 01:37:06 jimb
; * bytecomp.el: Declare unread-command-char an obsolete variable.
; * vip.el (vip-escape-to-emacs, vip-prefix-arg-value,
; vip-prefix-arg-com): Use unread-command-event instead of
; unread-command-char; respect its new semantics.
; * isearch-mode.el (isearch-update, isearch-unread): Same.
;
; Revision 1.15 1992/11/07 06:17:04 jimb
; Revision 1.15 1992/11/07 06:17:04 jimb
; * isearch.el (isearch-frames-exist): This isn't what we want -
; * isearch.el (isearch-frames-exist): This isn't what we want -
; replaced by...
; replaced by...
...
@@ -557,7 +564,7 @@ is treated as a regexp. See \\[isearch-forward] for more info."
...
@@ -557,7 +564,7 @@ is treated as a regexp. See \\[isearch-forward] for more info."
(if (if isearch-event-data-type
(if (if isearch-event-data-type
(null unread-command-event)
(null unread-command-event)
(if isearch-gnu-emacs-events
(if isearch-gnu-emacs-events
(null unread-command-event)
(null unread-command-event
s
)
(< unread-command-char 0)))
(< unread-command-char 0)))
(progn
(progn
(if (not (input-pending-p))
(if (not (input-pending-p))
...
@@ -1413,6 +1420,7 @@ have special meaning in a regexp."
...
@@ -1413,6 +1420,7 @@ have special meaning in a regexp."
;; To quiet the byte-compiler.
;; To quiet the byte-compiler.
(defvar unread-command-event)
(defvar unread-command-event)
(defvar unread-command-events)
(defvar last-command-event)
(defvar last-command-event)
(defun isearch-char-to-string (c)
(defun isearch-char-to-string (c)
...
@@ -1429,7 +1437,7 @@ have special meaning in a regexp."
...
@@ -1429,7 +1437,7 @@ have special meaning in a regexp."
(isearch-event-data-type
(isearch-event-data-type
(setq unread-command-event char-or-event))
(setq unread-command-event char-or-event))
(isearch-gnu-emacs-events
(isearch-gnu-emacs-events
(setq unread-command-event char-or-event))
(setq unread-command-event
s (list
char-or-event))
)
(t
(t
(setq unread-command-char char-or-event))))
(setq unread-command-char char-or-event))))
...
...
lisp/map-ynp.el
View file @
dbc4e1c1
...
@@ -100,7 +100,7 @@ the current %s and exit."
...
@@ -100,7 +100,7 @@ the current %s and exit."
prompt char elt tail
prompt char elt tail
(next (if (or (symbolp list)
(next (if (or (symbolp list)
(subrp list)
(subrp list)
(
compiled
-function-p list)
(
byte-code
-function-p list)
(and (consp list)
(and (consp list)
(eq (car list) 'lambda)))
(eq (car list) 'lambda)))
(function (lambda ()
(function (lambda ()
...
@@ -157,7 +157,7 @@ the current %s and exit."
...
@@ -157,7 +157,7 @@ the current %s and exit."
(funcall actor elt)
(funcall actor elt)
(setq actions (1+ actions))))))
(setq actions (1+ actions))))))
((= ?? char)
((= ?? char)
(setq unread-command-event help-char)
(setq unread-command-event
s (list
help-char)
)
(setq next (` (lambda ()
(setq next (` (lambda ()
(setq next '(, next))
(setq next '(, next))
'(, elt)))))
'(, elt)))))
...
...
lisp/mouse.el
View file @
dbc4e1c1
This diff is collapsed.
Click to expand it.
lisp/progmodes/c-mode.el
View file @
dbc4e1c1
...
@@ -322,11 +322,13 @@ preserving the comment indentation or line-starting decorations."
...
@@ -322,11 +322,13 @@ preserving the comment indentation or line-starting decorations."
(paragraph-start
(paragraph-start
;; Lines containing just a comment start or just an end
;; Lines containing just a comment start or just an end
;; should not be filled into paragraphs they are next to.
;; should not be filled into paragraphs they are next to.
(concat paragraph-start
(concat
"\\|^[
\t]*/\\*[
\t]*$\\|^[ \t]*\\*/[ \t]*$\\|^[^
\t/*]
"))
paragraph-start
"\\|^[
\t]*/\\*[
\t]*$\\|^[ \t]*\\*/[ \t]*$\\|^[
\t/*]*$
"))
(paragraph-separate
(paragraph-separate
(concat paragraph-separate
(concat
"
\\|^[ \t]*/\\*[ \t]*$\\|^[
\t]*\\*/[
\t]*$\\|^[^ \t/*]"))
paragraph-separate
"
\\|^[ \t]*/\\*[ \t]*$\\|^[
\t]*\\*/[
\t]*$\\|^[ \t/*]*$"))
(chars-to-delete 0))
(chars-to-delete 0))
(save-restriction
(save-restriction
;; Don't fill the comment together with the code following it.
;; Don't fill the comment together with the code following it.
...
...
lisp/progmodes/fortran.el
View file @
dbc4e1c1
...
@@ -39,7 +39,7 @@
...
@@ -39,7 +39,7 @@
;;; This file may be used with GNU Emacs version 18.xx if the following
;;; This file may be used with GNU Emacs version 18.xx if the following
;;; variable and function substutions are made.
;;; variable and function substutions are made.
;;; Replace:
;;; Replace:
;;; unread-command-event with unread-command-char
;;; unread-command-event
s
with unread-command-char
;;; frame-width with screen-width
;;; frame-width with screen-width
;;; auto-fill-function with auto-fill-hook
;;; auto-fill-function with auto-fill-hook
...
@@ -469,7 +469,7 @@ Any other key combination is executed normally."
...
@@ -469,7 +469,7 @@ Any other key combination is executed normally."
(if (or (= (setq c (read-char)) ??) ;insert char if not equal to `?'
(if (or (= (setq c (read-char)) ??) ;insert char if not equal to `?'
(= c help-char))
(= c help-char))
(fortran-abbrev-help)
(fortran-abbrev-help)
(setq unread-command-event c))))
(setq unread-command-event
s (list
c))))
)
(defun fortran-abbrev-help ()
(defun fortran-abbrev-help ()
"List the currently defined abbrevs in Fortran mode."
"List the currently defined abbrevs in Fortran mode."
...
@@ -535,7 +535,7 @@ See also `fortran-window-create'."
...
@@ -535,7 +535,7 @@ See also `fortran-window-create'."
(progn (message "Type SPC to continue editing.")
(progn (message "Type SPC to continue editing.")
(let ((char (read-char)))
(let ((char (read-char)))
(or (equal char (string-to-char " "))
(or (equal char (string-to-char " "))
(setq unread-command-event char))))))
(setq unread-command-event
s (list
char))))))
)
(fortran-window-create)))
(fortran-window-create)))
(defun fortran-split-line ()
(defun fortran-split-line ()
...
...
lisp/progmodes/simula.el
View file @
dbc4e1c1
...
@@ -401,7 +401,7 @@ The relative indentation among the lines of the statement are preserved."
...
@@ -401,7 +401,7 @@ The relative indentation among the lines of the statement are preserved."
(
case-fold-search
t
)
(
case-fold-search
t
)
;; don't mix a label with an assignment operator := :-
;; don't mix a label with an assignment operator := :-
;; therefore look at next typed character...
;; therefore look at next typed character...
(
next-char
(
setq
unread-command-event
(
read-char
)))
(
next-char
(
setq
unread-command-event
s
(
list
(
read-char
)))
)
(
com-char
last-command-char
))
(
com-char
last-command-char
))
(
unwind-protect
(
unwind-protect
;; Problem: find out if character just read is a command char
;; Problem: find out if character just read is a command char
...
...
lisp/scroll-bar.el
View file @
dbc4e1c1
...
@@ -21,6 +21,8 @@
...
@@ -21,6 +21,8 @@
;;; along with GNU Emacs; see the file COPYING. If not, write to
;;; along with GNU Emacs; see the file COPYING. If not, write to
;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
(
require
'mouse
)
;;;; Utilities.
;;;; Utilities.
...
@@ -43,7 +45,7 @@ that scrollbar position."
...
@@ -43,7 +45,7 @@ that scrollbar position."
"Set the window start according to where the scrollbar is dragged.
"Set the window start according to where the scrollbar is dragged.
EVENT should be a scrollbar click or drag event."
EVENT should be a scrollbar click or drag event."
(
interactive
"e"
)
(
interactive
"e"
)
(
let*
((
end-position
(
nth
(
1-
(
length
event
))
event
))
(
let*
((
end-position
(
event
-end
event
))
(
window
(
nth
0
end-position
))
(
window
(
nth
0
end-position
))
(
portion-whole
(
nth
2
end-position
)))
(
portion-whole
(
nth
2
end-position
)))
(
save-excursion
(
save-excursion
...
@@ -60,7 +62,7 @@ EVENT should be a scrollbar click."
...
@@ -60,7 +62,7 @@ EVENT should be a scrollbar click."
(
let
((
old-selected-window
(
selected-window
)))
(
let
((
old-selected-window
(
selected-window
)))
(
unwind-protect
(
unwind-protect
(
progn
(
progn
(
let*
((
end-position
(
nth
(
1-
(
length
event
))
event
))
(
let*
((
end-position
(
event
-end
event
))
(
window
(
nth
0
end-position
))
(
window
(
nth
0
end-position
))
(
portion-whole
(
nth
2
end-position
)))
(
portion-whole
(
nth
2
end-position
)))
(
select-window
window
)
(
select-window
window
)
...
@@ -75,7 +77,7 @@ EVENT should be a scrollbar click."
...
@@ -75,7 +77,7 @@ EVENT should be a scrollbar click."
(
let
((
old-selected-window
(
selected-window
)))
(
let
((
old-selected-window
(
selected-window
)))
(
unwind-protect
(
unwind-protect
(
progn
(
progn
(
let*
((
end-position
(
nth
(
1-
(
length
event
))
event
))
(
let*
((
end-position
(
event
-end
event
))