Commit c398358a authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(server-visit-files): Use add-to-history.

parent 4224caf8
...@@ -411,7 +411,7 @@ so don't mark these buffers specially, just visit them normally." ...@@ -411,7 +411,7 @@ so don't mark these buffers specially, just visit them normally."
;; deleted file, offer to write it. ;; deleted file, offer to write it.
(let* ((filen (car file)) (let* ((filen (car file))
(obuf (get-file-buffer filen))) (obuf (get-file-buffer filen)))
(push filen file-name-history) (add-to-history 'file-name-history filen)
(if (and obuf (set-buffer obuf)) (if (and obuf (set-buffer obuf))
(progn (progn
(cond ((file-exists-p filen) (cond ((file-exists-p filen)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment