diff options
| author | Glenn Morris <rgm@gnu.org> | 2011-01-22 13:02:49 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2011-01-22 13:02:49 -0800 |
| commit | ce5582082cda8eb30f4deba6ae524c1a57b6b5fd (patch) | |
| tree | c171bb529a1ed839e023a134d48fed0ea29386ce | |
| parent | d647640760eedb9dc1fe8d1ce77edea97506dc1a (diff) | |
| download | emacs-ce5582082cda8eb30f4deba6ae524c1a57b6b5fd.tar.gz | |
* lisp/simple.el (do-auto-fill): Give it a doc string.
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | 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 <rgm@gnu.org> + * 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 <cyd@stupidchicken.com> 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 |