mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-23 18:47:57 +00:00
Code Issues Releases Activity

Removed reference to tpu-gnu-emacs18-p.

Browse Source
This commit is contained in:
Richard M. Stallman 1995-04-26 04:03:10 +00:00
parent b94daf1e9f
commit 158a958d6a
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/emulation/tpu-extras.el
View File

@ -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."