При установке по умолчанию Carbon Emacs на OS X копирование файла из Finder и восстановление его в emacs приводит к отображению только значка.
Как мне настроить его так, чтобы вместо него указывался путь к файлу?
Мне удалось отключить восстановление всех изображений (перетаскивание по-прежнему работает, если я действительно хочу, чтобы изображение было там), переопределив функцию, объявленную в mac-win.el (не скомпилированный файл не включен в установку по умолчанию).
в моем .emacs:
;; prohibit pasting of TIFFs
(defun x-selection-value (type)
(let ((data-types '(public.file-url
public.utf16-plain-text
com.apple.traditional-mac-plain-text))
text)
(while (and (null text) data-types)
(setq text (condition-case nil
(x-get-selection type (car data-types))
(error nil)))
(setq data-types (cdr data-types)))
(if text
(remove-text-properties 0 (length text) '(foreign-selection nil) text))
text))
оригинал был:
(defun x-selection-value (type)
(let ((data-types '(public.utf16-plain-text
com.apple.traditional-mac-plain-text
public.file-url))
text tiff-image)
(while (and (null text) data-types)
(setq text (condition-case nil
(x-get-selection type (car data-types))
(error nil)))
(setq data-types (cdr data-types)))
(if text
(remove-text-properties 0 (length text) '(foreign-selection nil) text))
(setq tiff-image (condition-case nil
(x-get-selection type 'public.tiff)
(error nil)))
(when tiff-image
(remove-text-properties 0 (length tiff-image)
'(foreign-selection nil) tiff-image)
(setq text (mac-TIFF-to-string tiff-image text)))
text))