[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el

[Richard M . Stallman]

Index: emacs/lisp/emacs-lisp/lisp-mode.el
diff -c emacs/lisp/emacs-lisp/lisp-mode.el:1.161 
emacs/lisp/emacs-lisp/lisp-mode.el:1.162
*** emacs/lisp/emacs-lisp/lisp-mode.el:1.161    Mon Aug 16 22:44:11 2004
--- emacs/lisp/emacs-lisp/lisp-mode.el  Sat Aug 28 14:00:38 2004
***************
*** 459,472 ****
  If CHAR is not a character, return nil."
    (and (integerp char)
         (eventp char)
!        (let ((c (event-basic-type char)))
         (concat
          "?"
          (mapconcat
           (lambda (modif)
             (cond ((eq modif 'super) "\\s-")
                   (t (string ?\\ (upcase (aref (symbol-name modif) 0)) ?-))))
!          (event-modifiers char) "")
          (cond
           ((memq c '(?\; ?\( ?\) ?\{ ?\} ?\[ ?\] ?\" ?\' ?\\)) (string ?\\ c))
           ((eq c 127) "\\C-?")
--- 459,478 ----
  If CHAR is not a character, return nil."
    (and (integerp char)
         (eventp char)
!        (let ((c (event-basic-type char))
!            (mods (event-modifiers char)))
!        ;; Prevent ?A from turning into ?\S-a.
!        (if (and (memq 'shift mods)
!                 (not (let ((case-fold-search nil))
!                        (char-equal c (upcase c)))))
!            (setq c (upcase c) mods nil))
         (concat
          "?"
          (mapconcat
           (lambda (modif)
             (cond ((eq modif 'super) "\\s-")
                   (t (string ?\\ (upcase (aref (symbol-name modif) 0)) ?-))))
!          mods "")
          (cond
           ((memq c '(?\; ?\( ?\) ?\{ ?\} ?\[ ?\] ?\" ?\' ?\\)) (string ?\\ c))
           ((eq c 127) "\\C-?")