Fix unintended renaming

pull/1/head
Darrell Anderson 11 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 ;;; hvis filen ikke længere eksisterer, lader vi server-visit-files
;;; tage sig af det ;;; tage sig af det
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

@ -247,8 +247,8 @@ Works only for visiting one buffer at a time."
;;; if file exists no longer, we let server-visit-files ;;; if file exists no longer, we let server-visit-files
;;; deal with that ;;; deal with that
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

@ -250,8 +250,8 @@ Works only for visiting one buffer at a time."
;;; if file exists no longer, we let server-visit-files ;;; if file exists no longer, we let server-visit-files
;;; deal with that ;;; deal with that
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

@ -246,8 +246,8 @@ Works only for visiting one buffer at a time."
;;; if file exists no longer, we let server-visit-files ;;; if file exists no longer, we let server-visit-files
;;; deal with that ;;; deal with that
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

@ -228,8 +228,8 @@ Works only for visiting one buffer at a time."
;;; if file exists no longer, we let server-visit-files ;;; if file exists no longer, we let server-visit-files
;;; deal with that ;;; deal with that
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

@ -246,8 +246,8 @@ Funziona solo per visitare un buffer alla volta."
;;; if file exists no longer, we let server-visit-files ;;; if file exists no longer, we let server-visit-files
;;; deal with that ;;; deal with that
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

@ -246,8 +246,8 @@ Works only for visiting one buffer at a time."
;;; if file exists no longer, we let server-visit-files ;;; if file exists no longer, we let server-visit-files
;;; deal with that ;;; deal with that
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

@ -246,8 +246,8 @@ Works only for visiting one buffer at a time."
;;; if file exists no longer, we let server-visit-files ;;; if file exists no longer, we let server-visit-files
;;; deal with that ;;; deal with that
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

@ -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 ;;; se o arquivo não existir mais, nós deixamos server-visit-files
;;; negociar com ele ;;; negociar com ele
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

@ -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

@ -167,8 +167,8 @@
(set-visited-file-modtime))) (set-visited-file-modtime)))
;;; ak súbor už neexistuje, nech sa o to postará server-visit-files ;;; ak súbor už neexistuje, nech sa o to postará 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

@ -246,8 +246,8 @@ Works only for visiting one buffer at a time."
;;; if file exists no longer, we let server-visit-files ;;; if file exists no longer, we let server-visit-files
;;; deal with that ;;; deal with that
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

Loading…
Cancel
Save