update of packages

lisp/srefactor/srefactor-pkg.el

@@ -1,6 +1,6 @@
-(define-package "srefactor" "20180703.1810" "A refactoring tool based on Semantic parser framework"
+(define-package "srefactor" "20230504.617" "A refactoring tool based on Semantic parser framework"
   '((emacs "24.4"))
-  :commit "6f2c97d17fb70f4ca2112f5a2b99a8ec162004f5" :authors
+  :commit "95c70a94b5aad4c85b35569e2f2325047791153a" :authors
   '(("Do Hoang" . "tuhdo1710@gmail.com"))
   :keywords
   '("c" "languages" "tools")

lisp/srefactor/srefactor-ui.el

@@ -226,7 +226,7 @@ when the corresponding MENU-ITEM is selected."
                                  100)
                               (/ (* (frame-height) 10)
                                  100))
-        (when (and (fboundp 'evil-mode)
+        (when (and (boundp 'evil-mode)
                    evil-mode)
           (evil-local-mode)))
     (error (srefactor-ui--clean-up-menu-window)

lisp/srefactor/srefactor.el

@@ -361,7 +361,6 @@ FILE-OPTION is a file destination associated with OPERATION."
           (condition-case nil
               (progn
                 (setq other-files (projectile-get-other-files (buffer-file-name)
-                                                              (projectile-current-project-files)
                                                               nil))
                 (setq l (length other-files))
                 (setq file (concat (projectile-project-root)
@@ -824,7 +823,7 @@ BUFFER is the destination buffer from file user selects from contextual menu."
           (insert (srefactor--tag-templates-declaration-string parent)))
         (insert (srefactor--tag-function-string func-tag))
 
-        ;; insert const modifer for method
+        ;; insert const modifier for method
         (when (semantic-tag-get-attribute func-tag :methodconst-flag)
           (insert " const"))
 
@@ -1321,18 +1320,20 @@ complicated language construct, Semantic cannot retrieve it."
                                           ref-string)
                                          (t "")))))
      (t
-      (if (listp tag-type)
-          (concat (when const-p
-                    "const ")
-                  (when (srefactor--tag-struct-p tag)
-                    "struct ")
-                  (car tag-type)
-                  (cond
-                   (ref-level
-                    ref-string)
-                   (ptr-level
-                    ptr-string)))
-        tag-type)))))
+      (concat (when const-p
+                "const ")
+              (if (not (listp tag-type))
+                tag-type
+                (when (srefactor--tag-struct-p tag)
+                  "struct ")
+                (car tag-type))
+              (cond
+               (ref-level
+                ref-string)
+               (ptr-level
+                ptr-string)
+               (t
+                "")))))))
 
 (defun srefactor--tag-type-string-inner-template-list (tmpl-spec-list)
   (mapconcat (lambda (tmpl)