>From 99f16050e327f1a7d04e6c539fb4a5727a2ed459 Mon Sep 17 00:00:00 2001 From: Alec Berryman Date: Sun, 9 Nov 2008 14:03:04 -0500 Subject: [PATCH] iresize: always replace the resize keymap The name set-resize-keys indicates to me that the values given will override the current resize keys. --- iresize.lisp | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/iresize.lisp b/iresize.lisp index 2833aeb..3d6a71f 100644 --- a/iresize.lisp +++ b/iresize.lisp @@ -54,7 +54,7 @@ (update-resize-map)) (defun update-resize-map () - (let ((m (or *resize-map* (setf *resize-map* (make-sparse-keymap))))) + (let ((m (setf *resize-map* (make-sparse-keymap)))) (let ((i *resize-increment*)) (labels ((dk (m k c) (define-key m k (format nil c i)))) -- 1.5.6.5