diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-05-22 13:31:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-05-22 13:31:22 +0000 |
| commit | 14737e610eb6d94b179f6a8b414fcd3887bcb736 (patch) | |
| tree | f01db69035c09b0990549481533e80731d57345f /lisp/emulation/tpu-extras.el | |
| parent | 918720a8167ba4758b9a9522bd9038ea58dce55e (diff) | |
| download | emacs-14737e610eb6d94b179f6a8b414fcd3887bcb736.tar.gz | |
Use write-file-functions instead of write-file-hooks.
Diffstat (limited to 'lisp/emulation/tpu-extras.el')
| -rw-r--r-- | lisp/emulation/tpu-extras.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/emulation/tpu-extras.el b/lisp/emulation/tpu-extras.el index 9c417dd3a40..427ef19bccd 100644 --- a/lisp/emulation/tpu-extras.el +++ b/lisp/emulation/tpu-extras.el @@ -144,9 +144,9 @@ the previous line when starting from a line beginning." "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))) +(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 |