mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +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 ;;; 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 ;; Author: K. Shane Hartman
;; Maintainer: FSF ;; Maintainer: FSF
@ -590,7 +590,7 @@ Leaves the region surrounding the rectangle."
(defvar picture-mode-map nil) (defvar picture-mode-map nil)
(defun picture-substitute (oldfun newfun) (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) (if (not picture-mode-map)
(progn (progn