yedidya@bimacs.BITNET (Yedidya Israel) (09/05/89)
Is there a .el file that enter emacs into a (minor) mode that makes auto indentation on both margins, i.e. pad line with some spaces here and there in order to make a right margin. -- | Israel Yedidya, Math & CS Department, Bar-Ilan U, Ramat-Gan, ISRAEL. | +----------------------------------------------------------------------+ | Bitnet: yedidya@bimacs | | Internet: yedidya@bimacs.biu.ac.il | | Arpa: yedidya%bimacs.bitnet@cunyvm.cuny.edu | | Uucp: ...!uunet!mcvax!humus!bimacs!yedidya | | Csnet: yedidya%bimacs.bitnet%cunyvm.cuny.edu@csnet-relay | \----------------------------------------------------------------------/ \--- If someone proves there is no God, I'll stop being religious ---/ --------------------------------------------------------------------
rab@cbnews.ATT.COM (robert.a.biedenharn) (09/06/89)
In article <1054@bimacs.BITNET> yedidya@bimacs.BITNET (Yedidya Israel) writes: >Is there a .el file that enter emacs into a (minor) mode that makes >auto indentation on both margins, i.e. pad line with some spaces here >and there in order to make a right margin. Actually, Auto-Fill mode does what you want. C-x . (I think, no emacs on the news machine!) sets the variable fill-prefix to be the stuff between the beginning of the line and the point. Auto fills will put this on the newly create line before the wrapped text. (And fill-paragraph works, too.) Rob ..!att!cbsck!rab
spencer@eecs.umich.edu (Spencer W. Thomas) (09/06/89)
There is a function "justify-current-line". You can use this to change your auto-fill-hook as shown below. I haven't tested this extensively, but I did use it while I was typing this reply, so you can see the effect. You also can supply a prefix argument to fill-paragraph to get justification that way. (defun do-auto-justify () (do-auto-fill) (save-excursion (previous-line 1) (justify-current-line))) (setq auto-fill-hook 'do-auto-justify) -- =Spencer (spencer@eecs.umich.edu)
jka@hpfcso.HP.COM (Jay Adams) (09/07/89)
This is a little thing I tossed off once. It is essentially Spencer's idea w/ bells and whistles. - Jay (defvar auto-justify-mode '() "Non nil if auto justifying is turned on.") (or (assoc 'auto-justify-mode minor-mode-alist) (setq minor-mode-alist (cons '(auto-justify-mode " Justify") minor-mode-alist))) (defun auto-justify-mode () (interactive) "Toggle an auto fill mode that lines up right margins." (if (eq auto-fill-hook 'do-auto-fill-justify) (setq auto-fill-hook 'do-auto-fill auto-justify-mode nil) (setq auto-fill-hook 'do-auto-fill-justify auto-justify-mode t))) (defun do-auto-fill-justify () "Same as do-auto-fill \'cept fixes right margin on current line." (do-auto-fill) (save-excursion (previous-line 1) (justify-current-line)))