branch: elpa/helm
commit 1327e97f14449ad980fe4345d21ba1adf07af39d
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Fix regexp matching private symbols in helm-occur
---
helm-occur.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/helm-occur.el b/helm-occur.el
index 5fa10aeb8e..2587e901e4 100644
--- a/helm-occur.el
+++ b/helm-occur.el
@@ -296,7 +296,7 @@ car of the shorthand association.
When no `read-symbol-shorthands' local value is found use PATTERN unmodified."
(if helm-occur-match-shorthands
(let ((shorthands (buffer-local-value 'read-symbol-shorthands buffer))
- (prefix (and (string-match "\\`\\([^-]+-\\)[^-]*" pattern)
+ (prefix (and (string-match "\\`\\(.*-\\)-?.**" pattern)
(match-string 1 pattern))))
(if (and shorthands prefix)
(helm-aif (or (assoc prefix shorthands)
