Commit 4e0c8650 authored by Karl Heuer's avatar Karl Heuer

Comment fix.

parent 4a08d192
......@@ -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.
......
......@@ -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))))
......
......@@ -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.
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment