Mercurial > emacs
changeset 11594:ddef149290ed
Removed reference to tpu-gnu-emacs18-p.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 26 Apr 1995 04:03:10 +0000 |
| parents | f5385353aae3 |
| children | 74168f918db7 |
| files | lisp/emulation/tpu-extras.el |
| diffstat | 1 files changed, 2 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emulation/tpu-extras.el Tue Apr 25 23:47:55 1995 +0000 +++ b/lisp/emulation/tpu-extras.el Wed Apr 26 04:03:10 1995 +0000 @@ -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 @@ ;;; 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."