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
7229064d
Commit
7229064d
authored
May 09, 1991
by
Roland McGrath
Browse files
*** empty log message ***
parent
d6003f63
Changes
16
Hide whitespace changes
Inline
Side-by-side
Showing
16 changed files
with
68 additions
and
18 deletions
+68
-18
lisp/emacs-lisp/backquote.el
lisp/emacs-lisp/backquote.el
+1
-0
lisp/ledit.el
lisp/ledit.el
+12
-7
lisp/lpr.el
lisp/lpr.el
+7
-2
lisp/macros.el
lisp/macros.el
+5
-0
lisp/mail/mail-utils.el
lisp/mail/mail-utils.el
+1
-1
lisp/mail/mailalias.el
lisp/mail/mailalias.el
+1
-0
lisp/man.el
lisp/man.el
+1
-0
lisp/novice.el
lisp/novice.el
+4
-0
lisp/play/yow.el
lisp/play/yow.el
+2
-0
lisp/server.el
lisp/server.el
+1
-0
lisp/terminal.el
lisp/terminal.el
+2
-1
lisp/textmodes/ispell4.el
lisp/textmodes/ispell4.el
+4
-0
lisp/textmodes/picture.el
lisp/textmodes/picture.el
+2
-1
lisp/textmodes/tex-mode.el
lisp/textmodes/tex-mode.el
+6
-3
lisp/time.el
lisp/time.el
+16
-3
lisp/view.el
lisp/view.el
+3
-0
No files found.
lisp/emacs-lisp/backquote.el
View file @
7229064d
...
...
@@ -90,6 +90,7 @@ a list-value atom"
;;; This is the interface
;;;###autoload
(
defmacro
`
(
form
)
"(` FORM) is a macro that expands to code to construct FORM.
Note that this is very slow in interpreted code, but fast if you compile.
...
...
lisp/ledit.el
View file @
7229064d
...
...
@@ -32,13 +32,16 @@
"File name for data sent to Lisp compiler by Ledit."
)
(
defconst
ledit-buffer
"*LEDIT*"
"Name of buffer in which Ledit accumulates data to send to Lisp."
)
;These are now in loaddefs.el
;(defconst ledit-save-files t
; "*Non-nil means Ledit should save files before transferring to Lisp.")
;(defconst ledit-go-to-lisp-string "%?lisp"
; "*Shell commands to execute to resume Lisp job.")
;(defconst ledit-go-to-liszt-string "%?liszt"
; "*Shell commands to execute to resume Lisp compiler job.")
;;;###autoload
(
defconst
ledit-save-files
t
"*Non-nil means Ledit should save files before transferring to Lisp."
)
;;;###autoload
(
defconst
ledit-go-to-lisp-string
"%?lisp"
"*Shell commands to execute to resume Lisp job."
)
;;;###autoload
(
defconst
ledit-go-to-liszt-string
"%?liszt"
"*Shell commands to execute to resume Lisp compiler job."
)
(
defun
ledit-save-defun
()
"Save the current defun in the ledit buffer"
...
...
@@ -115,6 +118,7 @@
(
ledit-setup
)
;;;###autoload
(
defun
ledit-mode
()
"\\<ledit-mode-map>Major mode for editing text and stuffing it to a Lisp job.
Like Lisp mode, plus these special commands:
...
...
@@ -131,6 +135,7 @@ do (setq lisp-mode-hook 'ledit-from-lisp-mode)"
(
lisp-mode
)
(
ledit-from-lisp-mode
))
;;;###autoload
(
defun
ledit-from-lisp-mode
()
(
use-local-map
ledit-mode-map
)
(
setq
mode-name
"Ledit"
)
...
...
lisp/lpr.el
View file @
7229064d
...
...
@@ -18,8 +18,9 @@
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;(defconst lpr-switches nil
; "*List of strings to pass as extra switch args to lpr when it is invoked.")
;;;###autoload
(
defconst
lpr-switches
nil
"*List of strings to pass as extra switch args to lpr when it is invoked."
)
(
defvar
lpr-command
(
if
(
eq
system-type
'usg-unix-v
)
"lp"
"lpr"
)
...
...
@@ -29,24 +30,28 @@
"Function to call to print the region on a printer.
See definition of `print-region-1' for calling conventions."
)
;;;###autoload
(
defun
lpr-buffer
()
"Print buffer contents as with Unix command `lpr'.
`lpr-switches' is a list of extra switches (strings) to pass to lpr."
(
interactive
)
(
print-region-1
(
point-min
)
(
point-max
)
lpr-switches
nil
))
;;;###autoload
(
defun
print-buffer
()
"Print buffer contents as with Unix command `lpr -p'.
`lpr-switches' is a list of extra switches (strings) to pass to lpr."
(
interactive
)
(
print-region-1
(
point-min
)
(
point-max
)
lpr-switches
t
))
;;;###autoload
(
defun
lpr-region
(
start
end
)
"Print region contents as with Unix command `lpr'.
`lpr-switches' is a list of extra switches (strings) to pass to lpr."
(
interactive
"r"
)
(
print-region-1
start
end
lpr-switches
nil
))
;;;###autoload
(
defun
print-region
(
start
end
)
"Print region contents as with Unix command `lpr -p'.
`lpr-switches' is a list of extra switches (strings) to pass to lpr."
...
...
lisp/macros.el
View file @
7229064d
...
...
@@ -18,6 +18,7 @@
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;;###autoload
(
defun
name-last-kbd-macro
(
symbol
)
"Assign a name to the last keyboard macro defined.
Argument SYMBOL is the name to define.
...
...
@@ -32,6 +33,7 @@ Such a \"function\" cannot be called from Lisp, but it is a valid editor command
symbol
))
(
fset
symbol
last-kbd-macro
))
;;;###autoload
(
defun
insert-kbd-macro
(
macroname
&optional
keys
)
"Insert in buffer the definition of kbd macro NAME, as Lisp code.
Optional second arg KEYS means also record the keys it is on
...
...
@@ -61,6 +63,7 @@ use this command, and then save the file."
(
insert
")\n"
)
(
setq
keys
(
cdr
keys
))))))
;;;###autoload
(
defun
kbd-macro-query
(
flag
)
"Query user during kbd macro execution.
With prefix argument, enters recursive edit, reading keyboard
...
...
@@ -100,3 +103,5 @@ C-l -- redisplay screen and ask again."
((
=
char
?\C-r
)
(
let
(
executing-macro
defining-kbd-macro
)
(
recursive-edit
))))))))))
;;;###autoload (define-key ctl-x-map "q" 'kbd-macro-query)
lisp/mail/mail-utils.el
View file @
7229064d
...
...
@@ -20,7 +20,7 @@
(
provide
'mail-utils
)
;;
should be in loaddefs
;;
;###autoload
(
defvar
mail-use-rfc822
nil
"*If non-nil, use a full, hairy RFC822 parser on mail addresses.
Otherwise, (the default) use a smaller, somewhat faster, and
...
...
lisp/mail/mailalias.el
View file @
7229064d
...
...
@@ -130,6 +130,7 @@ removed from alias expansions."
;; Always autoloadable in case the user wants to define aliases
;; interactively or in .emacs.
;;;###autoload
(
defun
define-mail-alias
(
name
definition
)
"Define NAME as a mail alias that translates to DEFINITION.
This means that sending a message to NAME will actually send to DEFINITION.
...
...
lisp/man.el
View file @
7229064d
...
...
@@ -17,6 +17,7 @@
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;;###autoload
(
defun
manual-entry
(
topic
&optional
section
)
"Display the Unix manual entry for TOPIC.
TOPIC is either the title of the entry, or has the form TITLE(SECTION)
...
...
lisp/novice.el
View file @
7229064d
...
...
@@ -23,6 +23,8 @@
;; The command is found in this-command
;; and the keys are returned by (this-command-keys).
;;;###autoload (setq disabled-command-hook 'disabled-command-hook)
;;;###autoload
(
defun
disabled-command-hook
(
&rest
ignore
)
(
let
(
char
)
(
save-window-excursion
...
...
@@ -67,6 +69,7 @@ N to do nothing (command remains disabled)."))
(
if
(
/=
char
?n
)
(
call-interactively
this-command
))))
;;;###autoload
(
defun
enable-command
(
command
)
"Allow COMMAND to be executed without special confirmation from now on.
The user's .emacs file is altered so that this will apply
...
...
@@ -86,6 +89,7 @@ to future sessions."
(
setq
foo
(
buffer-modified-p
))
(
save-buffer
)))
;;;###autoload
(
defun
disable-command
(
command
)
"Require special confirmation to execute COMMAND from now on.
The user's .emacs file is altered so that this will apply
...
...
lisp/play/yow.el
View file @
7229064d
...
...
@@ -25,6 +25,7 @@
; Expects file emacs/etc/yow.lines to be in ITS-style LINS format
; (ie strings terminated by ascii 0 characters. Leading whitespace ignored)
; Everything up to the first \000 is a comment.
;;;###autoload
(
defun
yow
(
&optional
n
interactive
)
"Return or display a Zippy quotation."
(
interactive
"P\np"
)
...
...
@@ -69,6 +70,7 @@
;
; written by Kayvan Aghaiepour
;;;###autoload
(
defun
psychoanalyze-pinhead
()
"Zippy goes to the analyst."
(
interactive
)
...
...
lisp/server.el
View file @
7229064d
...
...
@@ -114,6 +114,7 @@ by the programs that invoke the emacs server.")
((
eq
(
process-status
proc
)
'signal
)
(
server-log
(
message
"Server subprocess killed"
)))))
;;;###autoload
(
defun
server-start
(
&optional
leave-dead
)
"Allow this Emacs process to be a server for client processes.
This starts a server communications subprocess through which
...
...
lisp/terminal.el
View file @
7229064d
...
...
@@ -982,6 +982,7 @@ of the virtual terminal to be appropriate for interactive use.")
(
defvar
explicit-shell-file-name
nil
"*If non-nil, is file name to use for explicitly requested inferior shell."
)
;;;###autoload
(
defun
terminal-emulator
(
buffer
program
args
&optional
width
height
)
"Under a display-terminal emulator in BUFFER, run PROGRAM on arguments ARGS.
ARGS is a list of argument-strings. Remaining arguments are WIDTH and HEIGHT.
...
...
@@ -1225,4 +1226,4 @@ of the terminal-emulator"
end
(
1+
end
)))
start
(
1+
end
)))
(
concat
"\""
harder
"\""
)))))
\ No newline at end of file
(
concat
"\""
harder
"\""
)))))
lisp/textmodes/ispell4.el
View file @
7229064d
...
...
@@ -185,6 +185,7 @@ word any word is checked for spelling. Result is
(
defun
ispell-tex-buffer-p
()
(
memq
major-mode
'
(
plain-TeX-mode
LaTeX-mode
)))
;;;###autoload
(
defun
ispell
(
&optional
buf
start
end
)
"Run ispell over current buffer's visited file.
First the file is scanned for misspelled words, then ispell
...
...
@@ -287,6 +288,7 @@ q, \\[keyboard-quit] Leave the command loop. You can come back later with \\[is
(
ispell-dump
))
;;;###autoload
(
defun
ispell-word
()
"Check the spelling of the word under the cursor.
See `ispell' for more information."
...
...
@@ -301,7 +303,9 @@ See `ispell' for more information."
(
load-library
"spell"
)
(
define-key
esc-map
"$"
'spell-word
)
(
spell-word
))))))
;;;###autoload (define-key esc-map "$" 'ispell-word)
;;;###autoload
(
defun
ispell-region
(
start
&optional
end
)
"Check the spelling for all of the words in the region."
(
interactive
"r"
)
...
...
lisp/textmodes/picture.el
View file @
7229064d
...
...
@@ -450,6 +450,7 @@ Leaves the region surrounding the rectangle."
"If non-nil, it's value is called on entry to Picture mode.
Picture mode is invoked by the command \\[edit-picture]."
)
;;;###autoload
(
defun
edit-picture
()
"Switch to Picture mode, in which a quarter-plane screen model is used.
Printing characters replace instead of inserting themselves with motion
...
...
@@ -532,7 +533,7 @@ they are not defaultly assigned to keys."
"Type \\[picture-mode-exit] in this buffer to return it to %s mode."
)
picture-mode-old-mode-name
)))
(
fset
'picture-mode
'edit-picture
)
; for the confused
;;;###autoload
(fset 'picture-mode 'edit-picture)
(
defun
picture-mode-exit
(
&optional
nostrip
)
"Undo edit-picture and return to previous major mode.
...
...
lisp/textmodes/tex-mode.el
View file @
7229064d
...
...
@@ -140,6 +140,7 @@ Set by \\[tex-region], \\[tex-buffer], and \\[tex-file].")
;;; This would be a lot simpler if we just used a regexp search,
;;; but then it would be too slow.
;;;###autoload
(
defun
tex-mode
()
"Major mode for editing files of input for TeX, LaTeX, or SliTeX.
Tries to determine (by looking at the beginning of the file) whether
...
...
@@ -164,10 +165,10 @@ is used."
'plain-tex-mode
))))
(
if
mode
(
funcall
mode
)
(
funcall
tex-default-mode
))))
;;;###autoload (fset 'TeX-mode 'tex-mode)
;;;###autoload (fset 'LaTeX-mode 'latex-mode)
(
fset
'plain-TeX-mode
'plain-tex-mode
)
(
fset
'LaTeX-mode
'latex-mode
)
;;;###autoload
(
defun
plain-tex-mode
()
"Major mode for editing files of input for plain TeX.
Makes $ and } display the characters they match.
...
...
@@ -214,7 +215,9 @@ subshell is initiated, the value of tex-shell-hook is called."
(
setq
tex-end-of-header
"%**end of header"
)
(
setq
tex-trailer
"\\bye\n"
)
(
run-hooks
'text-mode-hook
'tex-mode-hook
'plain-tex-mode-hook
))
;;;###autoload (fset 'plain-TeX-mode 'plain-tex-mode)
;;;###autoload
(
defun
latex-mode
()
"Major mode for editing files of input for LaTeX.
Makes $ and } display the characters they match.
...
...
lisp/time.el
View file @
7229064d
...
...
@@ -22,6 +22,10 @@
"*File name of mail inbox file, for indicating existence of new mail.
Default is system-dependent, and is the same as used by Rmail."
)
;;;###autoload
(
defconst
display-time-day-and-date
nil
"\
*Non-nil
means
\\[display-time]
should
display
day
and
date
as
well
as
time.
")
(defvar display-time-process nil)
(defvar display-time-interval 60
...
...
@@ -32,6 +36,7 @@ Default is system-dependent, and is the same as used by Rmail.")
(defvar display-time-hook nil
"
*
List
of
functions
to
be
called
when
the
time
is
updated
on
the
mode
line.
")
;;;###autoload
(defun display-time ()
"
Display
current
time
and
load
level
in
mode
line
of
each
buffer.
Updates
automatically
every
minute.
...
...
@@ -52,7 +57,7 @@ After each update, `display-time-hook' is run with `run-hooks'."
(setq display-time-string "")
(setq display-time-process
(start-process "
display-time
" nil
"wakeup"
(concat exec-directory
"
wakeup
"
)
(int-to-string display-time-interval)))
(process-kill-without-query display-time-process)
(set-process-sentinel display-time-process 'display-time-sentinel)
...
...
@@ -68,7 +73,10 @@ After each update, `display-time-hook' is run with `run-hooks'."
(defun display-time-filter (proc string)
(let ((time (current-time-string))
(
load
(
format
"%03d"
(
car
(
load-average
))))
(load (condition-case ()
(if (zerop (car (load-average))) ""
(format "
%03d
" (car (load-average))))
(error "")))
(mail-spool-file (or display-time-mail-file
(getenv "
MAIL
")
(concat rmail-spool-directory
...
...
@@ -88,7 +96,7 @@ After each update, `display-time-hook' is run with `run-hooks'."
(substring load 0 -2) "
.
" (substring load -2)
(if (and (file-exists-p mail-spool-file)
;; file not empty?
(
>
(
nth
7
(
file-attributes
mail-spool-file
))
0
))
(
display-time-file-nonempty-p
mail-spool-file))
"
Mail
"
"
"
)
))
;; Append the date if desired.
...
...
@@ -101,3 +109,8 @@ After each update, `display-time-hook' is run with `run-hooks'."
(
set-buffer-modified-p
(
buffer-modified-p
))
;; Do redisplay right now, if no input pending.
(
sit-for
0
)
)
(
defun
display-time-file-nonempty-p
(
file
)
(
while
(
file-symlink-p
file
)
(
setq
file
(
file-symlink-p
file
)))
(
>
(
nth
7
(
file-attributes
file
))
0
))
lisp/view.el
View file @
7229064d
...
...
@@ -90,6 +90,7 @@
)
;;;###autoload
(
defun
view-file
(
file-name
)
"View FILE in View mode, returning to previous buffer when done.
The usual Emacs commands are not available; instead,
...
...
@@ -108,6 +109,7 @@ Calls the value of view-hook if that is non-nil."
(
and
(
not
had-a-buf
)
(
not
(
buffer-modified-p
buf-to-view
))
'kill-buffer
))))
;;;###autoload
(
defun
view-buffer
(
buffer-name
)
"View BUFFER in View mode, returning to previous buffer when done.
The usual Emacs commands are not available; instead,
...
...
@@ -122,6 +124,7 @@ Calls the value of view-hook if that is non-nil."
(
switch-to-buffer
buffer-name
t
)
(
view-mode
old-buf
nil
)))
;;;###autoload
(
defun
view-mode
(
&optional
prev-buffer
action
)
"Major mode for viewing text but not editing it.
Letters do not insert themselves. Instead these commands are provided.
...
...
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