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
e8e4d5c8
Commit
e8e4d5c8
authored
Feb 01, 2011
by
Sam Steingold
Browse files
undo 2011-02-01T18:15:18Z!sds@gnu.org (purecopy-cons, purecopy-car) at Stefan Monnier's request
parent
abef340a
Changes
9
Hide whitespace changes
Inline
Side-by-side
Showing
9 changed files
with
16 additions
and
31 deletions
+16
-31
lisp/ChangeLog
lisp/ChangeLog
+0
-13
lisp/faces.el
lisp/faces.el
+2
-1
lisp/files.el
lisp/files.el
+4
-2
lisp/international/fontset.el
lisp/international/fontset.el
+2
-1
lisp/international/mule-conf.el
lisp/international/mule-conf.el
+1
-1
lisp/international/mule.el
lisp/international/mule.el
+4
-4
lisp/mouse.el
lisp/mouse.el
+1
-1
lisp/subr.el
lisp/subr.el
+0
-7
lisp/term/x-win.el
lisp/term/x-win.el
+2
-1
No files found.
lisp/ChangeLog
View file @
e8e4d5c8
...
...
@@ -31,19 +31,6 @@
Inherit from `special-mode-map'.
* vc/log-view.el (log-view-mode-map): Add a comment.
2011-02-01 Sam Steingold <sds@gnu.org>
* subr.el (purecopy-cons, purecopy-car): Add shortcuts.
* faces.el (face-x-resources): Use `purecopy-cons'.
* files.el (auto-mode-alist, interpreter-mode-alist): Use
`purecopy-car'.
* international/fontset.el (font-encoding-alist): Ditto.
* international/mule-conf.el (file-coding-system-alist): Ditto.
* international/mule.el (auto-coding-alist)
(auto-coding-regexp-alist): Ditto.
* mouse.el (mouse-buffer-menu-mode-groups): Use `purecopy-cons'.
* term/x-win.el (x-gtk-stock-map): Ditto.
2011-02-01 Chong Yidong <cyd@stupidchicken.com>
* custom.el (load-theme): Define return value. Drop use of
...
...
lisp/faces.el
View file @
e8e4d5c8
...
...
@@ -261,7 +261,8 @@ If FRAME is omitted or nil, use the selected frame."
(
mapcar
(
lambda
(
arg
)
;; FIXME; can we purecopy some of the conses too?
(
cons
(
car
arg
)
(
purecopy-cons
(
cdr
arg
))))
(
cons
(
car
arg
)
(
cons
(
purecopy
(
car
(
cdr
arg
)))
(
purecopy
(
cdr
(
cdr
arg
))))))
'
((
:family
(
".attributeFamily"
.
"Face.AttributeFamily"
))
(
:foundry
(
".attributeFoundry"
.
"Face.AttributeFoundry"
))
(
:width
(
".attributeWidth"
.
"Face.AttributeWidth"
))
...
...
lisp/files.el
View file @
e8e4d5c8
...
...
@@ -2229,7 +2229,8 @@ since only a single case-insensitive search through the alist is made."
;; directives in that file. That way is discouraged since it
;; spreads out the definition of the initial value.
(
mapcar
'purecopy-car
(
lambda
(
elt
)
(
cons
(
purecopy
(
car
elt
))
(
cdr
elt
)))
`
(
;; do this first, so that .html.pl is Polish html, not Perl
(
"\\.[sx]?html?\\(\\.[a-zA-Z_]+\\)?\\'"
.
html-mode
)
(
"\\.svgz?\\'"
.
image-mode
)
...
...
@@ -2453,7 +2454,8 @@ and `magic-mode-alist', which determines modes based on file contents.")
;; file. That way is discouraged since it spreads out the
;; definition of the initial value.
(mapcar
'purecopy-car
(lambda (l)
(cons (purecopy (car l)) (cdr l)))
'(("perl" . perl-mode)
("perl5" . perl-mode)
("miniperl" . perl-mode)
...
...
lisp/international/fontset.el
View file @
e8e4d5c8
...
...
@@ -33,7 +33,8 @@
;; Setup font-encoding-alist for all known encodings.
(
setq
font-encoding-alist
(
mapcar
'purecopy-car
(
mapcar
(
lambda
(
arg
)
(
cons
(
purecopy
(
car
arg
))
(
cdr
arg
)))
'
((
"iso8859-1$"
.
iso-8859-1
)
(
"iso8859-2$"
.
iso-8859-2
)
(
"iso8859-3$"
.
iso-8859-3
)
...
...
lisp/international/mule-conf.el
View file @
e8e4d5c8
...
...
@@ -1505,7 +1505,7 @@ for decoding and encoding files, process I/O, etc."
;; Tar files are not decoded at all, but we treat them as raw bytes.
(
setq
file-coding-system-alist
(
mapcar
'purecopy-car
(
mapcar
(
lambda
(
arg
)
(
cons
(
purecopy
(
car
arg
))
(
cdr
arg
)))
'
((
"\\.elc\\'"
.
utf-8-emacs
)
(
"\\.utf\\(-8\\)?\\'"
.
utf-8
)
(
"\\.xml\\'"
.
xml-find-file-coding-system
)
...
...
lisp/international/mule.el
View file @
e8e4d5c8
...
...
@@ -1671,11 +1671,11 @@ in-place."
(defcustom auto-coding-alist
;; .exe and .EXE are added to support archive-mode looking at DOS
;; self-extracting exe archives.
(mapcar
'purecopy-car
'(("
\\.\\
(
\
(mapcar
(lambda (arg) (cons (purecopy (car arg)) (cdr arg)))
'(("
\\.\\
(
\
arc\\|zip\\|lzh\\|lha\\|zoo\\|[jew]ar\\|xpi\\|rar\\|7z\\|\
ARC\\|ZIP\\|LZH\\|LHA\\|ZOO\\|[JEW]AR\\|XPI\\|RAR\\|7Z\\)\\'"
. no-conversion-multibyte)
. no-conversion-multibyte)
("\\.\\(exe\\|EXE\\
)
\\
'
" . no-conversion)
("
\\.\\
(
sx[dmicw]\\|odt\\|tar\\|tgz\\)\\'" . no-conversion)
("\\.\\(gz\\|Z\\|bz\\|bz2\\|xz\\|gpg\\
)
\\
'
" . no-conversion)
...
...
@@ -1696,7 +1696,7 @@ and the contents of `file-coding-system-alist'."
(symbol :tag "
Coding
system
"))))
(defcustom auto-coding-regexp-alist
(mapcar
'purecopy-car
(mapcar
(lambda (arg) (cons (purecopy (car arg)) (cdr arg)))
'(("
\\
`
BABYL
OPTIONS:[
\t]*-\\*-[
\t]*rmail[
\t]*-\\*-
" . no-conversion)
("
\\
`
\xFE\xFF
" . utf-16be-with-signature)
("
\\
`
\xFF\xFE
" . utf-16le-with-signature)
...
...
lisp/mouse.el
View file @
e8e4d5c8
...
...
@@ -1719,7 +1719,7 @@ a large number if you prefer a mixed multitude. The default is 4."
:version
"20.3"
)
(
defvar
mouse-buffer-menu-mode-groups
(
mapcar
'purecopy-cons
(
mapcar
(
lambda
(
arg
)
(
cons
(
purecopy
(
car
arg
))
(
purecopy
(
cdr
arg
))))
'
((
"Info\\|Help\\|Apropos\\|Man"
.
"Help"
)
(
"\\bVM\\b\\|\\bMH\\b\\|Message\\|Mail\\|Group\\|Score\\|Summary\\|Article"
.
"Mail/News"
)
...
...
lisp/subr.el
View file @
e8e4d5c8
...
...
@@ -2320,13 +2320,6 @@ BEG and END default respectively to the beginning and end of buffer."
;;;; Miscellanea.
(
defun
purecopy-cons
(
arg
)
"Return a copy of ARG from a `purecopy' of the car and cdr of ARG."
(
cons
(
purecopy
(
car
arg
))
(
purecopy
(
cdr
arg
))))
(
defun
purecopy-car
(
arg
)
"Return a copy of ARG whose car is a `purecopy' of the car of ARG."
(
cons
(
purecopy
(
car
arg
))
(
cdr
arg
)))
(
defvar
suspend-hook
nil
"Normal hook run by `suspend-emacs', before suspending."
)
...
...
lisp/term/x-win.el
View file @
e8e4d5c8
...
...
@@ -1447,7 +1447,8 @@ Request data types in the order specified by `x-select-request-type'."
(define-key special-event-map [drag-n-drop] 'x-dnd-handle-drag-n-drop-event)
(defcustom x-gtk-stock-map
(mapcar 'purecopy-cons
(mapcar (lambda (arg)
(cons (purecopy (car arg)) (purecopy (cdr arg))))
'(
("
etc/images/new
" . "
gtk-new
")
("
etc/images/open
" . "
gtk-open
")
...
...
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