|
|
@ -249,8 +249,8 @@ tex --src-specials myfile.tex
|
|
|
|
;;; если файл больше не существует, уведомляем
|
|
|
|
;;; если файл больше не существует, уведомляем
|
|
|
|
;;; об этом server-visit-files.
|
|
|
|
;;; об этом server-visit-files.
|
|
|
|
t)
|
|
|
|
t)
|
|
|
|
(setq buf (find-file-noselect filen)))
|
|
|
|
(set buf (find-file-noselect filen)))
|
|
|
|
(setq this-buf-modified-p (buffer-modified-p buf))
|
|
|
|
(set this-buf-modified-p (buffer-modified-p buf))
|
|
|
|
(set-buffer buf)
|
|
|
|
(set-buffer buf)
|
|
|
|
(set-buffer-modified-p nil)
|
|
|
|
(set-buffer-modified-p nil)
|
|
|
|
ad-do-it
|
|
|
|
ad-do-it
|
|
|
|