Fix unintended renaming

pull/1/head
Darrell Anderson 10 years ago
parent 1fee989c3d
commit e03dba6fa9

@ -246,8 +246,8 @@ tex --src-specials minfil.tex
;;; hvis filen ikke længere eksisterer, lader vi server-visit-files
;;; tage sig af det
t)
(setq buf (find-file-noselect filen)))
(setq this-buf-modified-p (buffer-modified-p buf))
(set buf (find-file-noselect filen)))
(set this-buf-modified-p (buffer-modified-p buf))
(set-buffer buf)
(set-buffer-modified-p nil)
ad-do-it

@ -247,8 +247,8 @@ Works only for visiting one buffer at a time."
;;; if file exists no longer, we let server-visit-files
;;; deal with that
t)
(setq buf (find-file-noselect filen)))
(setq this-buf-modified-p (buffer-modified-p buf))
(set buf (find-file-noselect filen)))
(set this-buf-modified-p (buffer-modified-p buf))
(set-buffer buf)
(set-buffer-modified-p nil)
ad-do-it

@ -250,8 +250,8 @@ Works only for visiting one buffer at a time."
;;; if file exists no longer, we let server-visit-files
;;; deal with that
t)
(setq buf (find-file-noselect filen)))
(setq this-buf-modified-p (buffer-modified-p buf))
(set buf (find-file-noselect filen)))
(set this-buf-modified-p (buffer-modified-p buf))
(set-buffer buf)
(set-buffer-modified-p nil)
ad-do-it

@ -246,8 +246,8 @@ Works only for visiting one buffer at a time."
;;; if file exists no longer, we let server-visit-files
;;; deal with that
t)
(setq buf (find-file-noselect filen)))
(setq this-buf-modified-p (buffer-modified-p buf))
(set buf (find-file-noselect filen)))
(set this-buf-modified-p (buffer-modified-p buf))
(set-buffer buf)
(set-buffer-modified-p nil)
ad-do-it

@ -228,8 +228,8 @@ Works only for visiting one buffer at a time."
;;; if file exists no longer, we let server-visit-files
;;; deal with that
t)
(setq buf (find-file-noselect filen)))
(setq this-buf-modified-p (buffer-modified-p buf))
(set buf (find-file-noselect filen)))
(set this-buf-modified-p (buffer-modified-p buf))
(set-buffer buf)
(set-buffer-modified-p nil)
ad-do-it

@ -246,8 +246,8 @@ Funziona solo per visitare un buffer alla volta."
;;; if file exists no longer, we let server-visit-files
;;; deal with that
t)
(setq buf (find-file-noselect filen)))
(setq this-buf-modified-p (buffer-modified-p buf))
(set buf (find-file-noselect filen)))
(set this-buf-modified-p (buffer-modified-p buf))
(set-buffer buf)
(set-buffer-modified-p nil)
ad-do-it

@ -246,8 +246,8 @@ Works only for visiting one buffer at a time."
;;; if file exists no longer, we let server-visit-files
;;; deal with that
t)
(setq buf (find-file-noselect filen)))
(setq this-buf-modified-p (buffer-modified-p buf))
(set buf (find-file-noselect filen)))
(set this-buf-modified-p (buffer-modified-p buf))
(set-buffer buf)
(set-buffer-modified-p nil)
ad-do-it

@ -246,8 +246,8 @@ Works only for visiting one buffer at a time."
;;; if file exists no longer, we let server-visit-files
;;; deal with that
t)
(setq buf (find-file-noselect filen)))
(setq this-buf-modified-p (buffer-modified-p buf))
(set buf (find-file-noselect filen)))
(set this-buf-modified-p (buffer-modified-p buf))
(set-buffer buf)
(set-buffer-modified-p nil)
ad-do-it

@ -246,8 +246,8 @@ Funciona somente para acessar um buffer por vez."
;;; se o arquivo não existir mais, nós deixamos server-visit-files
;;; negociar com ele
t)
(setq buf (find-file-noselect filen)))
(setq this-buf-modified-p (buffer-modified-p buf))
(set buf (find-file-noselect filen)))
(set this-buf-modified-p (buffer-modified-p buf))
(set-buffer buf)
(set-buffer-modified-p nil)
ad-do-it

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

@ -167,8 +167,8 @@
(set-visited-file-modtime)))
;;; ak súbor už neexistuje, nech sa o to postará server-visit-files
t)
(setq buf (find-file-noselect filen)))
(setq this-buf-modified-p (buffer-modified-p buf))
(set buf (find-file-noselect filen)))
(set this-buf-modified-p (buffer-modified-p buf))
(set-buffer buf)
(set-buffer-modified-p nil)
ad-do-it

@ -246,8 +246,8 @@ Works only for visiting one buffer at a time."
;;; if file exists no longer, we let server-visit-files
;;; deal with that
t)
(setq buf (find-file-noselect filen)))
(setq this-buf-modified-p (buffer-modified-p buf))
(set buf (find-file-noselect filen)))
(set this-buf-modified-p (buffer-modified-p buf))
(set-buffer buf)
(set-buffer-modified-p nil)
ad-do-it

Loading…
Cancel
Save