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
cb7216a7
Commit
cb7216a7
authored
May 21, 2000
by
Dave Love
Browse files
(detect-coding-with-priority): Use mapc. Remove redundant lambda.
parent
45377ab4
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
23 additions
and
4 deletions
+23
-4
lisp/ChangeLog
lisp/ChangeLog
+20
-0
lisp/international/mule-util.el
lisp/international/mule-util.el
+3
-4
No files found.
lisp/ChangeLog
View file @
cb7216a7
2000-05-21 Dave Love <fx@gnu.org>
* international/mule-util.el (detect-coding-with-priority): Use
mapc. Remove redundant lambda.
* international/mule-diag.el (list-non-iso-charset-chars)
(describe-fontset): Remove redundant lambda.
* emulation/crisp.el (brief-mode): New alias.
* emacs-lisp/ring.el (ring-elements): New function.
* emacs-lisp/easymenu.el (easy-menu-create-menu)
(easy-menu-do-add-item): Use keywordp.
* emacs-lisp/byte-opt.el: Update side-effect free function lists.
* replace.el: Doc and error message fixes.
(replace-highlight): Use facep, not internal-find-face.
2000-05-20 Stefan Monnier <monnier@cs.yale.edu>
* international/ccl.el (ccl-compile-map-multiple): Don't quote lambda.
...
...
lisp/international/mule-util.el
View file @
cb7216a7
...
...
@@ -270,10 +270,9 @@ coding systems ordered by priority."
(
coding-category-list
coding-category-list
)
,@
(
mapcar
(
function
(
lambda
(
x
)
(
list
x
x
)))
coding-category-list
))
(
mapcar
(
function
(
lambda
(
x
)
(
set
(
car
x
)
(
cdr
x
))))
prio-list
)
(
set-coding-priority
(
mapcar
(
function
(
lambda
(
x
)
(
car
x
)))
prio-list
))
(
mapc
(
function
(
lambda
(
x
)
(
set
(
car
x
)
(
cdr
x
))))
prio-list
)
(
set-coding-priority
(
mapcar
#'
car
prio-list
))
(
detect-coding-region
,
from
,
to
))
;; We must restore the internal database.
(
set-coding-priority
coding-category-list
)
...
...
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