[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#835: 23.0.60; Quick calc is quietly disabled in view-mode
From: |
martin rudalics |
Subject: |
bug#835: 23.0.60; Quick calc is quietly disabled in view-mode |
Date: |
Mon, 01 Sep 2008 19:47:52 +0200 |
User-agent: |
Thunderbird 2.0.0.16 (Windows/20080708) |
> > When I do:
> >
> > $ emacs -Q -f view-mode
> >
> > and then "C-x * Q", nothing happens. ("C-x * *" works as expected.)
Any objections against the attached patch?
martin
*** calc/calc.el.~1.115.~ 2008-08-23 09:41:44.515625000 +0200
--- calc/calc.el 2008-09-01 19:43:05.515625000 +0200
***************
*** 1097,1105 ****
(let ((map (make-keymap)))
(mapc (lambda (x)
(define-key map (char-to-string (car x)) (cdr x))
! (when (string-match "abcdefhijklnopqrstuwxyz"
(char-to-string (car x)))
! (define-key map (char-to-string (- (car x) ?a -1)) (cdr x)))
(define-key map (format "\e%c" (car x)) (cdr x)))
'( ( ?a . calc-embedded-activate )
( ?b . calc-big-or-small )
--- 1097,1105 ----
(let ((map (make-keymap)))
(mapc (lambda (x)
(define-key map (char-to-string (car x)) (cdr x))
! (when (string-match "[abcdefhijklnopqrstuwxyz]"
(char-to-string (car x)))
! (define-key map (upcase (char-to-string (car x))) (cdr x)))
(define-key map (format "\e%c" (car x)) (cdr x)))
'( ( ?a . calc-embedded-activate )
( ?b . calc-big-or-small )
- bug#835: 23.0.60; Quick calc is quietly disabled in view-mode,
martin rudalics <=