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
4e0c8650
Commit
4e0c8650
authored
Oct 06, 1998
by
Karl Heuer
Browse files
Comment fix.
parent
4a08d192
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
7 additions
and
7 deletions
+7
-7
lisp/completion.el
lisp/completion.el
+2
-2
lisp/files.el
lisp/files.el
+1
-1
lisp/forms.el
lisp/forms.el
+3
-3
lisp/mail/sendmail.el
lisp/mail/sendmail.el
+1
-1
No files found.
lisp/completion.el
View file @
4e0c8650
...
...
@@ -2346,14 +2346,14 @@ If file name is not specified, use `save-completions-file-name'."
(
record-save-completions
total-in-db
total-perm
total-saved
))
))))
;;(defun autosave-completions ()
;;(defun auto
-
save-completions ()
;; (if (and save-completions-flag enable-completion cmpl-initialized-p
;; *completion-auto-save-period*
;; (> cmpl-emacs-idle-time *completion-auto-save-period*)
;; cmpl-completions-accepted-p)
;; (save-completions-to-file)))
;;(add-hook 'cmpl-emacs-idle-time-hooks 'autosave-completions)
;;(add-hook 'cmpl-emacs-idle-time-hooks 'auto
-
save-completions)
(
defun
load-completions-from-file
(
&optional
filename
no-message-p
)
"Loads a completion init file FILENAME.
...
...
lisp/files.el
View file @
4e0c8650
...
...
@@ -2859,7 +2859,7 @@ With prefix argument ARG, turn auto-saving on if positive, else off."
(
setq
buffer-auto-save-file-name
(
and
(
if
(
null
arg
)
(
or
(
not
buffer-auto-save-file-name
)
;; If autosave is off because buffer has shrunk,
;; If auto
-
save is off because buffer has shrunk,
;; then toggling should turn it on.
(
<
buffer-saved-size
0
))
(
or
(
eq
arg
t
)
(
listp
arg
)
(
and
(
integerp
arg
)
(
>
arg
0
))))
...
...
lisp/forms.el
View file @
4e0c8650
...
...
@@ -296,10 +296,10 @@
(
provide
'forms
)
;;; official
(
provide
'forms-mode
)
;;; for compatibility
(
defconst
forms-version
(
substring
"$Revision: 2.3
4
$"
11
-2
)
(
defconst
forms-version
(
substring
"$Revision: 2.3
5
$"
11
-2
)
"The version number of forms-mode (as string). The complete RCS id is:
$Id: forms.el,v 2.3
4
199
7
/0
8/27 23:10:59 rms Exp stephen
$"
)
$Id: forms.el,v 2.3
5
199
8
/0
7/17 14:01:15 stephen Exp kwzh
$"
)
(
defcustom
forms-mode-hooks
nil
"Hook functions to be run upon entering Forms mode."
...
...
@@ -589,7 +589,7 @@ Commands: Equivalent keys in read-only mode:
;; Dynamic text support.
(make-local-variable 'forms--dynamic-text)
;; Prevent accidental overwrite of the control file and autosave.
;; Prevent accidental overwrite of the control file and auto
-
save.
(set-visited-file-name nil)
;; Prepare this buffer for further processing.
...
...
lisp/mail/sendmail.el
View file @
4e0c8650
...
...
@@ -701,7 +701,7 @@ the user from the mailer."
(
error
))
(
setq
mail-send-actions
(
cdr
mail-send-actions
)))
(
message
"Sending...done"
)
;; If buffer has no file, mark it as unmodified and delete autosave.
;; If buffer has no file, mark it as unmodified and delete auto
-
save.
(
if
(
not
buffer-file-name
)
(
progn
(
set-buffer-modified-p
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