diff options
| -rw-r--r-- | lisp/thingatpt.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el index 6da92490653..214f6dcfde1 100644 --- a/lisp/thingatpt.el +++ b/lisp/thingatpt.el | |||
| @@ -384,9 +384,13 @@ Signal an error if the entire string was not used." | |||
| 384 | (error nil)))) | 384 | (error nil)))) |
| 385 | (if (or (not pred) (funcall pred sexp)) sexp))) | 385 | (if (or (not pred) (funcall pred sexp)) sexp))) |
| 386 | 386 | ||
| 387 | ;;;###autoload | ||
| 387 | (defun sexp-at-point () (form-at-point 'sexp)) | 388 | (defun sexp-at-point () (form-at-point 'sexp)) |
| 389 | ;;;###autoload | ||
| 388 | (defun symbol-at-point () (form-at-point 'sexp 'symbolp)) | 390 | (defun symbol-at-point () (form-at-point 'sexp 'symbolp)) |
| 391 | ;;;###autoload | ||
| 389 | (defun number-at-point () (form-at-point 'sexp 'numberp)) | 392 | (defun number-at-point () (form-at-point 'sexp 'numberp)) |
| 393 | ;;;###autoload | ||
| 390 | (defun list-at-point () (form-at-point 'list 'listp)) | 394 | (defun list-at-point () (form-at-point 'list 'listp)) |
| 391 | 395 | ||
| 392 | ;; thingatpt.el ends here. | 396 | ;; thingatpt.el ends here. |