diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-10-06 09:44:35 +0200 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-10-06 09:44:35 +0200 |
| commit | e7911a0fb1703601da6b8b3474d6d53ab3a61b8d (patch) | |
| tree | b0707f10d9916906210ef17c87205e38604380b9 | |
| parent | 5cc69a9ebfbb966a8e2a22f296b5d30827878ae5 (diff) | |
| download | org-mode-e7911a0fb1703601da6b8b3474d6d53ab3a61b8d.tar.gz | |
org-macs: Add missing docstring
* lisp/org-macs.el (org-current-line-string): Add missing docstring.
| -rw-r--r-- | lisp/org-macs.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/org-macs.el b/lisp/org-macs.el index fa052a9..7ffcca7 100644 --- a/lisp/org-macs.el +++ b/lisp/org-macs.el @@ -887,7 +887,11 @@ removed." (org-unbracket-string "\"" "\"" string)) (defsubst org-current-line-string (&optional to-here) - (buffer-substring (point-at-bol) (if to-here (point) (point-at-eol)))) + "Return current line, as a string. +If optional argument TO-HERE is non-nil, return string from +beginning of line up to point." + (buffer-substring (line-beginning-position) + (if to-here (point) (line-end-position)))) (defun org-shorten-string (s maxlength) "Shorten string S so that it is no longer than MAXLENGTH characters. |