diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-05-13 12:37:53 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-05-13 12:37:53 +0200 |
commit | fe0f30e02276391e9b4a56c0c8af2ec9a9efdb04 (patch) | |
tree | 87e89ade904ab8dbd5c0d5958a63818c6567f261 | |
parent | 0e7062678eb224027e5eca70a205430083a13a64 (diff) | |
download | org-mode-fe0f30e02276391e9b4a56c0c8af2ec9a9efdb04.tar.gz |
org-element: Tiny refactoring
* lisp/org-element.el (org-element-link-parser): Use `string-to-char'
instead of (aref STRING 0).
-rw-r--r-- | lisp/org-element.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org-element.el b/lisp/org-element.el index 9037b37..be19dd2 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -3062,7 +3062,7 @@ Assume point is at the beginning of the link." ((string-match "\\`(\\(.*\\))\\'" raw-link) (setq type "coderef" path (match-string 1 raw-link))) ;; Custom-id type: PATH is the name of the custom id. - ((= (aref raw-link 0) ?#) + ((= (string-to-char raw-link) ?#) (setq type "custom-id" path (substring raw-link 1))) ;; Fuzzy type: Internal link either matches a target, an ;; headline name or nothing. PATH is the target or |