141 |
(if clipboard |
(if clipboard |
142 |
(decode-coding-string clipboard selection-coding-system t))))) |
(decode-coding-string clipboard selection-coding-system t))))) |
143 |
|
|
144 |
|
;; Don't show the frame name; that's redundant. |
145 |
|
(setq-default mode-line-frame-identification " ") |
146 |
|
|
147 |
(defun mac-drag-n-drop (event) |
(defun mac-drag-n-drop (event) |
148 |
"Edit the files listed in the drag-n-drop event.\n\ |
"Edit the files listed in the drag-n-drop event.\n\ |
149 |
Switch to a buffer editing the last file dropped." |
Switch to a buffer editing the last file dropped." |
265 |
|
|
266 |
;; Tell read-char how to convert special chars to ASCII |
;; Tell read-char how to convert special chars to ASCII |
267 |
(put 'return 'ascii-character 13) |
(put 'return 'ascii-character 13) |
268 |
|
(put 'tab 'ascii-character ?\t) |
269 |
|
(put 'backspace 'ascii-character 127) |
270 |
|
(put 'escape 'ascii-character ?\e) |
271 |
|
|
272 |
;; |
;; |
273 |
;; Available colors |
;; Available colors |