Advertisement
Guest User

Untitled

a guest
Feb 26th, 2011
229
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.23 KB | None | 0 0
  1. (defun insert-file-name (file)
  2.     (interactive "F")
  3.     (insert file))
  4.  
  5. (defun insert-dir-name (dir)
  6.     (interactive "D")
  7.     (insert dir))
  8.  
  9. (global-set-key (kbd "C-c i f") 'insert-file-name)
  10. (global-set-key (kbd "C-c i d") 'insert-dir-name)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement