From ce5582082cda8eb30f4deba6ae524c1a57b6b5fd Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 22 Jan 2011 13:02:49 -0800 Subject: [PATCH] * lisp/simple.el (do-auto-fill): Give it a doc string. --- lisp/ChangeLog | 2 ++ lisp/simple.el | 15 ++++++--------- 2 files changed, 8 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 789d646f6d0..acf25f155db 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -5,6 +5,8 @@ 2011-01-22 Glenn Morris + * simple.el (do-auto-fill): Give it a doc string. + * button.el (make-text-button): Doc fix. (See bug#7881) 2011-01-22 Chong Yidong diff --git a/lisp/simple.el b/lisp/simple.el index 4d3a46cb813..d267089214c 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1,8 +1,8 @@ ;;; simple.el --- basic editing commands for Emacs -;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, 1999, -;; 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 -;; Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1996, 1997, 1998, +;; 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, +;; 2010, 2011 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: internal @@ -5007,12 +5007,10 @@ If optional arg REALLY-WORD is non-nil, it finds just a word." regexp) :group 'fill) -;; This function is used as the auto-fill-function of a buffer -;; when Auto-Fill mode is enabled. -;; It returns t if it really did any work. -;; (Actually some major modes use a different auto-fill function, -;; but this one is the default one.) (defun do-auto-fill () + "The default value for `normal-auto-fill-function'. +This is the default auto-fill function, some major modes use a different one. +Returns t if it really did any work." (let (fc justify give-up (fill-prefix fill-prefix)) (if (or (not (setq justify (current-justification))) @@ -6666,5 +6664,4 @@ warning using STRING as the message.") (provide 'simple) -;; arch-tag: 24af67c0-2a49-44f6-b3b1-312d8b570dfd ;;; simple.el ends here -- 2.39.5