[Emacs-diffs] Changes to emacs/lisp/emulation/tpu-extras.el

[Richard M . Stallman]

Index: emacs/lisp/emulation/tpu-extras.el
diff -c emacs/lisp/emulation/tpu-extras.el:1.16 
emacs/lisp/emulation/tpu-extras.el:1.17
*** emacs/lisp/emulation/tpu-extras.el:1.16     Mon May 16 11:14:13 2005
--- emacs/lisp/emulation/tpu-extras.el  Sun May 22 13:31:22 2005
***************
*** 144,152 ****
    "Eliminate whitespace at ends of lines, if the cursor is free."
    (if (and (buffer-modified-p) tpu-cursor-free) (tpu-trim-line-ends)))
  
! (or (memq 'tpu-write-file-hook write-file-hooks)
!     (setq write-file-hooks
!         (cons 'tpu-write-file-hook write-file-hooks)))
  
  
  ;;;  Utility routines for implementing scroll margins
--- 144,152 ----
    "Eliminate whitespace at ends of lines, if the cursor is free."
    (if (and (buffer-modified-p) tpu-cursor-free) (tpu-trim-line-ends)))
  
! (or (memq 'tpu-write-file-hook write-file-functions)
!     (setq write-file-functions
!         (cons 'tpu-write-file-hook write-file-functions)))
  
  
  ;;;  Utility routines for implementing scroll margins