mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

(picture-substitute): Use command remapping instead of

Browse Source 
substitute-key-definition.
This commit is contained in:
Andreas Schwab 2003-01-12 20:51:36 +00:00
parent 5d1825c6fb
commit e70cccc0c8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/textmodes/picture.el
View File

@ -1,6 +1,6 @@
;;; picture.el --- "Picture mode" -- editing using quarter-plane screen model
;; Copyright (C) 1985, 1994, 2002 Free Software Foundation, Inc.
;; Copyright (C) 1985, 1994, 2002, 2003 Free Software Foundation, Inc.
;; Author: K. Shane Hartman
;; Maintainer: FSF
@ -590,7 +590,7 @@ Leaves the region surrounding the rectangle."
(defvar picture-mode-map nil)
(defun picture-substitute (oldfun newfun)
(substitute-key-definition oldfun newfun picture-mode-map global-map))
(define-key picture-mode-map (vector 'remap oldfun) newfun))
(if (not picture-mode-map)
(progn