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
3eb6864c
Commit
3eb6864c
authored
May 25, 1998
by
Richard M. Stallman
Browse files
(generate-file-autoloads): Set
print-escape-nonascii when printing autoload form.
parent
f10f6948
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
3 deletions
+6
-3
lisp/emacs-lisp/autoload.el
lisp/emacs-lisp/autoload.el
+6
-3
No files found.
lisp/emacs-lisp/autoload.el
View file @
3eb6864c
...
...
@@ -240,7 +240,8 @@ are used."
(
elt
(
cdr
p
)))
(
setcdr
p
nil
)
(
princ
"\n("
outbuf
)
(
let
((
print-escape-newlines
t
))
(
let
((
print-escape-newlines
t
)
(
print-escape-nonascii
t
))
(
mapcar
(
function
(
lambda
(
elt
)
(
prin1
elt
outbuf
)
(
princ
" "
outbuf
)))
...
...
@@ -269,11 +270,13 @@ are used."
1
)
outbuf
))
(
terpri
outbuf
)))
(
let
((
print-escape-newlines
t
))
(
let
((
print-escape-newlines
t
)
(
print-escape-nonascii
t
))
(
print
autoload
outbuf
)))
(
if
(
eq
(
car
autoload-1
)
'progn
)
;; Print the rest of the form
(
let
((
print-escape-newlines
t
))
(
let
((
print-escape-newlines
t
)
(
print-escape-nonascii
t
))
(
mapcar
(
function
(
lambda
(
elt
)
(
print
elt
outbuf
)))
(
cddr
autoload-1
)))))
...
...
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