mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

org-element: Tiny refactoring 

* lisp/org-element.el (org-element-headline-interpreter,
  org-element-inlinetask-interpreter): Use format control string
  instead of calling `char-to-string'.
This commit is contained in:
Nicolas Goaziou 2015-01-27 17:49:22 +01:00
parent 6dc26059cb
commit 6617e6dfa9
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org-element.el
View File

@ -982,7 +982,7 @@ CONTENTS is the contents of the element."
?*)
(and todo (concat " " todo))
(and commentedp (concat " " org-comment-string))
(and priority (format " [#%s]" (char-to-string priority)))
(and priority (format " [#%c]" priority))
" "
(if (and org-footnote-section
(org-element-property :footnote-section-p headline))
@ -1091,8 +1091,7 @@ CONTENTS is the contents of inlinetask."
(format ":%s:" (mapconcat 'identity tag-list ":")))))
(task (concat (make-string level ?*)
(and todo (concat " " todo))
(and priority
(format " [#%s]" (char-to-string priority)))
(and priority (format " [#%c]" priority))
(and title (concat " " title)))))
(concat task
;; Align tags.