branch: elpa/helm
commit 27ff321bf38ab5e9184ce54c0557b6bb9f67b9ea
Author: Thierry Volpiatto <thie...@posteo.net>
Commit: Thierry Volpiatto <thie...@posteo.net>
Fix internal variable name prefix in *multi-match
---
helm-multi-match.el | 48 ++++++++++++++++++++++++------------------------
1 file changed, 24 insertions(+), 24 deletions(-)
diff --git a/helm-multi-match.el b/helm-multi-match.el
index a0936f1e5f..bfe5287fd0 100644
--- a/helm-multi-match.el
+++ b/helm-multi-match.el
@@ -88,14 +88,14 @@ If GREP-SPACE is used translate escaped space to \"\\s\"
instead of \"\\s-\"."
;;
;;
;; Internal.
-(defvar helm-mm-exact-pattern-str nil)
-(defvar helm-mm-exact-pattern-real nil)
+(defvar helm-mm--exact-pattern-str nil)
+(defvar helm-mm--exact-pattern-real nil)
(defun helm-mm-exact-get-pattern (pattern)
- (unless (equal pattern helm-mm-exact-pattern-str)
- (setq helm-mm-exact-pattern-str pattern
- helm-mm-exact-pattern-real (concat "^" (regexp-quote pattern) "$")))
- helm-mm-exact-pattern-real)
+ (unless (equal pattern helm-mm--exact-pattern-str)
+ (setq helm-mm--exact-pattern-str pattern
+ helm-mm--exact-pattern-real (concat "^" (regexp-quote pattern) "$")))
+ helm-mm--exact-pattern-real)
(cl-defun helm-mm-exact-match (candidate &optional (pattern helm-pattern))
@@ -111,14 +111,14 @@ If GREP-SPACE is used translate escaped space to \"\\s\"
instead of \"\\s-\"."
;;
;;
;; Internal
-(defvar helm-mm-prefix-pattern-str nil)
-(defvar helm-mm-prefix-pattern-real nil)
+(defvar helm-mm--prefix-pattern-str nil)
+(defvar helm-mm--prefix-pattern-real nil)
(defun helm-mm-prefix-get-pattern (pattern)
- (unless (equal pattern helm-mm-prefix-pattern-str)
- (setq helm-mm-prefix-pattern-str pattern
- helm-mm-prefix-pattern-real (concat "\n" pattern)))
- helm-mm-prefix-pattern-real)
+ (unless (equal pattern helm-mm--prefix-pattern-str)
+ (setq helm-mm--prefix-pattern-str pattern
+ helm-mm--prefix-pattern-real (concat "\n" pattern)))
+ helm-mm--prefix-pattern-real)
(defun helm-mm-prefix-match (candidate &optional pattern)
;; In filename completion basename and basedir may be
@@ -137,15 +137,15 @@ If GREP-SPACE is used translate escaped space to \"\\s\"
instead of \"\\s-\"."
;;
;;
;; Internal
-(defvar helm-mm-1-pattern-str nil)
-(defvar helm-mm-1-pattern-real nil)
+(defvar helm-mm--1-pattern-str nil)
+(defvar helm-mm--1-pattern-real nil)
(defun helm-mm-1-get-pattern (pattern)
- (unless (equal pattern helm-mm-1-pattern-str)
- (setq helm-mm-1-pattern-str pattern
- helm-mm-1-pattern-real
+ (unless (equal pattern helm-mm--1-pattern-str)
+ (setq helm-mm--1-pattern-str pattern
+ helm-mm--1-pattern-real
(concat "^" (helm-mm-1-make-regexp pattern))))
- helm-mm-1-pattern-real)
+ helm-mm--1-pattern-real)
(cl-defun helm-mm-1-match (candidate &optional (pattern helm-pattern))
(string-match (helm-mm-1-get-pattern pattern) candidate))
@@ -158,15 +158,15 @@ If GREP-SPACE is used translate escaped space to \"\\s\"
instead of \"\\s-\"."
;;
;;
;; Internal
-(defvar helm-mm-2-pattern-str nil)
-(defvar helm-mm-2-pattern-real nil)
+(defvar helm-mm--2-pattern-str nil)
+(defvar helm-mm--2-pattern-real nil)
(defun helm-mm-2-get-pattern (pattern)
- (unless (equal pattern helm-mm-2-pattern-str)
- (setq helm-mm-2-pattern-str pattern
- helm-mm-2-pattern-real
+ (unless (equal pattern helm-mm--2-pattern-str)
+ (setq helm-mm--2-pattern-str pattern
+ helm-mm--2-pattern-real
(concat "^.*" (helm-mm-1-make-regexp pattern))))
- helm-mm-2-pattern-real)
+ helm-mm--2-pattern-real)
(cl-defun helm-mm-2-match (candidate &optional (pattern helm-pattern))
(string-match (helm-mm-2-get-pattern pattern) candidate))
