[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/embark 8525eea 4/4: Merge pull request #424 from minad/
From: |
ELPA Syncer |
Subject: |
[elpa] externals/embark 8525eea 4/4: Merge pull request #424 from minad/nits |
Date: |
Sat, 11 Dec 2021 18:57:22 -0500 (EST) |
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)