diff options
| author | Joakim Verona | 2012-03-25 22:04:52 +0200 |
|---|---|---|
| committer | Joakim Verona | 2012-03-25 22:04:52 +0200 |
| commit | 75da28a3845b9dfa4e730cfa19c14edc52cbb222 (patch) | |
| tree | b04519bffcb21264cbe3ce8af13df7186548667f /lisp/button.el | |
| parent | b827329a89291ed68dd017c53976be7ce5ed3b22 (diff) | |
| parent | f514f6f0e3f8bbeb5212d0337e5bda5a9a4eaeb5 (diff) | |
| download | emacs-75da28a3845b9dfa4e730cfa19c14edc52cbb222.tar.gz emacs-75da28a3845b9dfa4e730cfa19c14edc52cbb222.zip | |
upstream
Diffstat (limited to 'lisp/button.el')
| -rw-r--r-- | lisp/button.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/button.el b/lisp/button.el index 07c98e668bd..3cf38fa64c6 100644 --- a/lisp/button.el +++ b/lisp/button.el | |||
| @@ -349,7 +349,9 @@ Also see `make-text-button'." | |||
| 349 | ;; Finding buttons in a buffer | 349 | ;; Finding buttons in a buffer |
| 350 | 350 | ||
| 351 | (defun button-at (pos) | 351 | (defun button-at (pos) |
| 352 | "Return the button at position POS in the current buffer, or nil." | 352 | "Return the button at position POS in the current buffer, or nil. |
| 353 | If the button at POS is a text property button, the return value | ||
| 354 | is a marker pointing to POS." | ||
| 353 | (let ((button (get-char-property pos 'button))) | 355 | (let ((button (get-char-property pos 'button))) |
| 354 | (if (or (overlayp button) (null button)) | 356 | (if (or (overlayp button) (null button)) |
| 355 | button | 357 | button |