diff lisp/image-mode.el @ 105939:a0f778f4a995

* term/x-win.el (x-gtk-stock-map): * progmodes/vera-mode.el (auto-mode-alist): * progmodes/inf-lisp.el (inferior-lisp-filter-regexp) (inferior-lisp-program, inferior-lisp-load-command): * progmodes/hideshow.el (hs-special-modes-alist): * progmodes/gud.el (same-window-regexps): * progmodes/grep.el (grep-program, find-program, xargs-program): * net/telnet.el (same-window-regexps): * net/rlogin.el (same-window-regexps): * language/ethiopic.el (font-ccl-encoder-alist): * vc-sccs.el (vc-sccs-master-templates): * vc-rcs.el (vc-rcs-master-templates): * subr.el (cl-assertion-failed): * simple.el (next-error-overlay-arrow-position): * lpr.el (lpr-command): * locate.el (locate-ls-subdir-switches): * info.el (same-window-regexps, info) (Info-goto-emacs-command-node, Info-goto-emacs-key-command-node): * image-mode.el (image-mode, auto-mode-alist): * hippie-exp.el (hippie-expand-ignore-buffers): * format.el (format-alist): * find-dired.el (find-ls-subdir-switches, find-grep-options) (find-name-arg): * facemenu.el (facemenu-keybindings): * dired.el (dired-listing-switches, dired-chown-program): * diff.el (diff-switches, diff-command): * cus-edit.el (same-window-regexps): * bindings.el (mode-line-mule-info) (mode-line-buffer-identification): Purecopy strings.

--- a/lisp/image-mode.el	Wed Nov 11 00:11:40 2009 +0000
+++ b/lisp/image-mode.el	Wed Nov 11 05:49:09 2009 +0000
@@ -35,17 +35,17 @@
 (require 'image)
 (eval-when-compile (require 'cl))
 
-;;;###autoload (push '("\\.jpe?g\\'"    . image-mode) auto-mode-alist)
-;;;###autoload (push '("\\.png\\'"      . image-mode) auto-mode-alist)
-;;;###autoload (push '("\\.gif\\'"      . image-mode) auto-mode-alist)
-;;;###autoload (push '("\\.tiff?\\'"    . image-mode) auto-mode-alist)
-;;;###autoload (push '("\\.p[bpgn]m\\'" . image-mode) auto-mode-alist)
+;;;###autoload (push (cons (purecopy "\\.jpe?g\\'")    'image-mode) auto-mode-alist)
+;;;###autoload (push (cons (purecopy "\\.png\\'")      'image-mode) auto-mode-alist)
+;;;###autoload (push (cons (purecopy "\\.gif\\'")      'image-mode) auto-mode-alist)
+;;;###autoload (push (cons (purecopy "\\.tiff?\\'")    'image-mode) auto-mode-alist)
+;;;###autoload (push (cons (purecopy "\\.p[bpgn]m\\'") 'image-mode) auto-mode-alist)
 
-;;;###autoload (push '("\\.x[bp]m\\'"   . c-mode)     auto-mode-alist)
-;;;###autoload (push '("\\.x[bp]m\\'"   . image-mode-maybe) auto-mode-alist)
+;;;###autoload (push (cons (purecopy "\\.x[bp]m\\'")   'c-mode)     auto-mode-alist)
+;;;###autoload (push (cons (purecopy "\\.x[bp]m\\'")   'image-mode-maybe) auto-mode-alist)
 
-;;;###autoload (push '("\\.svgz?\\'"    . xml-mode)   auto-mode-alist)
-;;;###autoload (push '("\\.svgz?\\'"    . image-mode-maybe) auto-mode-alist)
+;;;###autoload (push (cons (purecopy "\\.svgz?\\'")    'xml-mode)   auto-mode-alist)
+;;;###autoload (push (cons (purecopy "\\.svgz?\\'")    'image-mode-maybe) auto-mode-alist)
 
 ;;; Image mode window-info management.