mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

Comment fix.

Browse Source
This commit is contained in:
Karl Heuer 1998-10-06 23:22:48 +00:00
parent 4a08d192a7
commit 4e0c86509d
4 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/completion.el
View File

@ -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.

2
lisp/files.el
View File

@ -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))))

6
lisp/forms.el
View File

@ -296,10 +296,10 @@
(provide 'forms) ;;; official
(provide 'forms-mode) ;;; for compatibility
(defconst forms-version (substring "$Revision: 2.34 $" 11 -2)
(defconst forms-version (substring "$Revision: 2.35 $" 11 -2)
"The version number of forms-mode (as string). The complete RCS id is:
$Id: forms.el,v 2.34 1997/08/27 23:10:59 rms Exp stephen $")
$Id: forms.el,v 2.35 1998/07/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.

2
lisp/mail/sendmail.el
View File

@ -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)