branch: elpa/helm
commit 2c639820ba784769b46abd5f47510d5f1b9776a4
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Fix *-apropos default symbols with org markers #2672
---
helm-elisp.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/helm-elisp.el b/helm-elisp.el
index b5d2984868..8b488a9d32 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -798,7 +798,10 @@ is only used to test DEFAULT."
(defun helm-apropos-get-default ()
(with-syntax-table emacs-lisp-mode-syntax-table
- (symbol-name (intern-soft (thing-at-point 'symbol)))))
+ (symbol-name (intern-soft
+ (helm-aand (thing-at-point 'symbol t)
+ (replace-regexp-in-string "\\`[~=]" "" it)
+ (replace-regexp-in-string "[~=]\\'" "" it))))))
;;;###autoload
(defun helm-apropos (default)
