Commit 2901e6a5 authored by Robert Strandh's avatar Robert Strandh

Fixed a problem introduced by a recent change to the command loop, where

the numeric argument flag was not replaced in commands.
parent b6b9ed4e
......@@ -285,20 +285,22 @@
(object)
(loop
for gestures = '()
for numarg = (read-numeric-argument :stream *standard-input*)
do (loop (setf *current-gesture* (climacs-read-gesture))
(setf gestures (nconc gestures (list *current-gesture*)))
(let ((item (find-gestures gestures 'global-climacs-table)))
(cond ((not item)
(beep) (return))
((eq (command-menu-item-type item) :command)
(let ((command (command-menu-item-value item)))
(unless (consp command)
(setf command (list command)))
(setf command (substitute-numeric-argument-marker command numarg))
(do-command command)
(return)))
(t nil))))
do (multiple-value-bind (numarg numargp)
(read-numeric-argument :stream *standard-input*)
(loop (setf *current-gesture* (climacs-read-gesture))
(setf gestures (nconc gestures (list *current-gesture*)))
(let ((item (find-gestures gestures 'global-climacs-table)))
(cond ((not item)
(beep) (return))
((eq (command-menu-item-type item) :command)
(let ((command (command-menu-item-value item)))
(unless (consp command)
(setf command (list command)))
(setf command (substitute-numeric-argument-marker command numarg))
(setf command (substitute-numeric-argument-p command numargp))
(do-command command)
(return)))
(t nil)))))
(update-climacs))
(t
(do-command object)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment