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
657e634f
Commit
657e634f
authored
May 10, 1991
by
Roland McGrath
Browse files
*** empty log message ***
parent
efa4ce8b
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
15 additions
and
20 deletions
+15
-20
lisp/ledit.el
lisp/ledit.el
+6
-9
lisp/lpr.el
lisp/lpr.el
+2
-3
lisp/mail/mail-utils.el
lisp/mail/mail-utils.el
+4
-5
lisp/reposition.el
lisp/reposition.el
+1
-0
lisp/time.el
lisp/time.el
+2
-3
No files found.
lisp/ledit.el
View file @
657e634f
...
...
@@ -33,15 +33,12 @@
(
defconst
ledit-buffer
"*LEDIT*"
"Name of buffer in which Ledit accumulates data to send to Lisp."
)
;;;###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."
)
;;;###autoload (defconst ledit-save-files t
;;;###autoload "*Non-nil means Ledit should save files before transferring to Lisp.")
;;;###autoload (defconst ledit-go-to-lisp-string "%?lisp"
;;;###autoload "*Shell commands to execute to resume Lisp job.")
;;;###autoload (defconst ledit-go-to-liszt-string "%?liszt"
;;;###autoload "*Shell commands to execute to resume Lisp compiler job.")
(
defun
ledit-save-defun
()
"Save the current defun in the ledit buffer"
...
...
lisp/lpr.el
View file @
657e634f
...
...
@@ -18,9 +18,8 @@
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;;###autoload
(
defconst
lpr-switches
nil
"*List of strings to pass as extra switch args to lpr when it is invoked."
)
;;;###autoload (defconst lpr-switches nil
;;;###autoload "*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"
)
...
...
lisp/mail/mail-utils.el
View file @
657e634f
...
...
@@ -20,11 +20,10 @@
(
provide
'mail-utils
)
;;;###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
often correct parser."
)
;;;###autoload (defvar mail-use-rfc822 nil
;;;###autoload "*If non-nil, use a full, hairy RFC822 parser on mail addresses.
;;;###autoload Otherwise, (the default) use a smaller, somewhat faster, and
;;;###autoload often correct parser.")
(
defun
mail-string-delete
(
string
start
end
)
"Returns a string containing all of STRING except the part
...
...
lisp/reposition.el
View file @
657e634f
...
...
@@ -31,6 +31,7 @@
;;; after one of the same name in ZMACS, but the code is all-new and the
;;; behavior in some situations differs.
;;;###autoload
(
defun
reposition-window
(
&optional
arg
)
"Make the current definition and/or comment visible.
Further invocations move it to the top of the window or toggle the
...
...
lisp/time.el
View file @
657e634f
...
...
@@ -22,9 +22,8 @@
"*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.
")
;;;###autoload (defconst display-time-day-and-date nil
;;;###autoload "*Non-nil means \\[display-time] should display day and date as well as time.")
(
defvar
display-time-process
nil
)
...
...
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