[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/thingatpt.el,v
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/thingatpt.el,v |
Date: |
Wed, 22 Oct 2008 20:51:23 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 08/10/22 20:51:23
Index: thingatpt.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/thingatpt.el,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -b -r1.46 -r1.47
--- thingatpt.el 6 Aug 2008 22:36:55 -0000 1.46
+++ thingatpt.el 22 Oct 2008 20:51:23 -0000 1.47
@@ -437,15 +437,22 @@
(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
- [Emacs-diffs] Changes to emacs/lisp/thingatpt.el,v,
Chong Yidong <=