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
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
