emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/go-mode cf14ed3 033/495: comment unused function go--commo


From: ELPA Syncer
Subject: [nongnu] elpa/go-mode cf14ed3 033/495: comment unused function go--common-prefix
Date: Sat, 7 Aug 2021 09:04:38 -0400 (EDT)

branch: elpa/go-mode
commit cf14ed34d3e429658c800613daf88839b0ad9928
Author: Dominik Honnef <dominikh@fork-bomb.org>
Commit: Dominik Honnef <dominikh@fork-bomb.org>

    comment unused function go--common-prefix
---
 go-mode.el | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/go-mode.el b/go-mode.el
index 89a4b16..ec6660f 100644
--- a/go-mode.el
+++ b/go-mode.el
@@ -527,12 +527,14 @@ link in the kill ring."
                       (message "%s" (point))
                     (put-text-property (1- (point)) (point) 'syntax-table 
(string-to-syntax "."))))))))))
 
-(defun go--common-prefix (sequences)
-  (assert sequences)
-  (flet ((common-prefix (s1 s2)
-                        (let ((diff-pos (mismatch s1 s2)))
-                          (if diff-pos (subseq s1 0 diff-pos) s1))))
-    (reduce #'common-prefix sequences)))
+;; ;; Commented until we actually make use of this function
+;; (defun go--common-prefix (sequences)
+;;   ;; mismatch and reduce are cl
+;;   (assert sequences)
+;;   (flet ((common-prefix (s1 s2)
+;;                         (let ((diff-pos (mismatch s1 s2)))
+;;                           (if diff-pos (subseq s1 0 diff-pos) s1))))
+;;     (reduce #'common-prefix sequences)))
 
 (defun go-import-add (arg import)
   "Add a new import to the list of imports.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]