Ensure buffer file name

elp-revive · May 23, 2022 · 25c3cd0 · 25c3cd0
1 parent b2ec324
commit 25c3cd0
Showing 1 changed file with 14 additions and 14 deletions.
diff --git a/javap-mode.el b/javap-mode.el
@@ -93,28 +93,28 @@
          (new-b-name (concat "*javap " b-name ".class" "*"))
          (new-buf (get-buffer new-b-name))
          (old-buf (buffer-name))
-         (done (lambda (&rest args)
+         (done (lambda (&rest _)
                  (interactive)
                  (progn
                    (kill-buffer (current-buffer))
                    (kill-buffer old-buf)))))
-    (progn
-      (if new-buf
+    (if new-buf
+        (switch-to-buffer new-buf)
+      (let ((new-buf (get-buffer-create new-b-name)))
+        (progn
           (switch-to-buffer new-buf)
-        (let ((new-buf (get-buffer-create new-b-name)))
-          (progn
-            (switch-to-buffer new-buf)
-            (call-process "javap" nil new-buf nil "-c" "-l" "-classpath" "." b-name)
-            ;; (call-process "javap" nil new-buf nil "-c" "-l" "-package" "-protected" "-private" "-classpath" "." b-name)
-            (setq buffer-read-only 't)
-            (set-window-point (selected-window) 0))))
-      (javap-mode)
-      (local-set-key [(q)] done))))
+          (call-process "javap" nil new-buf nil "-c" "-l" "-classpath" "." b-name)
+          ;; (call-process "javap" nil new-buf nil "-c" "-l" "-package" "-protected" "-private" "-classpath" "." b-name)
+          (setq buffer-read-only 't)
+          (set-window-point (selected-window) 0))))
+    (javap-mode)
+    (local-set-key [(q)] done)))
 
 ;;;###autoload
 (add-hook 'find-file-hook
-          (lambda (&rest args)
-            (when (string= ".class" (substring (buffer-file-name) -6 nil))
+          (lambda (&rest _)
+            (when (and (buffer-file-name)
+                       (string= ".class" (substring (buffer-file-name) -6 nil)))
               (javap-buffer))))
 
 (provide 'javap-mode)