История изменений

Исправление Bad_ptr, 04.05.14 23:44 (текущая версия) :

(defun my-insert-file-name (filename &optional args)
  (interactive (list (read-file-name "Insert filename: ") current-prefix-arg))
  (cond ((eq '- args)
         (insert (file-relative-name filename)))
        ((not (null args))
         (insert (expand-file-name filename)))
        (t
         (insert filename))))

Исходная версия Bad_ptr, 04.05.14 23:43:

ладно, уговорил

(defun my-insert-file-name (filename &optional args)
  (interactive (list (read-file-name "Insert filename: ") current-prefix-arg))
  (message "Prefix: %s." args)
  (cond ((eq '- args)
         (insert (file-relative-name filename)))
        ((not (null args))
         (insert (expand-file-name filename)))
        (t
         (insert filename))))