diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-04-26 04:03:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-04-26 04:03:10 +0000 |
| commit | fa6ee6624d79f8f2d8df86b430778119770b0928 (patch) | |
| tree | 3396335739f2d8189a7622608bc4c822ba04ae19 /lisp/emulation/tpu-extras.el | |
| parent | 9b62ecb985a1981c61aa1a13a5d76e8e0df148b2 (diff) | |
| download | emacs-fa6ee6624d79f8f2d8df86b430778119770b0928.tar.gz | |
Removed reference to tpu-gnu-emacs18-p.
Diffstat (limited to 'lisp/emulation/tpu-extras.el')
| -rw-r--r-- | lisp/emulation/tpu-extras.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/emulation/tpu-extras.el b/lisp/emulation/tpu-extras.el index ee5400ed6fc..6df0df005d8 100644 --- a/lisp/emulation/tpu-extras.el +++ b/lisp/emulation/tpu-extras.el @@ -1,6 +1,6 @@ ;;; tpu-extras.el --- Scroll margins and free cursor mode for TPU-edt -;; Copyright (C) 1993, 1994 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc. ;; Author: Rob Riepel <riepel@networking.stanford.edu> ;; Maintainer: Rob Riepel <riepel@networking.stanford.edu> @@ -131,11 +131,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. -(if tpu-gnu-emacs18-p - (or (memq 'tpu-set-cursor-free edit-picture-hook) - (setq edit-picture-hook - (cons 'tpu-set-cursor-free edit-picture-hook))) - (add-hook 'picture-mode-hook 'tpu-set-cursor-free)) +(add-hook 'picture-mode-hook 'tpu-set-cursor-free) (defun tpu-write-file-hook nil "Eliminate whitespace at ends of lines, if the cursor is free." |