blob: b4c474baf3b909e35c6a2ff5138d53a9174bb9dc (
plain)
1
2
3
4
5
6
7
8
|
(let ((f (make-temp-file "h-e-" nil ".org")))
(with-temp-file f (insert "* real\n"))
(let* ((real (find-file-noselect f))
(temp (cdr `(buffer . ,(eval `(let ((vc-follow-symlinks t) (find-file-hook nil))
(find-file-noselect ,f 'nowarn)))))))
(message "find-file-temporarily returned the USER'S buffer: %s (same=%s) name=%s"
(buffer-name temp) (eq real temp) (buffer-name real)))
(delete-file f))
|
