;;; Time-stamp: <2006-01-17 16:51:58 jcgs> (defun jcgs-text-mode-hook () "Do some of: Turn auto-fill on, and make SPC always produce a single space between words, however many times it is typed in one place. (Not working at the moment.) Also, always make sure there is a newline character at the end of the file." (auto-fill-mode 1) ; (local-set-key " " 'just-one-space) (make-local-variable 'require-final-newline) (setq require-final-newline t) ; always add final newline, no ask (if (string= mode-name "Texinfo") (setq comment-start "@c ")) ) (setq sentence-end "[.?!][]\")]*\\($\\| \\| \\)[ ]*") ; I've changed this from the default, ; because I don't put a double space ; at sentence ends (require 'generic-text) ;; (gentext-setup-bindings html-helper-mode-map ;; LaTeX-mode-map ;; texinfo-mode-map) ;;; end of text-stuff.el