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
d501f516
Commit
d501f516
authored
May 30, 1992
by
Eric S. Raymond
Browse files
*** empty log message ***
parent
76d7458e
Changes
20
Hide whitespace changes
Inline
Side-by-side
Showing
20 changed files
with
89 additions
and
24 deletions
+89
-24
lisp/emacs-lisp/copyright.el
lisp/emacs-lisp/copyright.el
+4
-0
lisp/emulation/vi.el
lisp/emulation/vi.el
+4
-1
lisp/mail/undigest.el
lisp/mail/undigest.el
+3
-1
lisp/play/studly.el
lisp/play/studly.el
+3
-1
lisp/term-nasty.el
lisp/term-nasty.el
+5
-1
lisp/terminal.el
lisp/terminal.el
+4
-1
lisp/textmodes/tex-mode.el
lisp/textmodes/tex-mode.el
+3
-1
lisp/textmodes/texinfmt.el
lisp/textmodes/texinfmt.el
+3
-2
lisp/textmodes/texinfo.el
lisp/textmodes/texinfo.el
+2
-2
lisp/textmodes/texnfo-upd.el
lisp/textmodes/texnfo-upd.el
+2
-4
lisp/textmodes/text-mode.el
lisp/textmodes/text-mode.el
+4
-1
lisp/textmodes/underline.el
lisp/textmodes/underline.el
+4
-1
lisp/time.el
lisp/time.el
+4
-1
lisp/timer.el
lisp/timer.el
+4
-1
lisp/uncompress.el
lisp/uncompress.el
+22
-0
lisp/unused.el
lisp/unused.el
+5
-2
lisp/userlock.el
lisp/userlock.el
+3
-1
lisp/view.el
lisp/view.el
+3
-1
lisp/vms-patch.el
lisp/vms-patch.el
+4
-1
lisp/vmsproc.el
lisp/vmsproc.el
+3
-1
No files found.
lisp/emacs-lisp/copyright.el
View file @
d501f516
;;; upd-copyr.el --- update the copyright notice in a GNU Emacs elisp file
;;; Copyright (C) 1991, 1992 Free Software Foundation, Inc.
;;; Written by Roland McGrath.
;;;
...
...
@@ -128,3 +130,5 @@ Put this on write-file-hooks."
nil
)
(
provide
'upd-copyr
)
;;; upd-copyr.el ends here
lisp/emulation/vi.el
View file @
d501f516
; Evi: Major mode for emulating "vi" editor under GNU Emacs.
;;; vi.el --- major mode for emulating "vi" editor under GNU Emacs.
; Originally written by : seismo!wucs!nz@rsch.wisc.edu (Neal Ziring)
; Extensively redesigned and rewritten by wu@crys.wisc.edu (Felix S.T. Wu)
; Last revision: 01/07/87 Wed (for GNU Emacs 18.33)
...
...
@@ -1445,3 +1446,5 @@ With arg, inserts that many newlines."
(
setq
arg
(
1-
arg
)))
(
if
flag
(
forward-char
1
)))))
arg
)
t
))
;;; vi.el ends here
lisp/mail/undigest.el
View file @
d501f516
;; "RMAIL" mail reader for Emacs.
;;; undigest.el --- digest-cracking support for the RMAIL mail reader
;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
...
...
@@ -103,3 +104,4 @@ Leaves original message, deleted, before the undigestified messages."
(
delete-region
(
point-min
)
(
point-max
))
(
rmail-show-message
rmail-current-message
))))))
;;; undigest.el ends here
lisp/play/studly.el
View file @
d501f516
;;; StudlyCaps (tm)(r)(c)(xxx)
;;;
studly.el ---
StudlyCaps (tm)(r)(c)(xxx)
(
defun
studlify-region
(
begin
end
)
"Studlify-case the region"
...
...
@@ -46,3 +46,5 @@
"Studlify-case the current buffer"
(
interactive
"*"
)
(
studlify-region
(
point-min
)
(
point-max
)))
;;; studly.el ends here
lisp/term-nasty.el
View file @
d501f516
;;; term-nasty.el --- Damned Things from terminfo.el
Some
people
used
to
be
bothered
by
the
following
comments
that
were
found
in
terminal.el.
We
decided
they
were
distracting,
and
that
it
was
better
not
to
have
them
there.
On
the
other
hand,
we
didn
't
want
...
...
@@ -18,4 +20,6 @@ and C-i even though the termcap doesn't say they may be used:
;fuck me harder
;again and again!
;wa12id!!
;(spiked)
\ No newline at end of file
;(spiked)
;;; term-nasty.el ends here
lisp/terminal.el
View file @
d501f516
;; Terminal emulator for GNU Emacs.
;;; terminal.el --- terminal emulator for GNU Emacs.
;; Copyright (C) 1986, 1987, 1988, 1989 Free Software Foundation, Inc.
;; Written by Richard Mlynarik, November 1986.
...
...
@@ -1217,3 +1218,5 @@ of the terminal-emulator"
(
concat
"\""
harder
"\""
)))))
(
provide
'terminal
)
;;; terminal.el ends here
lisp/textmodes/tex-mode.el
View file @
d501f516
;; TeX, LaTeX, and SliTeX mode commands.
;;; tex-mode.el --- TeX, LaTeX, and SliTeX mode commands.
;; Copyright (C) 1985, 1986, 1989 Free Software Foundation, Inc.
;; Rewritten following contributions by William F. Schelter
;; and Dick King (king@kestrel).
...
...
@@ -803,3 +804,4 @@ Runs the shell command defined by tex-show-queue-command."
(
provide
'tex-mode
)
;;; tex-mode.el ends here
lisp/textmodes/texinfmt.el
View file @
d501f516
;;;; texinfmt.el
;;;; Convert Texinfo files to Info files.
;;;; texinfmt.el --- convert Texinfo files to Info files.
;;;; Version 2.00 14 Dec 1990
...
...
@@ -1819,3 +1818,5 @@ For example, invoke
(message "
>>
%s
"
s
)
)
(
setq
error
1
)
)))
(
kill-emacs
error
)
)))
;;; texinfmt.el ends here
lisp/textmodes/texinfo.el
View file @
d501f516
;;;; texinfo.el
;;;; Major mode for editing Texinfo files.
;;;; texinfo.el ---- major mode for editing Texinfo files.
;;;; Version 2.00 14 Dec 1990
...
...
@@ -413,3 +412,4 @@ Runs the shell command defined by tex-dvi-print-command."
(
provide
'texinfo
)
;;; texinfo.el ends here
lisp/textmodes/texnfo-upd.el
View file @
d501f516
;;;; texnfo-upd.el
;;;; A utility for updating nodes and menus in Texinfo files.
;;; texnfo-upd.el --- a utility for updating nodes and menus in Texinfo files.
;;;; Version 2.00 14 Dec 1990
...
...
@@ -1721,7 +1720,6 @@ chapter."
included-file-list
)))))
(
message
"Multiple files updated."
))
;;;;;;;;;;;;;;;; end texnfo-upd.el ;;;;;;;;;;;;;;;;
(
provide
'texnfo-upd
)
;;; texnfo-upd.el ends here
lisp/textmodes/text-mode.el
View file @
d501f516
;; Text mode, and its ideosyncratic commands.
;;; text-mode.el --- text mode, and its idiosyncratic commands.
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
...
...
@@ -148,3 +149,5 @@ the distance between the end of the text and `fill-column'."
(
indent-to
(
+
left-margin
(
/
(
-
fill-column
left-margin
line-length
)
2
))))))
;;; text-mode.el ends here
lisp/textmodes/underline.el
View file @
d501f516
;; Insert or remove underlining (done by overstriking) in Emacs.
;;; underline.el --- insert/remove underlining (done by overstriking) in Emacs.
;; Copyright (C) 1985 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
...
...
@@ -46,3 +47,5 @@ which specify the range to operate on."
(
goto-char
(
min
start
end
))
(
while
(
re-search-forward
"_\\|_"
end1
t
)
(
delete-char
-2
)))))
;;; underline.el ends here
lisp/time.el
View file @
d501f516
;; Display time and load in mode line of Emacs.
;;; time.el --- display time and load in mode line of Emacs.
;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
...
...
@@ -122,3 +123,5 @@ After each update, `display-time-hook' is run with `run-hooks'."
(
while
(
file-symlink-p
file
)
(
setq
file
(
file-symlink-p
file
)))
(
>
(
nth
7
(
file-attributes
file
))
0
))
;;; time.el ends here
lisp/timer.el
View file @
d501f516
;; Run a function with args at some time in future
;;; timer.el --- run a function with args at some time in future
;; Copyright (C) 1990 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
...
...
@@ -91,3 +92,5 @@ the call to the function."
(
or
timer-alist
timer-dont-exit
(
process-send-eof
timer-process
)))
(
provide
'timer
)
;;; timer.el ends here
lisp/uncompress.el
View file @
d501f516
;;; uncompress.el --- auto-decompression hook for visiting .Z files
;; Copyright (C) 1992 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 1, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;; When we are about to make a backup file,
;; uncompress the file we visited
;; so that making the backup can work properly.
...
...
@@ -45,3 +65,5 @@ It then selects a major mode from the uncompressed file name and contents."
(
goto-char
(
point-min
))
(
setq
error
nil
)
t
)))
;;; uncompress.el ends here
lisp/unused.el
View file @
d501f516
;; Editing commands in GNU Emacs that turned out not to be used.
;; They were added with an eye to making possible a more CCA-compatible
;;; unused.el --- editing commands in GNU Emacs that turned out not to be used.
;; These were added with an eye to making possible a more CCA-compatible
;; command set; but that turned out not to be interesting.
(
defun
mark-beginning-of-buffer
()
...
...
@@ -30,3 +31,5 @@ With argument, do this that many times."
With argument, do this that many times."
(
interactive
"p"
)
(
forward-to-word
(
-
arg
)))
;;; unused.el ends here
lisp/userlock.el
View file @
d501f516
;;; userlock.el --- handle file access contention between multiple users
;; Copyright (C) 1985, 1986 Free Software Foundation, inc.
;; This file is part of GNU Emacs.
...
...
@@ -123,4 +125,4 @@ If you say `n', the change you started to make will be aborted.
Usually, you should type `n' and then `M-x revert-buffer',
to get the latest version of the file, then make the change again."
)))
;;; userlock.el ends here
lisp/view.el
View file @
d501f516
;; View: Peruse file or buffer without editing.
;;; view.el --- peruse file or buffer without editing.
;; Copyright (C) 1985, 1989 Free Software Foundation, Inc.
;; Principal author K. Shane Hartman
...
...
@@ -439,3 +440,4 @@ invocations return to earlier marks."
(
provide
'view
)
;;; view.el ends here
lisp/vms-patch.el
View file @
d501f516
;; Override parts of files.el for VMS.
;;; vms-patch.el --- override parts of files.el for VMS.
;; Copyright (C) 1986 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
...
...
@@ -107,3 +108,5 @@ If the logical name `EMACS_FILE_NAME' is defined, `find-file' that file."
" sys$login:delete-me.txt/name=""GNUprintbuffer"" "
(
mapconcat
'identity
switches
" "
))
nil
nil
nil
)))
;;; vms-patch.el ends here
lisp/vmsproc.el
View file @
d501f516
;; vms
x
.el --- run asynchronous VMS subprocesses under Emacs
;; vms
proc
.el --- run asynchronous VMS subprocesses under Emacs
;; Copyright (C) 1986 Free Software Foundation, Inc.
...
...
@@ -137,3 +137,5 @@ line to the last line for resubmission."
(
kill-line
))
(
define-key
esc-map
"$"
'subprocess-command
)
;;; vmsproc.el ends here
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