From: Chong Yidong <cyd@stupidchicken.com>
Date: Wed, 22 Oct 2008 20:51:23 +0000 (+0000)
Subject: (sexp-at-point, symbol-at-point, number-at-point, list-at-point): Add
X-Git-Tag: emacs-pretest-23.0.90~2247
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=de285f273dc8cc93824c527bcf2c19d07cf2bdf7;p=emacs.git

(sexp-at-point, symbol-at-point, number-at-point, list-at-point): Add
docstrings.
---

diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 6268d96c526..58dc08649de 100644
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -437,15 +437,22 @@ Signal an error if the entire string was not used."
     (if (or (not pred) (funcall pred sexp)) sexp)))
 
 ;;;###autoload
-(defun sexp-at-point ()   (form-at-point 'sexp))
+(defun sexp-at-point ()
+  "Return the sexp at point, or nil if none is found."
+  (form-at-point 'sexp))
 ;;;###autoload
 (defun symbol-at-point ()
+  "Return the symbol at point, or nil if none is found."
   (let ((thing (thing-at-point 'symbol)))
     (if thing (intern thing))))
 ;;;###autoload
-(defun number-at-point () (form-at-point 'sexp 'numberp))
+(defun number-at-point ()
+  "Return the number at point, or nil if none is found."
+  (form-at-point 'sexp 'numberp))
 ;;;###autoload
-(defun list-at-point ()   (form-at-point 'list 'listp))
+(defun list-at-point ()
+  "Return the Lisp list at point, or nil if none is found."
+  (form-at-point 'list 'listp))
 
 ;; arch-tag: bb65a163-dae2-4055-aedc-fe11f497f698
 ;;; thingatpt.el ends here