martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(edit-picture-hook): Use add-hook to modify it.

Browse Source
This commit is contained in:
Richard M. Stallman
1993-08-09 06:18:02 +00:00
parent 2c5725d29c
commit 0db70aa270
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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