Commit de285f27 authored by Chong Yidong's avatar Chong Yidong

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

docstrings.
parent d8ce500c
......@@ -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
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment