hiro/boon
1
0
Fork 0
mirror of https://github.com/vale981/boon synced 2025-03-05 09:31:43 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix #17

Browse source 
When last-char is a non-character even, the test was crashing
This commit is contained in:
Jean-Philippe Bernardy 2016-11-08 20:33:40 +01:00
parent dea1f7e830
commit a218610425
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
boon-arguments.el
View file

@ -255,7 +255,7 @@ See boon-regs.el."
(while (and (or kmv kms) (not (commandp kms)) (not (commandp kmv))) (while (and (or kmv kms) (not (commandp kms)) (not (commandp kmv)))
(let ((last-char (read-event (format "%s %s" msg my-prefix-arg)))) (let ((last-char (read-event (format "%s %s" msg my-prefix-arg))))
;; read-event, because mc badly advises read-char ;; read-event, because mc badly advises read-char
(if (and (>= last-char ?0) (<= last-char ?9)) (if (and (integerp last-char) (>= last-char ?0) (<= last-char ?9))
(setq my-prefix-arg (+ (- last-char ?0) (* 10 my-prefix-arg ))) (setq my-prefix-arg (+ (- last-char ?0) (* 10 my-prefix-arg )))
(if kms (setq kms (lookup-key kms (vector last-char)))) (if kms (setq kms (lookup-key kms (vector last-char))))
(if kmv (setq kmv (lookup-key kmv (vector last-char))))))) (if kmv (setq kmv (lookup-key kmv (vector last-char)))))))