dpkg: Remove obsolete variables

emacs-helm · Apr 5, 2018 · 0a6b401 · 0a6b401
1 parent e6ce15c
commit 0a6b401
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 24 deletions.
diff --git a/helm-system-packages-dpkg.el b/helm-system-packages-dpkg.el
@@ -50,12 +50,6 @@ Requirements:
 \\[helm-system-packages-dpkg-toggle-residuals]\t\tToggle display of package with residual configuration files.
 \\[helm-system-packages-toggle-descriptions]\t\tToggle display of package descriptions.")
 
-(defvar helm-system-packages-dpkg--names nil
-  "Cache of all package names.")
-
-(defvar helm-system-packages-dpkg--descriptions nil
-  "Cache of all package names with descriptions.")
-
 (defvar helm-system-packages-dpkg-map
   ;; M-U is reserved for `helm-unmark-all'.
   (let ((map (make-sparse-keymap)))
@@ -114,28 +108,13 @@ Requirements:
                        (push p res)))
          ((or
            (and helm-system-packages-dpkg--show-explicit-p
-                (memq 'helm-system-packages-dpkg-explicit face))
+                (memq 'helm-system-packages-explicit face))
            (and helm-system-packages-dpkg--show-dependencies-p
-                (memq 'helm-system-packages-dpkg-dependencies face))
+                (memq 'helm-system-packages-dependencies face))
            (and helm-system-packages-dpkg--show-residuals-p
-                (memq 'helm-system-packages-dpkg-residuals face)))
+                (memq 'helm-system-packages-residuals face)))
           (push (propertize p 'face (car face)) res)))))))
 
-(defface helm-system-packages-dpkg-explicit
-  '((t (:inherit font-lock-warning-face)))
-  "Face for explicitly installed packages."
-  :group 'helm-system-packages)
-
-(defface helm-system-packages-dpkg-dependencies
-  '((t (:inherit font-lock-comment-face :slant italic)))
-  "Face for packages installed as dependencies."
-  :group 'helm-system-packages)
-
-(defface helm-system-packages-dpkg-residuals
-  '((t (:inherit font-lock-string-face :slant italic)))
-  "Face for packages with left-over configuration files."
-  :group 'helm-system-packages)
-
 (defun helm-system-packages-dpkg-list-explicit ()
   "List explicitly installed packages."
   (split-string (with-temp-buffer

diff --git a/helm-system-packages.el b/helm-system-packages.el
@@ -125,6 +125,10 @@ This is only used for dependency display.")
   "Face for virtual packages."
   :group 'helm-system-packages)
 
+(defface helm-system-packages-residuals '((t (:slant italic)))
+  "Face for packages with left-over configuration files."
+  :group 'helm-system-packages)
+
 ;; Shut up byte compiler
 (declare-function eshell-interactive-process "esh-cmd.el")
 (declare-function eshell-send-input "esh-mode.el")