Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
fcdc4d67
Commit
fcdc4d67
authored
Feb 27, 1999
by
Kenichi Handa
Browse files
(select-safe-coding-system): Be sure
to show a buffer being decoded.
parent
1b3172da
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
4 deletions
+8
-4
lisp/international/mule-cmds.el
lisp/international/mule-cmds.el
+8
-4
No files found.
lisp/international/mule-cmds.el
View file @
fcdc4d67
...
...
@@ -482,7 +482,7 @@ and TO is ignored."
(
and
default-coding-system
(
coding-system-get
default-coding-system
'safe-charsets
))))
overlays
)
show-position
overlays
)
(
save-excursion
;; Highlight characters that default-coding-system can't encode.
(
when
(
integerp
from
)
...
...
@@ -492,8 +492,8 @@ and TO is ignored."
(
re-search-forward
"[^\000-\177]"
to
t
))
(
setq
found
(
assq
(
char-charset
(
preceding-char
))
non-safe-chars
))))
(
beginning-of
-line
)
(
set
-window-start
(
selected-window
)
(
point
))
(
forward
-line
-1
)
(
set
q
show-position
(
point
))
(
save-excursion
(
while
(
and
(
<
(
length
overlays
)
256
)
(
re-search-forward
"[^\000-\177]"
to
t
))
...
...
@@ -507,7 +507,11 @@ and TO is ignored."
;; At last, ask a user to select a proper coding system.
(
unwind-protect
(
save-window-excursion
;; At first, show a helpful message.
(
when
show-position
;; At first, be sure to show the current buffer.
(
set-window-buffer
(
selected-window
)
(
current-buffer
))
(
set-window-start
(
selected-window
)
show-position
))
;; Then, show a helpful message.
(
with-output-to-temp-buffer
"*Warning*"
(
save-excursion
(
set-buffer
standard-output
)
...
...
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