copy-fname-to-killring default basename in lieu of easy kill ring pac…

…kage
PalaceChan · Nov 29, 2019 · 03c6ca2 · 03c6ca2
1 parent b39fc58
commit 03c6ca2
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/config.org b/config.org
@@ -181,13 +181,13 @@ kill current buffer no prompt
 copies current filename to kill-ring
 #+BEGIN_SRC emacs-lisp
   (defun ava/copy-fname-to-killring (&optional arg)
-    "Copy current buffer filename to kill ring. Only basename if called with prefix arg"
+    "Copy current filename (basename) to kill ring. Full name if called with prefix arg"
     (interactive "P")
     (let ((filename (if (equal major-mode 'dired-mode)
                         default-directory
                       (if arg
-                          (file-name-nondirectory (buffer-file-name))
-                        (buffer-file-name)
+                          (buffer-file-name)
+                        (file-name-nondirectory (buffer-file-name))
                         )
                       )))
       (when filename)