From d0fab8bb6f70d4fa83f28130f883315126caff05 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Mon, 11 May 2015 01:33:24 +0200 Subject: [PATCH] ox: Tiny refactoring * lisp/ox.el (org-export-resolve-fuzzy-link): Use `string-to-char' instead of (aref STRING 0). --- lisp/ox.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/ox.el b/lisp/ox.el index 8ee61c518..525039b8b 100644 --- a/lisp/ox.el +++ b/lisp/ox.el @@ -4032,7 +4032,7 @@ Return value can be an object, an element, or nil: Assume LINK type is \"fuzzy\". White spaces are not significant." (let* ((raw-path (org-element-property :path link)) - (match-title-p (eq (aref raw-path 0) ?*)) + (match-title-p (eq (string-to-char raw-path) ?*)) ;; Split PATH at white spaces so matches are space ;; insensitive. (path (org-split-string -- 2.11.4.GIT