Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defvar azh/carbon-emacs-shell-program-name "iTerm")
- (defun azh/close-frame ()
- (ignore-errors (make-frame-invisible azh/frame))
- (when (and (featurep 'carbon-emacs-package)
- (fboundp 'do-applescript))
- (let ((applescript (format "tell application \"%s\"
- activate
- end" azh/carbon-emacs-shell-program-name)))
- (funcall 'do-applescript applescript))))
Add Comment
Please, Sign In to add comment