[Emacs-diffs] /srv/bzr/emacs/trunk r103071: * lisp/subr.el (purecopy-cons, purecopy-car): Add shortcuts.

[Sam Steingold]

------------------------------------------------------------
revno: 103071
committer: Sam Steingold <address@hidden>
branch nick: trunk
timestamp: Tue 2011-02-01 13:15:18 -0500
message:
  * lisp/subr.el (purecopy-cons, purecopy-car): Add shortcuts.
  * lisp/faces.el (face-x-resources): Use `purecopy-cons'.
  * lisp/files.el (auto-mode-alist, interpreter-mode-alist): Use
  `purecopy-car'.
  * lisp/international/fontset.el (font-encoding-alist): Ditto.
  * lisp/international/mule-conf.el (file-coding-system-alist): Ditto.
  * lisp/international/mule.el (auto-coding-alist)
  (auto-coding-regexp-alist): Ditto.
  * lisp/mouse.el (mouse-buffer-menu-mode-groups): Use `purecopy-cons'.
  * lisp/term/x-win.el (x-gtk-stock-map): Ditto.
modified:
  lisp/ChangeLog
  lisp/faces.el
  lisp/files.el
  lisp/international/fontset.el
  lisp/international/mule-conf.el
  lisp/international/mule.el
  lisp/mouse.el
  lisp/subr.el
  lisp/term/x-win.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-02-01 17:34:07 +0000
+++ b/lisp/ChangeLog    2011-02-01 18:15:18 +0000
@@ -1,3 +1,16 @@
+2011-02-01  Sam Steingold  <address@hidden>
+
+       * 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  <address@hidden>
 
        * custom.el (load-theme): Define return value.  Drop use of

=== modified file 'lisp/faces.el'
--- a/lisp/faces.el     2011-01-26 08:36:39 +0000
+++ b/lisp/faces.el     2011-02-01 18:15:18 +0000
@@ -261,8 +261,7 @@
   (mapcar
    (lambda (arg)
      ;; FIXME; can we purecopy some of the conses too?
-     (cons (car arg)
-          (cons (purecopy (car (cdr arg))) (purecopy (cdr (cdr arg))))))
+     (cons (car arg) (purecopy-cons (cdr arg))))
   '((:family (".attributeFamily" . "Face.AttributeFamily"))
     (:foundry (".attributeFoundry" . "Face.AttributeFoundry"))
     (:width (".attributeWidth" . "Face.AttributeWidth"))

=== modified file 'lisp/files.el'
--- a/lisp/files.el     2011-01-31 23:54:50 +0000
+++ b/lisp/files.el     2011-02-01 18:15:18 +0000
@@ -2229,8 +2229,7 @@
   ;; directives in that file.  That way is discouraged since it
   ;; spreads out the definition of the initial value.
   (mapcar
-   (lambda (elt)
-     (cons (purecopy (car elt)) (cdr elt)))
+   'purecopy-car
    `(;; do this first, so that .html.pl is Polish html, not Perl
      ("\\.[sx]?html?\\(\\.[a-zA-Z_]+\\)?\\'" . html-mode)
      ("\\.svgz?\\'" . image-mode)
@@ -2454,8 +2453,7 @@
   ;; file.  That way is discouraged since it spreads out the
   ;; definition of the initial value.
   (mapcar
-   (lambda (l)
-     (cons (purecopy (car l)) (cdr l)))
+   'purecopy-car
    '(("perl" . perl-mode)
      ("perl5" . perl-mode)
      ("miniperl" . perl-mode)

=== modified file 'lisp/international/fontset.el'
--- a/lisp/international/fontset.el     2011-01-25 04:08:28 +0000
+++ b/lisp/international/fontset.el     2011-02-01 18:15:18 +0000
@@ -33,8 +33,7 @@
 ;; Setup font-encoding-alist for all known encodings.
 
 (setq font-encoding-alist
-      (mapcar (lambda (arg)
-               (cons (purecopy (car arg)) (cdr arg)))
+      (mapcar 'purecopy-car
       '(("iso8859-1$" . iso-8859-1)
        ("iso8859-2$" . iso-8859-2)
        ("iso8859-3$" . iso-8859-3)

=== modified file 'lisp/international/mule-conf.el'
--- a/lisp/international/mule-conf.el   2011-01-25 04:08:28 +0000
+++ b/lisp/international/mule-conf.el   2011-02-01 18:15:18 +0000
@@ -1505,7 +1505,7 @@
 ;; Tar files are not decoded at all, but we treat them as raw bytes.
 
 (setq file-coding-system-alist
-      (mapcar (lambda (arg) (cons (purecopy (car arg)) (cdr arg)))
+      (mapcar 'purecopy-car
       '(("\\.elc\\'" . utf-8-emacs)
        ("\\.utf\\(-8\\)?\\'" . utf-8)
        ("\\.xml\\'" . xml-find-file-coding-system)

=== modified file 'lisp/international/mule.el'
--- a/lisp/international/mule.el        2011-01-26 08:36:39 +0000
+++ b/lisp/international/mule.el        2011-02-01 18:15:18 +0000
@@ -1671,11 +1671,11 @@
 (defcustom auto-coding-alist
   ;; .exe and .EXE are added to support archive-mode looking at DOS
   ;; self-extracting exe archives.
-  (mapcar (lambda (arg) (cons (purecopy (car arg)) (cdr arg)))
-         '(("\\.\\(\
+  (mapcar 'purecopy-car
+   '(("\\.\\(\
 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 @@
                       (symbol :tag "Coding system"))))
 
 (defcustom auto-coding-regexp-alist
-  (mapcar (lambda (arg) (cons (purecopy (car arg)) (cdr arg)))
+  (mapcar 'purecopy-car
   '(("\\`BABYL OPTIONS:[ \t]*-\\*-[ \t]*rmail[ \t]*-\\*-" . no-conversion)
     ("\\`\xFE\xFF" . utf-16be-with-signature)
     ("\\`\xFF\xFE" . utf-16le-with-signature)

=== modified file 'lisp/mouse.el'
--- a/lisp/mouse.el     2011-01-31 23:54:50 +0000
+++ b/lisp/mouse.el     2011-02-01 18:15:18 +0000
@@ -1719,7 +1719,7 @@
   :version "20.3")
 
 (defvar mouse-buffer-menu-mode-groups
-  (mapcar (lambda (arg) (cons  (purecopy (car arg)) (purecopy (cdr arg))))
+  (mapcar 'purecopy-cons
   '(("Info\\|Help\\|Apropos\\|Man" . "Help")
     ("\\bVM\\b\\|\\bMH\\b\\|Message\\|Mail\\|Group\\|Score\\|Summary\\|Article"
      . "Mail/News")

=== modified file 'lisp/subr.el'
--- a/lisp/subr.el      2011-01-25 04:08:28 +0000
+++ b/lisp/subr.el      2011-02-01 18:15:18 +0000
@@ -2320,6 +2320,13 @@
 
 ;;;; Miscellanea.
 
+(defun purecopy-cons (arg)
+  "Purecopy both car and cdr of the pair argument."
+  (cons (purecopy (car arg)) (purecopy (cdr arg))))
+(defun purecopy-car (arg)
+  "Purecopy the car of the pair argument."
+  (cons (purecopy (car arg)) (cdr arg)))
+
 (defvar suspend-hook nil
   "Normal hook run by `suspend-emacs', before suspending.")
 

=== modified file 'lisp/term/x-win.el'
--- a/lisp/term/x-win.el        2011-01-25 04:08:28 +0000
+++ b/lisp/term/x-win.el        2011-02-01 18:15:18 +0000
@@ -1447,8 +1447,7 @@
 (define-key special-event-map [drag-n-drop] 'x-dnd-handle-drag-n-drop-event)
 
 (defcustom x-gtk-stock-map
-  (mapcar (lambda (arg)
-           (cons (purecopy (car arg)) (purecopy (cdr arg))))
+  (mapcar 'purecopy-cons
   '(
     ("etc/images/new" . "gtk-new")
     ("etc/images/open" . "gtk-open")