procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(lisp-mode-auto-fill): New function.

Browse source 
(lisp-mode-variables): Bind normal-auto-fill-function.
This commit is contained in:
Richard M. Stallman 1997-11-24 03:32:20 +00:00
parent 1061ff16f4
commit 7eb67d79ac
1 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/emacs-lisp/lisp-mode.el
View file

@ -109,6 +109,8 @@
;; because lisp-fill-paragraph should do the job.
(make-local-variable 'adaptive-fill-mode)
(setq adaptive-fill-mode nil)
(make-local-variable 'normal-auto-fill-function)
(setq normal-auto-fill-function 'lisp-mode-auto-fill)
(make-local-variable 'indent-line-function)
(setq indent-line-function 'lisp-indent-line)
(make-local-variable 'indent-region-function)
@ -362,6 +364,17 @@ With argument, insert value in current buffer after the defun."
(max (if (bolp) 0 (1+ (current-column)))
comment-column))))
(defun lisp-mode-auto-fill ()
(if (> (current-column) (current-fill-column))
(if (save-excursion
(nth 4 (parse-partial-sexp (save-excursion
(beginning-of-defun)
(point))
(point))))
(do-auto-fill)
(let ((comment-start nil) (comment-start-skip nil))
(do-auto-fill)))))
(defvar lisp-indent-offset nil "")
(defvar lisp-indent-function 'lisp-indent-function "")