[elpa] externals/embark 8525eea 4/4: Merge pull request #424 from minad/nits

[ELPA Syncer]

branch: externals/embark
commit 8525eeadde99e985180860cbd431f95a37191b40
Merge: 204fadd 4decac9
Author: Omar Antolín Camarena <omar.antolin@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #424 from minad/nits
    
    Nits
---
 embark.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/embark.el b/embark.el
index c61778b..b3bfcb7 100644
--- a/embark.el
+++ b/embark.el
@@ -855,7 +855,7 @@ As a convenience, in Org Mode an initial ' or surrounding 
== or
                   ;; default definition from outline.el
                   (or (bound-and-true-p outline-regexp) "[*\^L]+"))))
       (require 'outline) ;; Ensure that outline commands are available
-      `(heading ,(buffer-substring-no-properties beg end) ,beg . ,end))))
+      `(heading ,(buffer-substring beg end) ,beg . ,end))))
 
 (defun embark-target-top-minibuffer-completion ()
   "Target the top completion candidate in the minibuffer.
@@ -950,7 +950,7 @@ If CYCLE is non-nil bind `embark-cycle'."
   (unless (stringp target)
     (setq target (format "%s" target)))
   (if-let (pos (string-match-p "\n" target))
-      (concat (substring target 0 pos) "…")
+      (concat (car (split-string target "\n" 'omit-nulls "\\s-*")) "…")
     target))
 
 (defun embark--act-label (rep multi)