(defun mv (fname) (interactive "FNew filename: ") (byte-code "ÂˆÃp!Ä !ˆ…Å!…ÆÇ !Ç!\"?…#È!ˆÅ !?….Ä !)‡" [oldfname fname nil buffer-file-name write-file file-exists-p string-equal expand-file-name delete-file] 10))