diff options
author | Kaushal Modi <kaushal.modi@gmail.com> | 2015-10-10 18:36:51 -0500 |
---|---|---|
committer | Jay Belanger <jay.p.belanger@gmail.com> | 2015-10-10 18:36:51 -0500 |
commit | ec0d4d24fd11b5040de9f7657b486c3b1e743071 (patch) | |
tree | bcda0e92e9ef618205b4ddd77e224957bffec5be /lisp/calc/calc-prog.el | |
parent | 89f2c79868e7bcc2fc5436796f063d1e903dea41 (diff) | |
download | emacs-ec0d4d24fd11b5040de9f7657b486c3b1e743071.tar.gz |
Allow numbers with different radixes to be yanked.
* lisp/calc/calc-yank.el (calc-yank): Allow radixes besides the
default base 10.
Diffstat (limited to 'lisp/calc/calc-prog.el')
-rw-r--r-- | lisp/calc/calc-prog.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el index c5a837d3260..8d97bc69a2d 100644 --- a/lisp/calc/calc-prog.el +++ b/lisp/calc/calc-prog.el @@ -1287,7 +1287,7 @@ Redefine the corresponding command." (setq rpt-count (if rpt-count (prefix-numeric-value rpt-count) 1000000)) (let* ((count 0) (parts nil) - (body (vector) ) + (body (vector)) (open last-command-event) (counter initial) ch) @@ -1300,7 +1300,7 @@ Redefine the corresponding command." (if (eq ch ?Z) (progn (setq ch (read-event) - body (vconcat body (vector ?Z ch) )) + body (vconcat body (vector ?Z ch))) (cond ((memq ch '(?\< ?\( ?\{)) (setq count (1+ count))) ((memq ch '(?\> ?\) ?\})) |