# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1208633709 0
# Node ID 72eb648a4690eaf0180330143427bb5c58baa784
# Parent  7870d07a291c9319bce9a68ddebc5a811907a46e
* emacs-lisp/lisp-mode.el (lisp-mode-auto-fill): Make it an alias.
* progmodes/scheme.el (scheme-mode-variables): Don't use it.

diff -r 7870d07a291c -r 72eb648a4690 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Apr 19 19:30:53 2008 +0000
+++ b/lisp/ChangeLog	Sat Apr 19 19:35:09 2008 +0000
@@ -1,5 +1,8 @@
 2008-04-19  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* emacs-lisp/lisp-mode.el (lisp-mode-auto-fill): Make it an alias.
+	* progmodes/scheme.el (scheme-mode-variables): Don't use it.
+
 	* tooltip.el (tooltip-previous-message): New var.
 	(tooltip-show-help-non-mode): Rewrite to better follow the behavior of
 	the C code (avoid overwriting a minibuffer, restore previous echo
diff -r 7870d07a291c -r 72eb648a4690 lisp/emacs-lisp/lisp-mode.el
--- a/lisp/emacs-lisp/lisp-mode.el	Sat Apr 19 19:30:53 2008 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el	Sat Apr 19 19:35:09 2008 +0000
@@ -216,8 +216,6 @@
   ;;(set (make-local-variable 'adaptive-fill-mode) nil)
   (make-local-variable 'indent-line-function)
   (setq indent-line-function 'lisp-indent-line)
-  (make-local-variable 'indent-region-function)
-  (setq indent-region-function 'lisp-indent-region)
   (make-local-variable 'parse-sexp-ignore-comments)
   (setq parse-sexp-ignore-comments t)
   (make-local-variable 'outline-regexp)
@@ -783,6 +781,8 @@
 With argument, insert value in current buffer after the defun.
 Return the result of evaluation."
   (interactive "P")
+  ;; FIXME: the print-length/level bindings should only be applied while
+  ;; printing, not while evaluating.
   (let ((debug-on-error eval-expression-debug-on-error)
 	(print-length eval-expression-print-length)
 	(print-level eval-expression-print-level))
@@ -855,21 +855,7 @@
 ;; May still be used by some external Lisp-mode variant.
 (define-obsolete-function-alias 'lisp-comment-indent
     'comment-indent-default "22.1")
-
-;; This function just forces a more costly detection of comments (using
-;; parse-partial-sexp from beginning-of-defun).  I.e. It avoids the problem of
-;; taking a `;' inside a string started on another line for a comment starter.
-;; Note: `newcomment' gets it right now since we set comment-use-global-state
-;; so we could get rid of it.   -stef
-(defun lisp-mode-auto-fill ()
-  (if (> (current-column) (current-fill-column))
-      (if (save-excursion
-	    (nth 4 (syntax-ppss (point))))
-	  (do-auto-fill)
-	(unless (and (boundp 'comment-auto-fill-only-comments)
-		     comment-auto-fill-only-comments)
-	  (let ((comment-start nil) (comment-start-skip nil))
-	    (do-auto-fill))))))
+(define-obsolete-function-alias 'lisp-mode-auto-fill 'do-auto-fill "23.1")
 
 (defcustom lisp-indent-offset nil
   "If non-nil, indent second line of expressions that many more columns."
diff -r 7870d07a291c -r 72eb648a4690 lisp/progmodes/scheme.el
--- a/lisp/progmodes/scheme.el	Sat Apr 19 19:30:53 2008 +0000
+++ b/lisp/progmodes/scheme.el	Sat Apr 19 19:35:09 2008 +0000
@@ -141,8 +141,6 @@
   ;; 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 'parse-sexp-ignore-comments)