Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
87fdf320
Commit
87fdf320
authored
Aug 28, 2004
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(prin1-char): Put `shift' modifier into the basic character,
if it has an uppercase form.
parent
1b6d517f
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
2 deletions
+8
-2
lisp/emacs-lisp/lisp-mode.el
lisp/emacs-lisp/lisp-mode.el
+8
-2
No files found.
lisp/emacs-lisp/lisp-mode.el
View file @
87fdf320
...
...
@@ -459,14 +459,20 @@ alternative printed representations that can be displayed."
If CHAR is not a character, return nil."
(
and
(
integerp
char
)
(
eventp
char
)
(
let
((
c
(
event-basic-type
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
))
?-
))))
(
event-modifiers
char
)
""
)
mods
""
)
(
cond
((
memq
c
'
(
?\;
?\(
?\)
?\{
?\}
?\[
?\]
?\"
?\'
?\\
))
(
string
?\\
c
))
((
eq
c
127
)
"\\C-?"
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment