diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-08-09 06:18:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-08-09 06:18:02 +0000 |
| commit | 0db70aa270d5caf38da1653d7fa9527e73e2d7c0 (patch) | |
| tree | f8b89f795cd0d3bb1bf63949b408a802c559b1f0 /lisp/emulation/tpu-extras.el | |
| parent | 2c5725d29c46fe013c4f5ce7d8ccfc4728d692cc (diff) | |
| download | emacs-0db70aa270d5caf38da1653d7fa9527e73e2d7c0.tar.gz | |
(edit-picture-hook): Use add-hook to modify it.
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 fae4e9feccd..22fb46a2d07 100644 --- a/lisp/emulation/tpu-extras.el +++ b/lisp/emulation/tpu-extras.el @@ -21,7 +21,7 @@ ;; along with GNU Emacs; see the file COPYING. If not, write to ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. -;;; Revision: $Id: tpu-extras.el,v 3.3 1993/08/01 21:38:06 riepel Exp $ +;;; Revision: $Id: tpu-extras.el,v 1.2 1993/08/04 08:19:13 rms Exp rms $ ;;; Commentary: @@ -105,7 +105,7 @@ ;;; Revision Information -(defconst tpu-extras-revision "$Revision: 3.3 $" +(defconst tpu-extras-revision "$Revision: 1.2 $" "Revision number of the TPU-edt extras.") @@ -133,7 +133,7 @@ the previous line when starting from a line beginning.") ;;; Hooks -- Set cursor free in picture mode. ;;; Clean up when writing a file from cursor free mode. -(setq edit-picture-hook 'tpu-set-cursor-free) +(add-hook 'edit-picture-hook 'tpu-set-cursor-free) (defun tpu-write-file-hook nil "Eliminate whitespace at ends of lines, if the cursor is free." |