emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r104332: Don't quote lambda expressio


From: Stefan Monnier
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r104332: Don't quote lambda expressions with `quote'.
Date: Mon, 23 May 2011 14:57:17 -0300
User-agent: Bazaar (2.3.1)

------------------------------------------------------------
revno: 104332
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Mon 2011-05-23 14:57:17 -0300
message:
  Don't quote lambda expressions with `quote'.
modified:
  lisp/ChangeLog
  lisp/allout-widgets.el
  lisp/allout.el
  lisp/calc/calc-alg.el
  lisp/calc/calc-ext.el
  lisp/calculator.el
  lisp/dos-w32.el
  lisp/emacs-lisp/byte-run.el
  lisp/emacs-lisp/chart.el
  lisp/emacs-lisp/checkdoc.el
  lisp/emacs-lisp/disass.el
  lisp/emacs-lisp/tcover-unsafep.el
  lisp/emulation/cua-rect.el
  lisp/emulation/tpu-edt.el
  lisp/emulation/viper-cmd.el
  lisp/emulation/viper-util.el
  lisp/emulation/viper.el
  lisp/eshell/em-glob.el
  lisp/eshell/em-pred.el
  lisp/files.el
  lisp/gnus/gnus-cus.el
  lisp/gnus/gnus-delay.el
  lisp/gnus/gnus.el
  lisp/hilit-chg.el
  lisp/ido.el
  lisp/ielm.el
  lisp/image-dired.el
  lisp/international/quail.el
  lisp/iswitchb.el
  lisp/loadup.el
  lisp/mail/emacsbug.el
  lisp/mail/feedmail.el
  lisp/mail/mspools.el
  lisp/mail/sendmail.el
  lisp/mh-e/mh-alias.el
  lisp/mh-e/mh-e.el
  lisp/mh-e/mh-inc.el
  lisp/mh-e/mh-junk.el
  lisp/mh-e/mh-mime.el
  lisp/msb.el
  lisp/net/ange-ftp.el
  lisp/net/dbus.el
  lisp/net/eudc-export.el
  lisp/net/eudc-hotlist.el
  lisp/net/eudc.el
  lisp/net/eudcb-bbdb.el
  lisp/net/eudcb-ldap.el
  lisp/net/tramp-cache.el
  lisp/net/tramp-cmds.el
  lisp/net/tramp-ftp.el
  lisp/net/webjump.el
  lisp/org/org-ascii.el
  lisp/org/org-attach.el
  lisp/org/org-exp.el
  lisp/org/org-html.el
  lisp/org/org-mouse.el
  lisp/org/org-src.el
  lisp/org/org.el
  lisp/play/fortune.el
  lisp/progmodes/cperl-mode.el
  lisp/progmodes/f90.el
  lisp/progmodes/gdb-mi.el
  lisp/progmodes/gud.el
  lisp/progmodes/idlw-help.el
  lisp/progmodes/idlw-shell.el
  lisp/progmodes/mixal-mode.el
  lisp/progmodes/python.el
  lisp/progmodes/sql.el
  lisp/progmodes/verilog-mode.el
  lisp/ps-print.el
  lisp/term.el
  lisp/terminal.el
  lisp/textmodes/flyspell.el
  lisp/thumbs.el
  lisp/vc/add-log.el
  lisp/vc/ediff-diff.el
  lisp/vc/ediff-util.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-23 17:03:03 +0000
+++ b/lisp/ChangeLog    2011-05-23 17:57:17 +0000
@@ -1,5 +1,7 @@
 2011-05-23  Stefan Monnier  <address@hidden>
 
+       * <lots-of-files>.el: Don't quote lambda expressions with `quote'.
+
        * vc/smerge-mode.el (smerge-refine-subst): Don't deactivate the mark
        (bug#8710).
 

=== modified file 'lisp/allout-widgets.el'
--- a/lisp/allout-widgets.el    2011-05-05 06:53:29 +0000
+++ b/lisp/allout-widgets.el    2011-05-23 17:57:17 +0000
@@ -302,7 +302,7 @@
 enhancements, directly.")
 ;;;###autoload
 (put 'allout-widgets-mode-inhibit 'safe-local-variable
-     (if (fboundp 'booleanp) 'booleanp '(lambda (x) (member x '(t nil)))))
+     (if (fboundp 'booleanp) 'booleanp (lambda (x) (member x '(t nil)))))
 (make-variable-buffer-local 'allout-widgets-mode-inhibit)
 ;;;_    = allout-inhibit-body-modification-hook
 (defvar allout-inhibit-body-modification-hook nil

=== modified file 'lisp/allout.el'
--- a/lisp/allout.el    2011-05-23 15:03:04 +0000
+++ b/lisp/allout.el    2011-05-23 17:57:17 +0000
@@ -416,7 +416,7 @@
 (make-variable-buffer-local 'allout-use-hanging-indents)
 ;;;###autoload
 (put 'allout-use-hanging-indents 'safe-local-variable
-     (if (fboundp 'booleanp) 'booleanp '(lambda (x) (member x '(t nil)))))
+     (if (fboundp 'booleanp) 'booleanp (lambda (x) (member x '(t nil)))))
 ;;;_  = allout-reindent-bodies
 (defcustom allout-reindent-bodies (if allout-use-hanging-indents
                                    'text)
@@ -435,7 +435,7 @@
 (make-variable-buffer-local 'allout-reindent-bodies)
 ;;;###autoload
 (put 'allout-reindent-bodies 'safe-local-variable
-     '(lambda (x) (memq x '(nil t text force))))
+     (lambda (x) (memq x '(nil t text force))))
 
 ;;;_  = allout-show-bodies
 (defcustom allout-show-bodies nil
@@ -446,7 +446,7 @@
 (make-variable-buffer-local 'allout-show-bodies)
 ;;;###autoload
 (put 'allout-show-bodies 'safe-local-variable
-     (if (fboundp 'booleanp) 'booleanp '(lambda (x) (member x '(t nil)))))
+     (if (fboundp 'booleanp) 'booleanp (lambda (x) (member x '(t nil)))))
 
 ;;;_  = allout-beginning-of-line-cycles
 (defcustom allout-beginning-of-line-cycles t
@@ -638,7 +638,7 @@
   :group 'allout)
 ;;;###autoload
 (put 'allout-use-mode-specific-leader 'safe-local-variable
-     '(lambda (x) (or (memq x '(t nil allout-mode-leaders comment-start))
+     (lambda (x) (or (memq x '(t nil allout-mode-leaders comment-start))
                       (stringp x))))
 ;;;_  = allout-mode-leaders
 (defvar allout-mode-leaders '()
@@ -668,7 +668,7 @@
 (make-variable-buffer-local 'allout-old-style-prefixes)
 ;;;###autoload
 (put 'allout-old-style-prefixes 'safe-local-variable
-     (if (fboundp 'booleanp) 'booleanp '(lambda (x) (member x '(t nil)))))
+     (if (fboundp 'booleanp) 'booleanp (lambda (x) (member x '(t nil)))))
 ;;;_  = allout-stylish-prefixes -- alternating bullets
 (defcustom allout-stylish-prefixes t
   "Do fancy stuff with topic prefix bullets according to level, etc.
@@ -717,7 +717,7 @@
 (make-variable-buffer-local 'allout-stylish-prefixes)
 ;;;###autoload
 (put 'allout-stylish-prefixes 'safe-local-variable
-     (if (fboundp 'booleanp) 'booleanp '(lambda (x) (member x '(t nil)))))
+     (if (fboundp 'booleanp) 'booleanp (lambda (x) (member x '(t nil)))))
 
 ;;;_  = allout-numbered-bullet
 (defcustom allout-numbered-bullet "#"
@@ -734,7 +734,7 @@
 (put 'allout-numbered-bullet 'safe-local-variable
      (if (fboundp 'string-or-null-p)
          'string-or-null-p
-       '(lambda (x) (or (stringp x) (null x)))))
+       (lambda (x) (or (stringp x) (null x)))))
 ;;;_  = allout-file-xref-bullet
 (defcustom allout-file-xref-bullet "@"
   "Bullet signifying file cross-references, for `allout-resolve-xref'.
@@ -746,7 +746,7 @@
 (put 'allout-file-xref-bullet 'safe-local-variable
      (if (fboundp 'string-or-null-p)
          'string-or-null-p
-       '(lambda (x) (or (stringp x) (null x)))))
+       (lambda (x) (or (stringp x) (null x)))))
 ;;;_  = allout-presentation-padding
 (defcustom allout-presentation-padding 2
   "Presentation-format white-space padding factor, for greater indent."
@@ -941,7 +941,7 @@
 (make-variable-buffer-local 'allout-layout)
 ;;;###autoload
 (put 'allout-layout 'safe-local-variable
-     '(lambda (x) (or (numberp x) (listp x) (memq x '(: * + -)))))
+     (lambda (x) (or (numberp x) (listp x) (memq x '(: * + -)))))
 
 ;;;_  : Topic header format
 ;;;_   = allout-regexp

=== modified file 'lisp/calc/calc-alg.el'
--- a/lisp/calc/calc-alg.el     2011-01-25 04:08:28 +0000
+++ b/lisp/calc/calc-alg.el     2011-05-23 17:57:17 +0000
@@ -415,17 +415,14 @@
 
 
 (defmacro math-defsimplify (funcs &rest code)
-  (append '(progn)
-          (mapcar (function
-                   (lambda (func)
-                     (list 'put (list 'quote func) ''math-simplify
-                           (list 'nconc
-                                 (list 'get (list 'quote func) ''math-simplify)
-                                 (list 'list
-                                       (list 'function
-                                             (append '(lambda 
(math-simplify-expr))
-                                                     code)))))))
-                  (if (symbolp funcs) (list funcs) funcs))))
+  (cons 'progn
+        (mapcar #'(lambda (func)
+                    `(put ',func 'math-simplify
+                          (nconc
+                           (get ',func 'math-simplify)
+                           (list
+                            #'(lambda (math-simplify-expr) ,@code)))))
+                (if (symbolp funcs) (list funcs) funcs))))
 (put 'math-defsimplify 'lisp-indent-hook 1)
 
 ;; The function created by math-defsimplify uses the variable

=== modified file 'lisp/calc/calc-ext.el'
--- a/lisp/calc/calc-ext.el     2011-03-17 02:25:36 +0000
+++ b/lisp/calc/calc-ext.el     2011-05-23 17:57:17 +0000
@@ -2872,33 +2872,25 @@
 
 (defmacro math-defintegral (funcs &rest code)
   (setq math-integral-cache nil)
-  (append '(progn)
-         (mapcar (function
-                  (lambda (func)
-                    (list 'put (list 'quote func) ''math-integral
-                          (list 'nconc
-                                (list 'get (list 'quote func) ''math-integral)
-                                (list 'list
-                                      (list 'function
-                                            (append '(lambda (u))
-                                                    code)))))))
-                 (if (symbolp funcs) (list funcs) funcs))))
+  (cons 'progn
+        (mapcar #'(lambda (func)
+                    `(put ',func 'math-integral
+                          (nconc
+                           (get ',func 'math-integral)
+                           (list
+                            #'(lambda (u) ,@code)))))
+                (if (symbolp funcs) (list funcs) funcs))))
 (put 'math-defintegral 'lisp-indent-hook 1)
 
 (defmacro math-defintegral-2 (funcs &rest code)
   (setq math-integral-cache nil)
-  (append '(progn)
-         (mapcar (function
-                  (lambda (func)
-                    (list 'put (list 'quote func) ''math-integral-2
-                          (list 'nconc
-                                (list 'get (list 'quote func)
-                                      ''math-integral-2)
-                                (list 'list
-                                      (list 'function
-                                            (append '(lambda (u v))
-                                                    code)))))))
-                 (if (symbolp funcs) (list funcs) funcs))))
+  (cons 'progn
+        (mapcar #'(lambda (func)
+                    `(put ',func 'math-integral-2
+                          `(nconc
+                            (get ',func 'math-integral-2)
+                            (list #'(lambda (u v) ,@code)))))
+                (if (symbolp funcs) (list funcs) funcs))))
 (put 'math-defintegral-2 'lisp-indent-hook 1)
 
 (defvar var-IntegAfterRules 'calc-IntegAfterRules)

=== modified file 'lisp/calculator.el'
--- a/lisp/calculator.el        2011-01-25 04:08:28 +0000
+++ b/lisp/calculator.el        2011-05-23 17:57:17 +0000
@@ -198,11 +198,11 @@
   (setq calculator-user-registers '((?g .  1.61803398875)))
 before you load calculator."
   :type  '(repeat (cons character number))
-  :set   '(lambda (_ val)
-            (and (boundp 'calculator-registers)
-                 (setq calculator-registers
-                       (append val calculator-registers)))
-            (setq calculator-user-registers val))
+  :set   (lambda (_ val)
+           (and (boundp 'calculator-registers)
+                (setq calculator-registers
+                      (append val calculator-registers)))
+           (setq calculator-user-registers val))
   :group 'calculator)
 
 (defcustom calculator-user-operators nil
@@ -482,7 +482,7 @@
             ["Electric mode"
              (progn (calculator-quit)
                     (setq calculator-restart-other-mode t)
-                    (run-with-timer 0.1 nil '(lambda () (message nil)))
+                    (run-with-timer 0.1 nil (lambda () (message nil)))
                     ;; the message from the menu will be visible,
                     ;; couldn't make it go away...
                     (calculator))
@@ -706,7 +706,7 @@
               (Electric-command-loop
                'calculator-done
                ;; can't use 'noprompt, bug in electric.el
-               '(lambda () 'noprompt)
+               (lambda () 'noprompt)
                nil
                (lambda (x y) (calculator-update-display))))
           (and calculator-buffer

=== modified file 'lisp/dos-w32.el'
--- a/lisp/dos-w32.el   2011-04-19 13:44:55 +0000
+++ b/lisp/dos-w32.el   2011-05-23 17:57:17 +0000
@@ -228,10 +228,10 @@
       ;; directory separators changed to directory-sep-char.
       (let ((name nil))
        (setq name (mapconcat
-                   '(lambda (char)
-                      (if (and (<= ?A char) (<= char ?Z))
-                          (char-to-string (+ (- char ?A) ?a))
-                        (char-to-string char)))
+                   (lambda (char)
+                      (if (and (<= ?A char) (<= char ?Z))
+                          (char-to-string (+ (- char ?A) ?a))
+                        (char-to-string char)))
                    filename nil))
        ;; Use expand-file-name to canonicalize directory separators, except
        ;; with bare drive letters (which would have the cwd appended).

=== modified file 'lisp/emacs-lisp/byte-run.el'
--- a/lisp/emacs-lisp/byte-run.el       2011-02-26 15:19:08 +0000
+++ b/lisp/emacs-lisp/byte-run.el       2011-05-23 17:57:17 +0000
@@ -72,7 +72,7 @@
 ;;   "Cause the named functions to be open-coded when called from compiled 
code.
 ;; They will only be compiled open-coded when byte-compile-optimize is true."
 ;;   (cons 'eval-and-compile
-;;     (mapcar '(lambda (x)
+;;     (mapcar (lambda (x)
 ;;                (or (memq (get x 'byte-optimizer)
 ;;                          '(nil byte-compile-inline-expand))
 ;;                    (error
@@ -85,7 +85,7 @@
 ;; (defmacro proclaim-notinline (&rest fns)
 ;;   "Cause the named functions to no longer be open-coded."
 ;;   (cons 'eval-and-compile
-;;     (mapcar '(lambda (x)
+;;     (mapcar (lambda (x)
 ;;                (if (eq (get x 'byte-optimizer) 'byte-compile-inline-expand)
 ;;                    (put x 'byte-optimizer nil))
 ;;                (list 'if (list 'eq (list 'get (list 'quote x) 
''byte-optimizer)

=== modified file 'lisp/emacs-lisp/chart.el'
--- a/lisp/emacs-lisp/chart.el  2011-01-26 08:36:39 +0000
+++ b/lisp/emacs-lisp/chart.el  2011-05-23 17:57:17 +0000
@@ -639,7 +639,7 @@
                       extlst "File Extensions"
                       cntlst "# of occurrences"
                       10
-                      '(lambda (a b) (> (cdr a) (cdr b))))
+                      (lambda (a b) (> (cdr a) (cdr b))))
     ))
 
 (defun chart-space-usage (d)
@@ -669,7 +669,7 @@
                       nmlst "File Name"
                       cntlst "File Size"
                       10
-                      '(lambda (a b) (> (cdr a) (cdr b))))
+                      (lambda (a b) (> (cdr a) (cdr b))))
     ))
 
 (defun chart-emacs-storage ()
@@ -737,7 +737,7 @@
                       nmlst "User Names"
                       cntlst "# of occurrences"
                       10
-                      '(lambda (a b) (> (cdr a) (cdr b))))
+                      (lambda (a b) (> (cdr a) (cdr b))))
     ))
 
 

=== modified file 'lisp/emacs-lisp/checkdoc.el'
--- a/lisp/emacs-lisp/checkdoc.el       2011-05-20 18:20:12 +0000
+++ b/lisp/emacs-lisp/checkdoc.el       2011-05-23 17:57:17 +0000
@@ -38,8 +38,7 @@
 ;;      or [menu-bar emacs-lisp eval-buffer].  Additional key-bindings
 ;;      are also provided under C-c ? KEY
 ;;        (require 'checkdoc)
-;;        (add-hook 'emacs-lisp-mode-hook
-;;                  '(lambda () (checkdoc-minor-mode 1)))
+;;        (add-hook 'emacs-lisp-mode-hook 'checkdoc-minor-mode)
 ;;
 ;; Using `checkdoc':
 ;;

=== modified file 'lisp/emacs-lisp/disass.el'
--- a/lisp/emacs-lisp/disass.el 2011-04-01 15:16:50 +0000
+++ b/lisp/emacs-lisp/disass.el 2011-05-23 17:57:17 +0000
@@ -251,10 +251,10 @@
                       ((eq (car-safe (car-safe arg)) 'byte-code)
                        (insert "(<byte code>...)\n")
                        (mapc ;recurse on list of byte-code objects
-                        '(lambda (obj)
-                           (disassemble-1
-                            obj
-                            (+ indent disassemble-recursive-indent)))
+                        (lambda (obj)
+                           (disassemble-1
+                            obj
+                            (+ indent disassemble-recursive-indent)))
                         arg))
                       (t
                        ;; really just a constant

=== modified file 'lisp/emacs-lisp/tcover-unsafep.el'
--- a/lisp/emacs-lisp/tcover-unsafep.el 2011-01-25 04:08:28 +0000
+++ b/lisp/emacs-lisp/tcover-unsafep.el 2011-05-23 17:57:17 +0000
@@ -29,13 +29,13 @@
 ;;;These forms are all considered safe
 (defconst testcover-unsafep-safe
   '(((lambda (x) (* x 2)) 14)
-    (apply 'cdr (mapcar '(lambda (x) (car x)) y))
+    (apply 'cdr (mapcar (lambda (x) (car x)) y))
     (cond ((= x 4) 5) (t 27))
     (condition-case x (car y) (error (car x)))
     (dolist (x y) (message "here: %s" x))
     (dotimes (x 14 (* x 2)) (message "here: %d" x))
     (let (x) (dolist (y '(1 2 3) (1+ y)) (push y x)))
-    (let (x) (apply '(lambda (x) (* x 2)) 14))
+    (let (x) (apply (lambda (x) (* x 2)) 14))
     (let ((x '(2))) (push 1 x) (pop x) (add-to-list 'x 2))
     (let ((x 1) (y 2)) (setq x (+ x y)))
     (let ((x 1)) (let ((y (+ x 3))) (* x y)))
@@ -90,7 +90,7 @@
       . (function kill-buffer))
     ( (mapcar x y)
       . (unquoted x))
-    ( (mapcar '(lambda (x) (rename-file x "x")) '("unsafep.el"))
+    ( (mapcar (lambda (x) (rename-file x "x")) '("unsafep.el"))
       . (function rename-file))
     ( (mapconcat x1 x2 " ")
       . (unquoted x1))

=== modified file 'lisp/emulation/cua-rect.el'
--- a/lisp/emulation/cua-rect.el        2011-01-25 04:08:28 +0000
+++ b/lisp/emulation/cua-rect.el        2011-05-23 17:57:17 +0000
@@ -609,12 +609,12 @@
   (let ((lines 0))
     (if (not (cua--rectangle-virtual-edges))
        (cua--rectangle-operation nil nil t 2 t
-         '(lambda (s e l r v)
-            (setq lines (1+ lines))
-            (if (and (> e s) (<= e (point-max)))
-                (delete-region s e))))
+         (lambda (s e l r v)
+            (setq lines (1+ lines))
+            (if (and (> e s) (<= e (point-max)))
+                (delete-region s e))))
       (cua--rectangle-operation nil 1 t nil t
-       '(lambda (s e l r v)
+       (lambda (s e l r v)
           (setq lines (1+ lines))
           (when (and (> e s) (<= e (point-max)))
             (delete-region s e)))))
@@ -624,10 +624,10 @@
   (let (rect)
     (if (not (cua--rectangle-virtual-edges))
        (cua--rectangle-operation nil nil nil nil nil ; do not tabify
-         '(lambda (s e l r)
+         (lambda (s e l r)
             (setq rect (cons (cua--filter-buffer-noprops s e) rect))))
       (cua--rectangle-operation nil 1 nil nil nil ; do not tabify
-       '(lambda (s e l r v)
+       (lambda (s e l r v)
           (let ((copy t) (bs 0) (as 0) row)
             (if (= s e) (setq e (1+ e)))
             (goto-char s)
@@ -750,7 +750,7 @@
     (when (/= left right)
       (sit-for 0)  ; make window top/bottom reliable
       (cua--rectangle-operation nil t nil nil nil ; do not tabify
-        '(lambda (s e l r v)
+        (lambda (s e l r v)
            (let ((rface (if v 'cua-rectangle 'cua-rectangle-noselect))
                  overlay bs ms as)
             (when (cua--rectangle-virtual-edges)
@@ -840,7 +840,7 @@
         (pad (cua--rectangle-virtual-edges))
         indent)
     (cua--rectangle-operation (if clear 'clear 'corners) nil t pad nil
-      '(lambda (s e l r)
+      (lambda (s e l r)
          (move-to-column col pad)
          (if (and (eolp)
                   (< (current-column) col))
@@ -852,7 +852,7 @@
          (if (cua--rectangle-right-side t)
              (cua--rectangle-insert-col (current-column))
            (setq indent (- (current-column) l))))
-      '(lambda (l r)
+      (lambda (l r)
          (when (and indent (> indent 0))
            (aset cua--rectangle 2 (+ l indent))
            (aset cua--rectangle 3 (+ r indent -1)))))))
@@ -1000,7 +1000,7 @@
 but instead winds up to the right of the rectangle."
   (interactive)
   (cua--rectangle-operation 'corners nil t 1 nil
-   '(lambda (s e l r)
+   (lambda (s e l r)
       (skip-chars-forward " \t")
       (let ((ws (- (current-column) l))
             (p (point)))
@@ -1015,7 +1015,7 @@
 With prefix arg, also delete whitespace to the left of that column."
   (interactive "P")
   (cua--rectangle-operation 'clear nil t 1 nil
-   '(lambda (s e l r)
+   (lambda (s e l r)
       (when arg
         (skip-syntax-backward " " (line-beginning-position))
         (setq s (point)))
@@ -1027,7 +1027,7 @@
 The text previously in the rectangle is overwritten by the blanks."
   (interactive)
   (cua--rectangle-operation 'keep nil nil 1 nil
-   '(lambda (s e l r)
+   (lambda (s e l r)
       (goto-char e)
       (skip-syntax-forward " " (line-end-position))
       (setq e (point))
@@ -1042,7 +1042,7 @@
   (interactive)
   (let (x)
     (cua--rectangle-operation 'clear nil t t nil
-     '(lambda (s e l r)
+     (lambda (s e l r)
         (let ((b (line-beginning-position)))
           (skip-syntax-backward "^ " b)
           (skip-syntax-backward " " b)
@@ -1050,7 +1050,7 @@
         (skip-syntax-forward " " (line-end-position))
         (delete-region s (point))
         (indent-to l))
-     '(lambda (l r)
+     (lambda (l r)
         (move-to-column l)
         ;; (setq cua-save-point (point))
         ))))
@@ -1087,7 +1087,7 @@
 The length of STRING need not be the same as the rectangle width."
   (interactive "sString rectangle: ")
   (cua--rectangle-operation 'keep nil t t nil
-     '(lambda (s e l r)
+     (lambda (s e l r)
         (delete-region s e)
         (skip-chars-forward " \t")
         (let ((ws (- (current-column) l)))
@@ -1095,14 +1095,14 @@
           (insert string)
           (indent-to (+ (current-column) ws))))
      (unless (cua--rectangle-restriction)
-       '(lambda (l r)
+       (lambda (l r)
           (cua--rectangle-right (max l (+ l (length string) -1)))))))
 
 (defun cua-fill-char-rectangle (character)
   "Replace CUA rectangle contents with CHARACTER."
   (interactive "cFill rectangle with character: ")
   (cua--rectangle-operation 'clear nil t 1 nil
-   '(lambda (s e l r)
+   (lambda (s e l r)
       (delete-region s e)
       (move-to-column l t)
       (insert-char character (- r l)))))
@@ -1113,7 +1113,7 @@
   (if buffer-read-only
       (message "Cannot replace in read-only buffer")
     (cua--rectangle-operation 'keep nil t 1 nil
-     '(lambda (s e l r)
+     (lambda (s e l r)
         (if (re-search-forward regexp e t)
             (replace-match newtext nil nil))))))
 
@@ -1121,7 +1121,7 @@
   "Increment each line of CUA rectangle by prefix amount."
   (interactive "p")
   (cua--rectangle-operation 'keep nil t 1 nil
-     '(lambda (s e l r)
+     (lambda (s e l r)
         (cond
          ((re-search-forward "0x\\([0-9a-fA-F]+\\)" e t)
           (let* ((txt (cua--filter-buffer-noprops (match-beginning 1) 
(match-end 1)))
@@ -1154,14 +1154,14 @@
       (setq format cua--rectangle-seq-format)
     (setq cua--rectangle-seq-format format))
   (cua--rectangle-operation 'clear nil t 1 nil
-     '(lambda (s e l r)
+     (lambda (s e l r)
          (delete-region s e)
          (insert (format format first))
          (setq first (+ first incr)))))
 
 (defmacro cua--convert-rectangle-as (command tabify)
   `(cua--rectangle-operation 'clear nil nil nil ,tabify
-    '(lambda (s e l r)
+    (lambda (s e l r)
        (,command s e))))
 
 (defun cua-upcase-rectangle ()
@@ -1218,7 +1218,7 @@
       (if cua--debug
          (print z auxbuf))
       (cua--rectangle-operation nil nil t pad nil
-        '(lambda (s e l r)
+        (lambda (s e l r)
            (let (cc)
              (goto-char e)
              (skip-chars-forward " \t")
@@ -1266,7 +1266,7 @@
                                       nil nil nil nil)))
   (cua--rectangle-aux-replace width t t t 1
     'cua--left-fill-rectangle
-    '(lambda () (insert text))))
+    (lambda () (insert text))))
 
 (defun cua-refill-rectangle (width)
   "Fill contents of current rectagle.
@@ -1285,7 +1285,7 @@
                                       nil nil nil
                                       'shell-command-history)))
   (cua--rectangle-aux-replace -1 t t replace 1
-    '(lambda (s e)
+    (lambda (s e)
        (shell-command-on-region s e command
                                 replace replace nil))))
 
@@ -1298,7 +1298,7 @@
   "Remove the first line of the rectangle and scroll remaining lines up."
   (interactive)
   (cua--rectangle-aux-replace 0 t t t t
-    '(lambda (s e)
+    (lambda (s e)
        (if (= (forward-line 1) 0)
            (delete-region s (point))))))
 
@@ -1307,7 +1307,7 @@
 The remaining lines are scrolled down, losing the last line."
   (interactive)
   (cua--rectangle-aux-replace 0 t t t t
-    '(lambda (s e)
+    (lambda (s e)
        (goto-char s)
        (insert "\n"))))
 
@@ -1337,7 +1337,7 @@
         (pad (cua--rectangle-virtual-edges))
         indent)
     (cua--rectangle-operation 'corners nil t pad nil
-     '(lambda (s e l r)
+     (lambda (s e l r)
         (move-to-column
          (if (cua--rectangle-right-side t)
              (max (1+ r) col) l)
@@ -1348,7 +1348,7 @@
           (if (cua--rectangle-right-side t)
               (cua--rectangle-insert-col (current-column))
             (setq indent (- l (current-column))))))
-     '(lambda (l r)
+     (lambda (l r)
         (when (and indent (> indent 0))
           (aset cua--rectangle 2 (- l indent))
           (aset cua--rectangle 3 (- r indent 1)))))))

=== modified file 'lisp/emulation/tpu-edt.el'
--- a/lisp/emulation/tpu-edt.el 2011-01-28 16:58:04 +0000
+++ b/lisp/emulation/tpu-edt.el 2011-05-23 17:57:17 +0000
@@ -1278,9 +1278,9 @@
 
 (defun tpu-make-file-buffer-list (buffer-list)
   "Return names from BUFFER-LIST excluding those beginning with a space or 
star."
-  (delq nil (mapcar '(lambda (b)
-                       (if (or (= (aref (buffer-name b) 0) ? )
-                               (= (aref (buffer-name b) 0) ?*)) nil b))
+  (delq nil (mapcar (lambda (b)
+                      (if (or (= (aref (buffer-name b) 0) ?\s)
+                              (= (aref (buffer-name b) 0) ?*)) nil b))
                     buffer-list)))
 
 (defun tpu-next-window nil

=== modified file 'lisp/emulation/viper-cmd.el'
--- a/lisp/emulation/viper-cmd.el       2011-03-06 02:43:19 +0000
+++ b/lisp/emulation/viper-cmd.el       2011-05-23 17:57:17 +0000
@@ -1084,7 +1084,7 @@
   "Function that implements ESC key in Viper emulation of Vi."
   (interactive)
   (let ((cmd (or (key-binding (viper-envelop-ESC-key))
-                '(lambda () (interactive) (error "Viper bell")))))
+                (lambda () (interactive) (error "Viper bell")))))
 
     ;; call the actual function to execute ESC (if no other symbols followed)
     ;; or the key bound to the ESC sequence (if the sequence was issued

=== modified file 'lisp/emulation/viper-util.el'
--- a/lisp/emulation/viper-util.el      2011-01-26 08:36:39 +0000
+++ b/lisp/emulation/viper-util.el      2011-05-23 17:57:17 +0000
@@ -1080,7 +1080,7 @@
                 char-p (= (length base-key-name) 1))
           (setq mod-char-list
                 (mapcar
-                 '(lambda (elt) (upcase (substring (symbol-name elt) 0 1)))
+                 (lambda (elt) (upcase (substring (symbol-name elt) 0 1)))
                  modifiers))
           (if char-p
               (setq key-name
@@ -1153,7 +1153,7 @@
 ;; XEmacs only
 (defun viper-event-vector-p (vec)
   (and (vectorp vec)
-       (eval (cons 'and (mapcar '(lambda (elt) (if (eventp elt) t)) vec)))))
+       (eval (cons 'and (mapcar (lambda (elt) (if (eventp elt) t)) vec)))))
 
 
 ;; check if vec is a vector of character symbols
@@ -1239,7 +1239,7 @@
 the `Local variables' section of a file."
   (setq viper-related-files-and-buffers-ring
        (make-ring (1+ (length other-files-or-buffers))))
-  (mapc '(lambda (elt)
+  (mapc (lambda (elt)
          (viper-ring-insert viper-related-files-and-buffers-ring elt))
        other-files-or-buffers)
   (viper-ring-insert viper-related-files-and-buffers-ring (buffer-name))

=== modified file 'lisp/emulation/viper.el'
--- a/lisp/emulation/viper.el   2011-01-25 04:08:28 +0000
+++ b/lisp/emulation/viper.el   2011-05-23 17:57:17 +0000
@@ -851,19 +851,19 @@
   ;; over misspelled words (due to the overlay keymaps)
   (defvar flyspell-mode-hook)
   (add-hook 'flyspell-mode-hook
-           '(lambda ()
-              (define-key flyspell-mouse-map viper-ESC-key nil)))
+           (lambda ()
+              (define-key flyspell-mouse-map viper-ESC-key nil)))
   ;; if viper is started from .emacs, it might be impossible to get certain
   ;; info about the display and windows until emacs initialization is complete
   ;; So do it via the window-setup-hook
   (add-hook 'window-setup-hook
-           '(lambda ()
-              (modify-frame-parameters
-               (selected-frame)
-               (list (cons 'viper-vi-state-cursor-color
-                           (viper-get-cursor-color))))
-              (setq viper-vi-state-cursor-color (viper-get-cursor-color))
-              ))
+           (lambda ()
+              (modify-frame-parameters
+               (selected-frame)
+               (list (cons 'viper-vi-state-cursor-color
+                           (viper-get-cursor-color))))
+              (setq viper-vi-state-cursor-color (viper-get-cursor-color))
+              ))
 
   ;; Tell vc-diff to put *vc* in Vi mode
   (eval-after-load

=== modified file 'lisp/eshell/em-glob.el'
--- a/lisp/eshell/em-glob.el    2011-03-05 04:11:05 +0000
+++ b/lisp/eshell/em-glob.el    2011-05-23 17:57:17 +0000
@@ -148,10 +148,10 @@
     ;; if this is a glob pattern than needs to be expanded, then it
     ;; will need to expand each member of the resulting glob list
     (add-to-list 'eshell-current-modifiers
-                '(lambda (list)
-                   (if (listp list)
-                       (mapcar 'expand-file-name list)
-                     (expand-file-name list)))))
+                (lambda (list)
+                   (if (listp list)
+                       (mapcar 'expand-file-name list)
+                     (expand-file-name list)))))
   (add-to-list 'eshell-current-modifiers 'eshell-extended-glob))
 
 (defun eshell-parse-glob-chars ()

=== modified file 'lisp/eshell/em-pred.el'
--- a/lisp/eshell/em-pred.el    2011-03-05 04:11:05 +0000
+++ b/lisp/eshell/em-pred.el    2011-05-23 17:57:17 +0000
@@ -84,16 +84,16 @@
     (?s . (eshell-pred-file-mode 4000)) ; setuid
     (?S . (eshell-pred-file-mode 2000)) ; setgid
     (?t . (eshell-pred-file-mode 1000)) ; sticky bit
-    (?U . '(lambda (file)               ; owned by effective uid
-            (if (file-exists-p file)
-                (= (nth 2 (file-attributes file)) (user-uid)))))
-;;; (?G . '(lambda (file)               ; owned by effective gid
-;;;          (if (file-exists-p file)
-;;;              (= (nth 2 (file-attributes file)) (user-uid)))))
-    (?* . '(lambda (file)
-            (and (file-regular-p file)
-                 (not (file-symlink-p file))
-                 (file-executable-p file))))
+    (?U . #'(lambda (file)                   ; owned by effective uid
+              (if (file-exists-p file)
+                  (= (nth 2 (file-attributes file)) (user-uid)))))
+    ;; (?G . #'(lambda (file)               ; owned by effective gid
+    ;;          (if (file-exists-p file)
+    ;;              (= (nth 2 (file-attributes file)) (user-uid)))))
+    (?* . #'(lambda (file)
+              (and (file-regular-p file)
+                   (not (file-symlink-p file))
+                   (file-executable-p file))))
     (?l . (eshell-pred-file-links))
     (?u . (eshell-pred-user-or-group ?u "user" 2 'eshell-user-id))
     (?g . (eshell-pred-user-or-group ?g "group" 3 'eshell-group-id))
@@ -111,36 +111,25 @@
 (put 'eshell-predicate-alist 'risky-local-variable t)
 
 (defcustom eshell-modifier-alist
-  '((?E . '(lambda (lst)
-            (mapcar
-             (function
-              (lambda (str)
-                (eshell-stringify
-                 (car (eshell-parse-argument str))))) lst)))
-    (?L . '(lambda (lst)
-            (mapcar 'downcase lst)))
-    (?U . '(lambda (lst)
-            (mapcar 'upcase lst)))
-    (?C . '(lambda (lst)
-            (mapcar 'capitalize lst)))
-    (?h . '(lambda (lst)
-            (mapcar 'file-name-directory lst)))
+  '((?E . #'(lambda (lst)
+              (mapcar
+               (function
+                (lambda (str)
+                  (eshell-stringify
+                   (car (eshell-parse-argument str))))) lst)))
+    (?L . #'(lambda (lst) (mapcar 'downcase lst)))
+    (?U . #'(lambda (lst) (mapcar 'upcase lst)))
+    (?C . #'(lambda (lst) (mapcar 'capitalize lst)))
+    (?h . #'(lambda (lst) (mapcar 'file-name-directory lst)))
     (?i . (eshell-include-members))
     (?x . (eshell-include-members t))
-    (?r . '(lambda (lst)
-            (mapcar 'file-name-sans-extension lst)))
-    (?e . '(lambda (lst)
-            (mapcar 'file-name-extension lst)))
-    (?t . '(lambda (lst)
-            (mapcar 'file-name-nondirectory lst)))
-    (?q . '(lambda (lst)
-            (mapcar 'eshell-escape-arg lst)))
-    (?u . '(lambda (lst)
-            (eshell-uniqify-list lst)))
-    (?o . '(lambda (lst)
-            (sort lst 'string-lessp)))
-    (?O . '(lambda (lst)
-            (nreverse (sort lst 'string-lessp))))
+    (?r . #'(lambda (lst) (mapcar 'file-name-sans-extension lst)))
+    (?e . #'(lambda (lst) (mapcar 'file-name-extension lst)))
+    (?t . #'(lambda (lst) (mapcar 'file-name-nondirectory lst)))
+    (?q . #'(lambda (lst) (mapcar 'eshell-escape-arg lst)))
+    (?u . #'(lambda (lst) (eshell-uniqify-list lst)))
+    (?o . #'(lambda (lst) (sort lst 'string-lessp)))
+    (?O . #'(lambda (lst) (nreverse (sort lst 'string-lessp))))
     (?j . (eshell-join-members))
     (?S . (eshell-split-members))
     (?R . 'reverse)

=== modified file 'lisp/files.el'
--- a/lisp/files.el     2011-05-22 01:18:49 +0000
+++ b/lisp/files.el     2011-05-23 17:57:17 +0000
@@ -278,7 +278,7 @@
   :group 'backup
   :group 'vc)
 (put 'version-control 'safe-local-variable
-     '(lambda (x) (or (booleanp x) (equal x 'never))))
+     (lambda (x) (or (booleanp x) (equal x 'never))))
 
 (defcustom dired-kept-versions 2
   "When cleaning directory, number of versions to keep."

=== modified file 'lisp/gnus/gnus-cus.el'
--- a/lisp/gnus/gnus-cus.el     2011-01-25 04:08:28 +0000
+++ b/lisp/gnus/gnus-cus.el     2011-05-23 17:57:17 +0000
@@ -1034,19 +1034,19 @@
         (widget-create
          'push-button
          :notify
-         '(lambda (&rest ignore)
-            (let* ((info (assq gnus-agent-cat-name gnus-category-alist))
-                   (widgets category-fields))
-              (while widgets
-                (let* ((widget (pop widgets))
-                       (value (condition-case nil (widget-value widget) 
(error))))
-                  (eval `(setf (,(widget-get widget :accessor) ',info)
-                               ',value)))))
-            (gnus-category-write)
-            (gnus-kill-buffer (current-buffer))
-            (when (get-buffer gnus-category-buffer)
-              (switch-to-buffer (get-buffer gnus-category-buffer))
-              (gnus-category-list)))
+         (lambda (&rest ignore)
+           (let* ((info (assq gnus-agent-cat-name gnus-category-alist))
+                  (widgets category-fields))
+             (while widgets
+               (let* ((widget (pop widgets))
+                      (value (condition-case nil (widget-value widget) 
(error))))
+                 (eval `(setf (,(widget-get widget :accessor) ',info)
+                              ',value)))))
+           (gnus-category-write)
+           (gnus-kill-buffer (current-buffer))
+           (when (get-buffer gnus-category-buffer)
+             (switch-to-buffer (get-buffer gnus-category-buffer))
+             (gnus-category-list)))
                        "Done")
         (widget-insert
          "\n    Note: Empty fields default to the customizable global\

=== modified file 'lisp/gnus/gnus-delay.el'
--- a/lisp/gnus/gnus-delay.el   2011-02-13 23:30:55 +0000
+++ b/lisp/gnus/gnus-delay.el   2011-05-23 17:57:17 +0000
@@ -151,8 +151,7 @@
       (when (gnus-group-entry group)
        (gnus-activate-group group)
        (add-hook 'message-send-hook
-                 '(lambda ()
-                    (message-remove-header gnus-delay-header)))
+                 (lambda () (message-remove-header gnus-delay-header)))
        (setq articles (nndraft-articles))
        (while (setq article (pop articles))
          (gnus-request-head article group)

=== modified file 'lisp/gnus/gnus.el'
--- a/lisp/gnus/gnus.el 2011-05-02 22:41:38 +0000
+++ b/lisp/gnus/gnus.el 2011-05-23 17:57:17 +0000
@@ -4357,11 +4357,11 @@
          (switch-to-buffer gnus-group-buffer)
        (funcall gnus-other-frame-function arg)
        (add-hook 'gnus-exit-gnus-hook
-                 '(lambda nil
-                    (when (and (frame-live-p gnus-other-frame-object)
-                               (cdr (frame-list)))
-                      (delete-frame gnus-other-frame-object))
-                    (setq gnus-other-frame-object nil)))))))
+                 (lambda nil
+                    (when (and (frame-live-p gnus-other-frame-object)
+                               (cdr (frame-list)))
+                      (delete-frame gnus-other-frame-object))
+                    (setq gnus-other-frame-object nil)))))))
 
 ;;;###autoload
 (defun gnus (&optional arg dont-connect slave)

=== modified file 'lisp/hilit-chg.el'
--- a/lisp/hilit-chg.el 2011-04-19 13:44:55 +0000
+++ b/lisp/hilit-chg.el 2011-05-23 17:57:17 +0000
@@ -1025,9 +1025,8 @@
 ;; (defun hilit-chg-debug-show (&optional beg end)
 ;;   (interactive)
 ;;   (message "--- hilit-chg-debug-show ---")
-;;   (hilit-chg-map-changes '(lambda (prop start end)
-;;                           (message "%d-%d: %s" start end prop)
-;;                           )
+;;   (hilit-chg-map-changes (lambda (prop start end)
+;;                          (message "%d-%d: %s" start end prop))
 ;;                        beg end
 ;;                        ))
 ;;

=== modified file 'lisp/ido.el'
--- a/lisp/ido.el       2011-04-19 13:44:55 +0000
+++ b/lisp/ido.el       2011-05-23 17:57:17 +0000
@@ -3903,7 +3903,7 @@
                  (funcall f completion-list
                           :help-string "ido "
                           :activate-callback
-                          '(lambda (x y z) (message "Doesn't work yet, 
sorry!"))))
+                          (lambda (x y z) (message "Doesn't work yet, 
sorry!"))))
              ;; else running Emacs
              ;;(add-hook 'completion-setup-hook 'completion-setup-function)
              (display-completion-list completion-list)))))))

=== modified file 'lisp/ielm.el'
--- a/lisp/ielm.el      2011-04-19 13:44:55 +0000
+++ b/lisp/ielm.el      2011-05-23 17:57:17 +0000
@@ -62,7 +62,7 @@
 wish to put something like the following in your `.emacs' file:
 
 \(add-hook 'ielm-mode-hook
-         '(lambda ()
+         (lambda ()
             (define-key ielm-map \"\\C-w\" 'comint-kill-region)
             (define-key ielm-map [C-S-backspace]
               'comint-kill-whole-line)))

=== modified file 'lisp/image-dired.el'
--- a/lisp/image-dired.el       2011-04-19 13:44:55 +0000
+++ b/lisp/image-dired.el       2011-05-23 17:57:17 +0000
@@ -2590,7 +2590,7 @@
 ;;                 `(,(nth 4 fattribs) ,(nth 7 fattribs) ,f)))
 ;;             (directory-files (image-dired-dir) t ".+\.thumb\..+$"))
 ;;            ;; Sort function. Compare time between two files.
-;;            '(lambda (l1 l2)
+;;            (lambda (l1 l2)
 ;;               (time-less-p (car l1) (car l2)))))
 ;;          (dirsize (apply '+ (mapcar (lambda (x) (cadr x)) files))))
 ;;     (while (> dirsize image-dired-dir-max-size)

=== modified file 'lisp/international/quail.el'
--- a/lisp/international/quail.el       2011-05-10 13:57:12 +0000
+++ b/lisp/international/quail.el       2011-05-23 17:57:17 +0000
@@ -2458,10 +2458,10 @@
 
 (define-button-type 'quail-keyboard-layout-button
   :supertype 'help-xref
-  'help-function '(lambda (layout)
-                   (help-setup-xref `(quail-keyboard-layout-button ,layout)
-                                    nil)
-                   (quail-show-keyboard-layout layout))
+  'help-function (lambda (layout)
+                   (help-setup-xref `(quail-keyboard-layout-button ,layout)
+                                    nil)
+                   (quail-show-keyboard-layout layout))
   'help-echo (purecopy "mouse-2, RET: show keyboard layout"))
 
 (define-button-type 'quail-keyboard-customize-button

=== modified file 'lisp/iswitchb.el'
--- a/lisp/iswitchb.el  2011-04-19 13:44:55 +0000
+++ b/lisp/iswitchb.el  2011-05-23 17:57:17 +0000
@@ -207,7 +207,7 @@
 ;;    (delete-minibuffer-contents))
 ;;
 ;; (add-hook 'iswitchb-define-mode-map-hook
-;;       '(lambda () (define-key
+;;          (lambda () (define-key
 ;;                     iswitchb-mode-map "\C-o"
 ;;                     'iswitchb-exclude-nonmatching)))
 

=== modified file 'lisp/loadup.el'
--- a/lisp/loadup.el    2011-05-20 00:41:03 +0000
+++ b/lisp/loadup.el    2011-05-23 17:57:17 +0000
@@ -81,7 +81,7 @@
 
 ;; Do it after subr, since both after-load-functions and add-hook are
 ;; implemented in subr.el.
-(add-hook 'after-load-functions '(lambda (f) (garbage-collect)))
+(add-hook 'after-load-functions (lambda (f) (garbage-collect)))
 
 ;; We specify .el in case someone compiled version.el by mistake.
 (load "version.el")
@@ -304,7 +304,7 @@
        (equal (nth 4 command-line-args) "bootstrap"))
     (setcdr load-path nil))
 
-(remove-hook 'after-load-functions '(lambda (f) (garbage-collect)))
+(remove-hook 'after-load-functions (lambda (f) (garbage-collect)))
 
 (setq inhibit-load-charset-map nil)
 (clear-charset-maps)

=== modified file 'lisp/mail/emacsbug.el'
--- a/lisp/mail/emacsbug.el     2011-02-06 15:04:31 +0000
+++ b/lisp/mail/emacsbug.el     2011-05-23 17:57:17 +0000
@@ -227,8 +227,8 @@
                system-configuration-options "'\n\n"))
     (insert "Important settings:\n")
     (mapc
-     '(lambda (var)
-       (insert (format "  value of $%s: %s\n" var (getenv var))))
+     (lambda (var)
+       (insert (format "  value of $%s: %s\n" var (getenv var))))
      '("LC_ALL" "LC_COLLATE" "LC_CTYPE" "LC_MESSAGES"
        "LC_MONETARY" "LC_NUMERIC" "LC_TIME" "LANG" "XMODIFIERS"))
     (insert (format "  locale-coding-system: %s\n" locale-coding-system))

=== modified file 'lisp/mail/feedmail.el'
--- a/lisp/mail/feedmail.el     2011-05-18 03:39:45 +0000
+++ b/lisp/mail/feedmail.el     2011-05-23 17:57:17 +0000
@@ -1437,7 +1437,7 @@
   )
 
 (defcustom feedmail-queue-runner-mode-setter
-  '(lambda (&optional arg) (mail-mode))
+  (lambda (&optional arg) (mail-mode))
   "A function to set the proper mode of a message file.
 Called when the message is read back out of the queue directory with a single
 argument, the optional argument used in the call to
@@ -1473,7 +1473,7 @@
 
 
 (defcustom feedmail-queue-runner-message-sender
-  '(lambda (&optional arg) (mail-send))
+  (lambda (&optional arg) (mail-send))
   "Function to initiate sending a message file.
 Called for each message read back out of the queue directory with a
 single argument, the optional argument used in the call to
@@ -1491,7 +1491,7 @@
 
 
 (defcustom feedmail-queue-runner-cleaner-upper
-  '(lambda (fqm-file &optional arg)
+  (lambda (fqm-file &optional arg)
      (delete-file fqm-file)
      (if arg (feedmail-say-chatter "Nuked %s" fqm-file)))
   "Function that will be called after a message has been sent.
@@ -1642,7 +1642,7 @@
              ;; don't be overconfident about the name of the trace buffer
              (tracer (concat "trace.*smtp.*" (regexp-quote 
smtpmail-smtp-server))))
          (mapcar
-          '(lambda (buffy)
+          (lambda (buffy)
              (if (string-match tracer (buffer-name buffy))
                  (progn
                    (insert "SMTP Trace from " (buffer-name buffy) 
"\n---------------")
@@ -1667,7 +1667,7 @@
                          ;; don't be overconfident about the name of the trace 
buffer
                          (tracer (concat "trace.*smtp.*" (regexp-quote 
smtp-server))))
                  (mapcar
-                  '(lambda (buffy)
+                  (lambda (buffy)
                          (if (string-match tracer (buffer-name buffy))
                                  (progn
                                        (insert "SMTP Trace from " (buffer-name 
buffy) "\n---------------")
@@ -1996,7 +1996,7 @@
        (if feedmail-queue-run-orderer
            (setq list-of-possible-fqms (funcall feedmail-queue-run-orderer 
list-of-possible-fqms)))
        (mapc
-        '(lambda (blobby)
+        (lambda (blobby)
            (setq maybe-file (expand-file-name blobby feedmail-queue-directory))
            (cond
             ((file-directory-p maybe-file) nil) ; don't care about subdirs
@@ -2238,7 +2238,7 @@
     ;; iterate, counting things we find along the way in the directory
     (if (file-directory-p queue-directory)
        (mapc
-        '(lambda (blobby)
+        (lambda (blobby)
            (cond
             ((file-directory-p blobby) nil) ; don't care about subdirs
             ((feedmail-fqm-p blobby)
@@ -2665,7 +2665,7 @@
   (save-excursion
     (if feedmail-enable-spray
        (mapcar
-        '(lambda (feedmail-spray-this-address)
+        (lambda (feedmail-spray-this-address)
            (let ((spray-buffer (get-buffer-create " *FQM Outgoing Email 
Spray*")))
              (with-current-buffer spray-buffer
                (erase-buffer)

=== modified file 'lisp/mail/mspools.el'
--- a/lisp/mail/mspools.el      2011-01-25 04:08:28 +0000
+++ b/lisp/mail/mspools.el      2011-05-23 17:57:17 +0000
@@ -215,12 +215,12 @@
 
     ;; Mailing list inboxes
     ;; must have VM already loaded to get vm-folder-directory.
-    (mapcar '(lambda (s)
-              "make the appropriate entry for vm-spool-files"
-              (list
-               (concat mspools-folder-directory s)
-               (concat mspools-folder-directory s "." mspools-suffix)
-               (concat mspools-folder-directory s ".crash")))
+    (mapcar (lambda (s)
+              "make the appropriate entry for vm-spool-files"
+              (list
+               (concat mspools-folder-directory s)
+               (concat mspools-folder-directory s "." mspools-suffix)
+               (concat mspools-folder-directory s ".crash")))
            ;; So I create a vm-spool-files entry for each of those mail drops
            (mapcar 'file-name-sans-extension
                    (directory-files mspools-folder-directory nil

=== modified file 'lisp/mail/sendmail.el'
--- a/lisp/mail/sendmail.el     2011-05-18 03:39:45 +0000
+++ b/lisp/mail/sendmail.el     2011-05-23 17:57:17 +0000
@@ -864,9 +864,9 @@
                          (let ((l))
                            (mapc
                             ;; remove duplicates
-                            '(lambda (e)
-                               (unless (member e l)
-                                 (push e l)))
+                            (lambda (e)
+                               (unless (member e l)
+                                 (push e l)))
                             (split-string new-header-values
                                           ",[[:space:]]+" t))
                            (mapconcat 'identity l ", "))

=== modified file 'lisp/mh-e/mh-alias.el'
--- a/lisp/mh-e/mh-alias.el     2011-05-10 13:57:12 +0000
+++ b/lisp/mh-e/mh-alias.el     2011-05-23 17:57:17 +0000
@@ -638,10 +638,10 @@
         (message "Making passwd aliases...")
         (setq passwd-matches
               (mapconcat
-               '(lambda (elem)
-                  (if (or (string-match regexp (car elem))
-                          (string-match regexp (cadr elem)))
-                      (format "%s: %s\n" (car elem) (cadr elem))))
+               (lambda (elem)
+                 (if (or (string-match regexp (car elem))
+                         (string-match regexp (cadr elem)))
+                     (format "%s: %s\n" (car elem) (cadr elem))))
                mh-alias-passwd-alist ""))
         (message "Making passwd aliases...done")))
     (if (and (string-equal "" matches)

=== modified file 'lisp/mh-e/mh-e.el'
--- a/lisp/mh-e/mh-e.el 2011-04-28 15:32:28 +0000
+++ b/lisp/mh-e/mh-e.el 2011-05-23 17:57:17 +0000
@@ -933,7 +933,7 @@
      (t
       (message "Unknown variant %s; use %s"
                variant
-               (mapconcat '(lambda (x) (format "%s" (car x)))
+               (mapconcat (lambda (x) (format "%s" (car x)))
                           (mh-variants) " or "))))))
 
 (defcustom-mh mh-variant 'autodetect

=== modified file 'lisp/mh-e/mh-inc.el'
--- a/lisp/mh-e/mh-inc.el       2011-01-26 08:36:39 +0000
+++ b/lisp/mh-e/mh-inc.el       2011-05-23 17:57:17 +0000
@@ -39,12 +39,12 @@
   "Help text for `mh-inc-spool-map'.")
 
 (define-key mh-inc-spool-map "?"
-  '(lambda ()
-     (interactive)
-     (if mh-inc-spool-map-help
-         (mh-help mh-inc-spool-map-help)
-       (mh-ephem-message
-        "There are no keys defined yet; customize `mh-inc-spool-list'"))))
+  (lambda ()
+    (interactive)
+    (if mh-inc-spool-map-help
+        (mh-help mh-inc-spool-map-help)
+      (mh-ephem-message
+       "There are no keys defined yet; customize `mh-inc-spool-list'"))))
 
 ;;;###mh-autoload
 (defun mh-inc-spool-make ()

=== modified file 'lisp/mh-e/mh-junk.el'
--- a/lisp/mh-e/mh-junk.el      2011-01-26 08:36:39 +0000
+++ b/lisp/mh-e/mh-junk.el      2011-05-23 17:57:17 +0000
@@ -312,9 +312,9 @@
     (delete-other-windows)
     (pop-to-buffer (get-buffer-create "*MH-E Spammer Frequencies*"))
     (erase-buffer)
-    (maphash '(lambda (key value) ""
-                (if (> value 2)
-                    (insert (format "%s %s\n" key value))))
+    (maphash (lambda (key value) ""
+               (if (> value 2)
+                   (insert (format "%s %s\n" key value))))
              domains)
     (sort-numeric-fields 2 (point-min) (point-max))
     (reverse-region (point-min) (point-max))

=== modified file 'lisp/mh-e/mh-mime.el'
--- a/lisp/mh-e/mh-mime.el      2011-03-05 21:56:00 +0000
+++ b/lisp/mh-e/mh-mime.el      2011-05-23 17:57:17 +0000
@@ -1637,8 +1637,8 @@
     ;; Do an alias lookup on recipients
     (message-options-set 'message-recipients
                          (mapconcat
-                          '(lambda (ali)
-                             (mail-strip-quoted-names (mh-alias-expand ali)))
+                          (lambda (ali)
+                            (mail-strip-quoted-names (mh-alias-expand ali)))
                           (split-string (message-options-get 
'message-recipients) "[, ]+")
                           ", ")))
   (let ((saved-text (buffer-string))

=== modified file 'lisp/msb.el'
--- a/lisp/msb.el       2011-02-03 07:29:38 +0000
+++ b/lisp/msb.el       2011-05-23 17:57:17 +0000
@@ -315,7 +315,7 @@
   :set 'msb-custom-set
   :group 'msb)
 
-(defvar msb-horizontal-shift-function '(lambda () 0)
+(defvar msb-horizontal-shift-function (lambda () 0)
   "*Function that specifies how many pixels to shift the top menu leftwards.")
 
 (defcustom msb-display-invisible-buffers-p nil

=== modified file 'lisp/net/ange-ftp.el'
--- a/lisp/net/ange-ftp.el      2011-05-05 10:22:14 +0000
+++ b/lisp/net/ange-ftp.el      2011-05-23 17:57:17 +0000
@@ -5448,7 +5448,7 @@
 ;;                                base-versions
 ;;                                (file-name-directory fn)))
 ;;                (versions (mapcar
-;;                           '(lambda (arg)
+;;                           (lambda (arg)
 ;;                              (if (and (string-match
 ;;                                        "[0-9]+$" arg bv-length)
 ;;                                       (= (match-beginning 0) bv-length))

=== modified file 'lisp/net/dbus.el'
--- a/lisp/net/dbus.el  2011-02-07 08:01:15 +0000
+++ b/lisp/net/dbus.el  2011-05-23 17:57:17 +0000
@@ -121,7 +121,7 @@
 hash table."
   (let (result)
     (maphash
-     '(lambda (key value) (add-to-list 'result (cons key value) 'append))
+     (lambda (key value) (add-to-list 'result (cons key value) 'append))
      dbus-registered-objects-table)
     result))
 
@@ -271,20 +271,20 @@
          ;; Check whether SERVICE is a known name.
          (when (not (string-match "^:" service))
            (maphash
-            '(lambda (key value)
-               (dolist (elt value)
-                 ;; key has the structure (BUS INTERFACE MEMBER).
-                 ;; elt has the structure (UNAME SERVICE PATH HANDLER).
-                 (when (string-equal old-owner (car elt))
-                   ;; Remove old key, and add new entry with changed name.
-                   (dbus-unregister-object (list key (cdr elt)))
-                   ;; Maybe we could arrange the lists a little bit better
-                   ;; that we don't need to extract every single element?
-                   (dbus-register-signal
-                    ;; BUS      SERVICE     PATH
-                    (nth 0 key) (nth 1 elt) (nth 2 elt)
-                    ;; INTERFACE MEMBER     HANDLER
-                    (nth 1 key) (nth 2 key) (nth 3 elt)))))
+            (lambda (key value)
+               (dolist (elt value)
+                 ;; key has the structure (BUS INTERFACE MEMBER).
+                 ;; elt has the structure (UNAME SERVICE PATH HANDLER).
+                 (when (string-equal old-owner (car elt))
+                   ;; Remove old key, and add new entry with changed name.
+                   (dbus-unregister-object (list key (cdr elt)))
+                   ;; Maybe we could arrange the lists a little bit better
+                   ;; that we don't need to extract every single element?
+                   (dbus-register-signal
+                    ;; BUS      SERVICE     PATH
+                    (nth 0 key) (nth 1 elt) (nth 2 elt)
+                    ;; INTERFACE MEMBER     HANDLER
+                    (nth 1 key) (nth 2 key) (nth 3 elt)))))
             (copy-hash-table dbus-registered-objects-table))))
       ;; The error is reported only in debug mode.
       (when  dbus-debug
@@ -825,15 +825,15 @@
       (setq direction nil))
     ;; Collect the signatures.
     (mapconcat
-     '(lambda (x)
-       (let ((arg (dbus-introspect-get-argument
-                   bus service path interface name x)))
-         (if (or (not (stringp direction))
-                 (string-equal
-                  direction
-                  (dbus-introspect-get-attribute arg "direction")))
-             (dbus-introspect-get-attribute arg "type")
-           "")))
+     (lambda (x)
+       (let ((arg (dbus-introspect-get-argument
+                   bus service path interface name x)))
+         (if (or (not (stringp direction))
+                 (string-equal
+                  direction
+                  (dbus-introspect-get-attribute arg "direction")))
+             (dbus-introspect-get-attribute arg "type")
+           "")))
      (dbus-introspect-get-argument-names bus service path interface name)
      "")))
 

=== modified file 'lisp/net/eudc-export.el'
--- a/lisp/net/eudc-export.el   2011-01-25 04:08:28 +0000
+++ b/lisp/net/eudc-export.el   2011-05-23 17:57:17 +0000
@@ -44,7 +44,7 @@
   ;; This function runs in a special context where lisp symbols corresponding
   ;; to field names in record are bound to the corresponding values
   (eval
-   `(let* (,@(mapcar '(lambda (c)
+   `(let* (,@(mapcar (lambda (c)
                        (list (car c) (if (listp (cdr c))
                                          (list 'quote (cdr c))
                                        (cdr c))))
@@ -108,7 +108,7 @@
       (void-variable nil)))
    ((and recurse
         (listp spec))
-    (mapcar '(lambda (spec-elem)
+    (mapcar (lambda (spec-elem)
               (eudc-parse-spec spec-elem record nil))
            spec))
    (t

=== modified file 'lisp/net/eudc-hotlist.el'
--- a/lisp/net/eudc-hotlist.el  2011-01-25 04:08:28 +0000
+++ b/lisp/net/eudc-hotlist.el  2011-05-23 17:57:17 +0000
@@ -89,7 +89,7 @@
            "------" gap "--------\n"
            "\n")
     (setq eudc-hotlist-list-beginning (point))
-    (mapc '(lambda (entry)
+    (mapc (lambda (entry)
             (insert (car entry))
             (indent-to proto-col)
             (insert (symbol-name (cdr entry)) "\n"))
@@ -103,7 +103,7 @@
       (error "Not in a EUDC hotlist edit buffer"))
   (let ((server (read-from-minibuffer "Server: "))
        (protocol (completing-read "Protocol: "
-                                  (mapcar '(lambda (elt)
+                                  (mapcar (lambda (elt)
                                              (cons (symbol-name elt)
                                                    elt))
                                           eudc-known-protocols)))

=== modified file 'lisp/net/eudc.el'
--- a/lisp/net/eudc.el  2011-01-25 04:08:28 +0000
+++ b/lisp/net/eudc.el  2011-05-23 17:57:17 +0000
@@ -351,12 +351,12 @@
 The translation is done according to
 `eudc-protocol-attributes-translation-alist'."
   (if eudc-protocol-attributes-translation-alist
-      (mapcar '(lambda (attribute)
-                (let ((trans (assq (car attribute)
-                                   (symbol-value 
eudc-protocol-attributes-translation-alist))))
-                  (if trans
-                      (cons (cdr trans) (cdr attribute))
-                    attribute)))
+      (mapcar (lambda (attribute)
+                (let ((trans (assq (car attribute)
+                                   (symbol-value 
eudc-protocol-attributes-translation-alist))))
+                  (if trans
+                      (cons (cdr trans) (cdr attribute))
+                    attribute)))
              query)
     query))
 
@@ -366,7 +366,7 @@
 `eudc-protocol-attributes-translation-alist'."
   (if eudc-protocol-attributes-translation-alist
       (let (trans)
-       (mapcar '(lambda (attribute)
+       (mapcar (lambda (attribute)
                   (setq trans (assq attribute
                                     (symbol-value 
eudc-protocol-attributes-translation-alist)))
                   (if trans
@@ -692,7 +692,7 @@
   (interactive (list
                (read-from-minibuffer "Directory Server: ")
                (intern (completing-read "Protocol: "
-                                        (mapcar '(lambda (elt)
+                                        (mapcar (lambda (elt)
                                                    (cons (symbol-name elt)
                                                          elt))
                                                 eudc-known-protocols)))))
@@ -796,7 +796,7 @@
                (> n 0))
       (setq formats
            (delq nil
-                 (mapcar '(lambda (format)
+                 (mapcar (lambda (format)
                             (if (= n
                                    (length format))
                                 format

=== modified file 'lisp/net/eudcb-bbdb.el'
--- a/lisp/net/eudcb-bbdb.el    2011-01-25 04:08:28 +0000
+++ b/lisp/net/eudcb-bbdb.el    2011-05-23 17:57:17 +0000
@@ -73,32 +73,29 @@
   "Return RECORD if it matches `eudc-bbdb-current-query', nil otherwise."
   (catch 'unmatch
     (progn
-      (mapc
-       (function
-       (lambda (condition)
-         (let ((attr (car condition))
-               (val (cdr condition))
-               (case-fold-search t)
-               bbdb-val)
-           (or (and (memq attr '(firstname lastname aka company phones 
addresses net))
-                    (progn
-                      (setq bbdb-val
-                            (eval (list (intern (concat "bbdb-record-"
-                                                        (symbol-name attr)))
-                                        'record)))
-                      (if (listp bbdb-val)
-                          (if eudc-bbdb-enable-substring-matches
-                              (eval `(or ,@(mapcar '(lambda (subval)
-                                                      (string-match val
-                                                                    subval))
-                                                 bbdb-val)))
-                            (member (downcase val)
-                                    (mapcar 'downcase bbdb-val)))
-                        (if eudc-bbdb-enable-substring-matches
-                            (string-match val bbdb-val)
-                          (string-equal (downcase val) (downcase bbdb-val))))))
-               (throw 'unmatch nil)))))
-       eudc-bbdb-current-query)
+      (dolist (condition eudc-bbdb-current-query)
+        (let ((attr (car condition))
+              (val (cdr condition))
+              (case-fold-search t)
+              bbdb-val)
+          (or (and (memq attr '(firstname lastname aka company phones
+                                addresses net))
+                   (progn
+                     (setq bbdb-val
+                           (eval (list (intern (concat "bbdb-record-"
+                                                       (symbol-name attr)))
+                                       'record)))
+                     (if (listp bbdb-val)
+                         (if eudc-bbdb-enable-substring-matches
+                             (eval `(or ,@(mapcar (lambda (subval)
+                                                    (string-match val subval))
+                                                  bbdb-val)))
+                           (member (downcase val)
+                                   (mapcar 'downcase bbdb-val)))
+                       (if eudc-bbdb-enable-substring-matches
+                           (string-match val bbdb-val)
+                         (string-equal (downcase val) (downcase bbdb-val))))))
+              (throw 'unmatch nil))))
       record)))
 
 ;; External.

=== modified file 'lisp/net/eudcb-ldap.el'
--- a/lisp/net/eudcb-ldap.el    2011-01-25 04:08:28 +0000
+++ b/lisp/net/eudcb-ldap.el    2011-05-23 17:57:17 +0000
@@ -172,10 +172,10 @@
   "Format the EUDC QUERY list as a RFC1558 LDAP search filter."
   (format "(&%s)"
          (apply 'concat
-                (mapcar '(lambda (item)
-                           (format "(%s=%s)"
-                                   (car item)
-                                   (eudc-ldap-escape-query-special-chars (cdr 
item))))
+                (mapcar (lambda (item)
+                           (format "(%s=%s)"
+                                   (car item)
+                                   (eudc-ldap-escape-query-special-chars (cdr 
item))))
                         query))))
 
 

=== modified file 'lisp/net/tramp-cache.el'
--- a/lisp/net/tramp-cache.el   2011-03-06 00:30:16 +0000
+++ b/lisp/net/tramp-cache.el   2011-05-23 17:57:17 +0000
@@ -176,7 +176,7 @@
                    'directory-file-name (list directory))))
   (tramp-message vec 8 "%s" directory)
     (maphash
-     '(lambda (key value)
+     (lambda (key value)
        (when (and (stringp (tramp-file-name-localname key))
                   (string-match directory (tramp-file-name-localname key)))
          (remhash key tramp-cache-data)))
@@ -199,7 +199,7 @@
 (add-hook 'eshell-pre-command-hook 'tramp-flush-file-function)
 (add-hook 'kill-buffer-hook 'tramp-flush-file-function)
 (add-hook 'tramp-cache-unload-hook
-         '(lambda ()
+         (lambda ()
             (remove-hook 'before-revert-hook
                          'tramp-flush-file-function)
             (remove-hook 'eshell-pre-command-hook
@@ -289,7 +289,7 @@
   (when (hash-table-p table)
     (let (result)
       (maphash
-       '(lambda (key value)
+       (lambda (key value)
          (let ((tmp (format
                      "(%s %s)"
                      (if (processp key)
@@ -309,7 +309,7 @@
   "Return a list of all known connection vectors according to `tramp-cache'."
     (let (result)
       (maphash
-       '(lambda (key value)
+       (lambda (key value)
          (when (and (vectorp key) (null (aref key 3)))
            (add-to-list 'result key)))
        tramp-cache-data)
@@ -326,7 +326,7 @@
       (let ((cache (copy-hash-table tramp-cache-data)))
        ;; Remove temporary data.
        (maphash
-        '(lambda (key value)
+        (lambda (key value)
            (if (and (vectorp key) (not (tramp-file-name-localname key)))
                (progn
                  (remhash "process-name" value)
@@ -356,7 +356,7 @@
 (unless noninteractive
   (add-hook 'kill-emacs-hook 'tramp-dump-connection-properties))
 (add-hook 'tramp-cache-unload-hook
-         '(lambda ()
+         (lambda ()
             (remove-hook 'kill-emacs-hook
                          'tramp-dump-connection-properties)))
 
@@ -367,7 +367,7 @@
 for all methods.  Resulting data are derived from connection history."
   (let (res)
     (maphash
-     '(lambda (key value)
+     (lambda (key value)
        (if (and (vectorp key)
                 (string-equal method (tramp-file-name-method key))
                 (not (tramp-file-name-localname key)))

=== modified file 'lisp/net/tramp-cmds.el'
--- a/lisp/net/tramp-cmds.el    2011-02-28 10:58:59 +0000
+++ b/lisp/net/tramp-cmds.el    2011-05-23 17:57:17 +0000
@@ -258,8 +258,8 @@
   (dolist (buffer
           (delq nil
                 (mapcar
-                 '(lambda (b)
-                    (when (string-match "\\*tramp/" (buffer-name b)) b))
+                 (lambda (b)
+                    (when (string-match "\\*tramp/" (buffer-name b)) b))
                  (buffer-list))))
     (let ((reporter-eval-buffer buffer)
          (buffer-name (buffer-name buffer))

=== modified file 'lisp/net/tramp-ftp.el'
--- a/lisp/net/tramp-ftp.el     2011-01-25 04:08:28 +0000
+++ b/lisp/net/tramp-ftp.el     2011-05-23 17:57:17 +0000
@@ -121,12 +121,12 @@
 ;; handling.
 (put 'substitute-in-file-name 'ange-ftp 'tramp-handle-substitute-in-file-name)
 (add-hook 'tramp-ftp-unload-hook
-         '(lambda ()
-            (setplist 'substitute-in-file-name
-                      (delete 'ange-ftp
-                              (delete 'tramp-handle-substitute-in-file-name
-                                      (symbol-plist
-                                       'substitute-in-file-name))))))
+         (lambda ()
+            (setplist 'substitute-in-file-name
+                      (delete 'ange-ftp
+                              (delete 'tramp-handle-substitute-in-file-name
+                                      (symbol-plist
+                                       'substitute-in-file-name))))))
 
 ;;;###tramp-autoload
 (defun tramp-ftp-file-name-handler (operation &rest args)

=== modified file 'lisp/net/webjump.el'
--- a/lisp/net/webjump.el       2011-01-25 04:08:28 +0000
+++ b/lisp/net/webjump.el       2011-05-23 17:57:17 +0000
@@ -447,11 +447,11 @@
   (or (null str) (string-match "^[ \t]*$" str)))
 
 (defun webjump-url-encode (str)
-  (mapconcat '(lambda (c)
-                (let ((s (char-to-string c)))
-                  (cond ((string= s " ") "+")
-                        ((string-match "[a-zA-Z_.-/]" s) s)
-                        (t (upcase (format "%%%02x" c))))))
+  (mapconcat (lambda (c)
+               (let ((s (char-to-string c)))
+                 (cond ((string= s " ") "+")
+                       ((string-match "[a-zA-Z_.-/]" s) s)
+                       (t (upcase (format "%%%02x" c))))))
              (encode-coding-string str 'utf-8)
              ""))
 

=== modified file 'lisp/org/org-ascii.el'
--- a/lisp/org/org-ascii.el     2011-01-26 08:36:39 +0000
+++ b/lisp/org/org-ascii.el     2011-05-23 17:57:17 +0000
@@ -369,55 +369,55 @@
          (push (concat (nth 3 lang-words) "\n") thetoc)
          (push (concat (make-string (string-width (nth 3 lang-words)) ?=)
                        "\n") thetoc)
-         (mapc '(lambda (line)
-                  (if (string-match org-todo-line-regexp
-                                    line)
-                      ;; This is a headline
-                      (progn
-                        (setq have-headings t)
-                        (setq level (- (match-end 1) (match-beginning 1)
-                                       level-offset)
-                              level (org-tr-level level)
-                              txt (match-string 3 line)
-                              todo
-                              (or (and org-export-mark-todo-in-toc
-                                       (match-beginning 2)
-                                       (not (member (match-string 2 line)
-                                                    org-done-keywords)))
+         (mapc (lambda (line)
+                  (if (string-match org-todo-line-regexp
+                                    line)
+                      ;; This is a headline
+                      (progn
+                        (setq have-headings t)
+                        (setq level (- (match-end 1) (match-beginning 1)
+                                       level-offset)
+                              level (org-tr-level level)
+                              txt (match-string 3 line)
+                              todo
+                              (or (and org-export-mark-todo-in-toc
+                                       (match-beginning 2)
+                                       (not (member (match-string 2 line)
+                                                    org-done-keywords)))
                                        ; TODO, not DONE
-                                  (and org-export-mark-todo-in-toc
-                                       (= level umax-toc)
-                                       (org-search-todo-below
-                                        line lines level))))
-                        (setq txt (org-html-expand-for-ascii txt))
-
-                        (while (string-match org-bracket-link-regexp txt)
-                          (setq txt
-                                (replace-match
-                                 (match-string (if (match-end 2) 3 1) txt)
-                                 t t txt)))
-
-                        (if (and (memq org-export-with-tags '(not-in-toc nil))
-                                 (string-match
-                                  (org-re "[ \t]+:[[:alnum:address@hidden:]+:[ 
\t]*$")
-                                  txt))
-                            (setq txt (replace-match "" t t txt)))
-                        (if (string-match quote-re0 txt)
-                            (setq txt (replace-match "" t t txt)))
-
-                        (if org-export-with-section-numbers
-                            (setq txt (concat (org-section-number level)
-                                              " " txt)))
-                        (if (<= level umax-toc)
-                            (progn
-                              (push
-                               (concat
-                                (make-string
-                                 (* (max 0 (- level org-min-level)) 4) ?\ )
-                                (format (if todo "%s (*)\n" "%s\n") txt))
-                               thetoc)
-                              (setq org-last-level level))
-                          ))))
+                                  (and org-export-mark-todo-in-toc
+                                       (= level umax-toc)
+                                       (org-search-todo-below
+                                        line lines level))))
+                        (setq txt (org-html-expand-for-ascii txt))
+
+                        (while (string-match org-bracket-link-regexp txt)
+                          (setq txt
+                                (replace-match
+                                 (match-string (if (match-end 2) 3 1) txt)
+                                 t t txt)))
+
+                        (if (and (memq org-export-with-tags '(not-in-toc nil))
+                                 (string-match
+                                  (org-re "[ \t]+:[[:alnum:address@hidden:]+:[ 
\t]*$")
+                                  txt))
+                            (setq txt (replace-match "" t t txt)))
+                        (if (string-match quote-re0 txt)
+                            (setq txt (replace-match "" t t txt)))
+
+                        (if org-export-with-section-numbers
+                            (setq txt (concat (org-section-number level)
+                                              " " txt)))
+                        (if (<= level umax-toc)
+                            (progn
+                              (push
+                               (concat
+                                (make-string
+                                 (* (max 0 (- level org-min-level)) 4) ?\ )
+                                (format (if todo "%s (*)\n" "%s\n") txt))
+                               thetoc)
+                              (setq org-last-level level))
+                          ))))
                lines)
          (setq thetoc (if have-headings (nreverse thetoc) nil))))
 

=== modified file 'lisp/org/org-attach.el'
--- a/lisp/org/org-attach.el    2011-01-25 04:08:28 +0000
+++ b/lisp/org/org-attach.el    2011-05-23 17:57:17 +0000
@@ -246,10 +246,10 @@
        (cd dir)
        (shell-command "git add .")
        (shell-command "git ls-files --deleted" t)
-       (mapc '(lambda (file)
-                (unless (string= file "")
-                  (shell-command
-                   (concat "git rm \"" file "\""))))
+       (mapc (lambda (file)
+                (unless (string= file "")
+                  (shell-command
+                   (concat "git rm \"" file "\""))))
              (split-string (buffer-string) "\n"))
        (shell-command "git commit -m 'Synchronized attachments'")))))
 

=== modified file 'lisp/org/org-exp.el'
--- a/lisp/org/org-exp.el       2011-01-26 08:36:39 +0000
+++ b/lisp/org/org-exp.el       2011-05-23 17:57:17 +0000
@@ -2136,7 +2136,7 @@
            markup (org-symname-or-string (pop params))
            lang (and (member markup '("src" "SRC"))
                      (org-symname-or-string (pop params)))
-           switches (mapconcat '(lambda (x) (format "%s" x)) params " ")
+           switches (mapconcat (lambda (x) (format "%s" x)) params " ")
            start nil end nil)
       (delete-region (match-beginning 0) (match-end 0))
       (if (or (not file)

=== modified file 'lisp/org/org-html.el'
--- a/lisp/org/org-html.el      2011-01-26 08:36:39 +0000
+++ b/lisp/org/org-html.el      2011-05-23 17:57:17 +0000
@@ -1090,74 +1090,74 @@
            (push "<div id=\"text-table-of-contents\">\n" thetoc)
            (push "<ul>\n<li>" thetoc)
            (setq lines
-                 (mapcar '(lambda (line)
-                            (if (and (string-match org-todo-line-regexp line)
-                                     (not (get-text-property 0 'org-protected 
line)))
-                                ;; This is a headline
-                                (progn
-                                  (setq have-headings t)
-                                  (setq level (- (match-end 1) 
(match-beginning 1)
-                                                 level-offset)
-                                        level (org-tr-level level)
-                                        txt (save-match-data
-                                              (org-html-expand
-                                               (org-export-cleanup-toc-line
-                                                (match-string 3 line))))
-                                        todo
-                                        (or (and org-export-mark-todo-in-toc
-                                                 (match-beginning 2)
-                                                 (not (member (match-string 2 
line)
-                                                              
org-done-keywords)))
+                 (mapcar (lambda (line)
+                            (if (and (string-match org-todo-line-regexp line)
+                                     (not (get-text-property 0 'org-protected 
line)))
+                                ;; This is a headline
+                                (progn
+                                  (setq have-headings t)
+                                  (setq level (- (match-end 1) 
(match-beginning 1)
+                                                 level-offset)
+                                        level (org-tr-level level)
+                                        txt (save-match-data
+                                              (org-html-expand
+                                               (org-export-cleanup-toc-line
+                                                (match-string 3 line))))
+                                        todo
+                                        (or (and org-export-mark-todo-in-toc
+                                                 (match-beginning 2)
+                                                 (not (member (match-string 2 
line)
+                                                              
org-done-keywords)))
                                        ; TODO, not DONE
-                                            (and org-export-mark-todo-in-toc
-                                                 (= level umax-toc)
-                                                 (org-search-todo-below
-                                                  line lines level))))
-                                  (if (string-match
-                                       (org-re "[ \t]+:\\([[:alnum:]_@:]+\\):[ 
\t]*$") txt)
-                                      (setq txt (replace-match  
"&nbsp;&nbsp;&nbsp;<span class=\"tag\"> \\1</span>" t nil txt)))
-                                  (if (string-match quote-re0 txt)
-                                      (setq txt (replace-match "" t t txt)))
-                                  (setq snumber (org-section-number level))
-                                  (if org-export-with-section-numbers
-                                      (setq txt (concat snumber " " txt)))
-                                  (if (<= level (max umax umax-toc))
-                                      (setq head-count (+ head-count 1)))
-                                  (if (<= level umax-toc)
-                                      (progn
-                                        (if (> level org-last-level)
-                                            (progn
-                                              (setq cnt (- level 
org-last-level))
-                                              (while (>= (setq cnt (1- cnt)) 0)
-                                                (push "\n<ul>\n<li>" thetoc))
-                                              (push "\n" thetoc)))
-                                        (if (< level org-last-level)
-                                            (progn
-                                              (setq cnt (- org-last-level 
level))
-                                              (while (>= (setq cnt (1- cnt)) 0)
-                                                (push "</li>\n</ul>" thetoc))
-                                              (push "\n" thetoc)))
-                                        ;; Check for targets
-                                        (while (string-match 
org-any-target-regexp line)
-                                          (setq line (replace-match
-                                                      (concat "@<span 
class=\"target\">" (match-string 1 line) "@</span> ")
-                                                      t t line)))
-                                        (while (string-match 
"&lt;\\(&lt;\\)+\\|&gt;\\(&gt;\\)+" txt)
-                                          (setq txt (replace-match "" t t 
txt)))
-                                        (setq href
-                                              (replace-regexp-in-string
-                                               "\\." "_" (format "sec-%s" 
snumber)))
-                                        (setq href (or (cdr (assoc href 
org-export-preferred-target-alist)) href))
-                                        (push
-                                         (format
-                                          (if todo
-                                              "</li>\n<li><a 
href=\"#%s\"><span class=\"todo\">%s</span></a>"
-                                            "</li>\n<li><a 
href=\"#%s\">%s</a>")
-                                          href txt) thetoc)
+                                            (and org-export-mark-todo-in-toc
+                                                 (= level umax-toc)
+                                                 (org-search-todo-below
+                                                  line lines level))))
+                                  (if (string-match
+                                       (org-re "[ \t]+:\\([[:alnum:]_@:]+\\):[ 
\t]*$") txt)
+                                      (setq txt (replace-match  
"&nbsp;&nbsp;&nbsp;<span class=\"tag\"> \\1</span>" t nil txt)))
+                                  (if (string-match quote-re0 txt)
+                                      (setq txt (replace-match "" t t txt)))
+                                  (setq snumber (org-section-number level))
+                                  (if org-export-with-section-numbers
+                                      (setq txt (concat snumber " " txt)))
+                                  (if (<= level (max umax umax-toc))
+                                      (setq head-count (+ head-count 1)))
+                                  (if (<= level umax-toc)
+                                      (progn
+                                        (if (> level org-last-level)
+                                            (progn
+                                              (setq cnt (- level 
org-last-level))
+                                              (while (>= (setq cnt (1- cnt)) 0)
+                                                (push "\n<ul>\n<li>" thetoc))
+                                              (push "\n" thetoc)))
+                                        (if (< level org-last-level)
+                                            (progn
+                                              (setq cnt (- org-last-level 
level))
+                                              (while (>= (setq cnt (1- cnt)) 0)
+                                                (push "</li>\n</ul>" thetoc))
+                                              (push "\n" thetoc)))
+                                        ;; Check for targets
+                                        (while (string-match 
org-any-target-regexp line)
+                                          (setq line (replace-match
+                                                      (concat "@<span 
class=\"target\">" (match-string 1 line) "@</span> ")
+                                                      t t line)))
+                                        (while (string-match 
"&lt;\\(&lt;\\)+\\|&gt;\\(&gt;\\)+" txt)
+                                          (setq txt (replace-match "" t t 
txt)))
+                                        (setq href
+                                              (replace-regexp-in-string
+                                               "\\." "_" (format "sec-%s" 
snumber)))
+                                        (setq href (or (cdr (assoc href 
org-export-preferred-target-alist)) href))
+                                        (push
+                                         (format
+                                          (if todo
+                                              "</li>\n<li><a 
href=\"#%s\"><span class=\"todo\">%s</span></a>"
+                                            "</li>\n<li><a 
href=\"#%s\">%s</a>")
+                                          href txt) thetoc)
 
-                                        (setq org-last-level level))
-                                    )))
-                            line)
+                                        (setq org-last-level level))
+                                    )))
+                            line)
                          lines))
            (while (> org-last-level (1- org-min-level))
              (setq org-last-level (1- org-last-level))

=== modified file 'lisp/org/org-mouse.el'
--- a/lisp/org/org-mouse.el     2011-03-15 17:39:56 +0000
+++ b/lisp/org/org-mouse.el     2011-05-23 17:57:17 +0000
@@ -526,7 +526,7 @@
      ("Check Tags"
       ,@(org-mouse-keyword-menu
         (sort (mapcar 'car (org-get-buffer-tags)) 'string-lessp)
-        '(lambda (tag) (org-tags-sparse-tree nil tag)))
+        (lambda (tag) (org-tags-sparse-tree nil tag)))
       "--"
       ["Custom Tag ..." org-tags-sparse-tree t])
      ["Check Phrase ..." org-occur]
@@ -537,18 +537,18 @@
      ("Display Tags"
       ,@(org-mouse-keyword-menu
         (sort (mapcar 'car (org-get-buffer-tags)) 'string-lessp)
-        '(lambda (tag) (org-tags-view nil tag)))
+        (lambda (tag) (org-tags-view nil tag)))
       "--"
       ["Custom Tag ..." org-tags-view t])
      ["Display Calendar" org-goto-calendar t]
      "--"
      ,@(org-mouse-keyword-menu
        (mapcar 'car org-agenda-custom-commands)
-       '(lambda (key)
+       (lambda (key)
           (eval `(flet ((read-char-exclusive () (string-to-char ,key)))
                      (org-agenda nil))))
        nil
-       '(lambda (key)
+       (lambda (key)
           (let ((entry (assoc key org-agenda-custom-commands)))
             (org-mouse-clip-text
              (cond
@@ -832,7 +832,7 @@
         ("Tags and Priorities"
          ,@(org-mouse-keyword-menu
             (org-mouse-priority-list)
-            '(lambda (keyword)
+            (lambda (keyword)
                (org-mouse-set-priority (string-to-char keyword)))
             priority "Priority %s")
          "--"
@@ -905,7 +905,7 @@
     (mouse-drag-region event)))
 
 (add-hook 'org-mode-hook
-  '(lambda ()
+  (lambda ()
      (setq org-mouse-context-menu-function 'org-mouse-context-menu)
 
      (when (memq 'context-menu org-mouse-features)
@@ -1129,14 +1129,14 @@
 
 ; (setq org-agenda-mode-hook nil)
 (add-hook 'org-agenda-mode-hook
-   '(lambda ()
+   (lambda ()
      (setq org-mouse-context-menu-function 'org-mouse-agenda-context-menu)
      (org-defkey org-agenda-mode-map [mouse-3] 'org-mouse-show-context-menu)
      (org-defkey org-agenda-mode-map [down-mouse-3] 'org-mouse-move-tree-start)
      (org-defkey org-agenda-mode-map [C-mouse-4] 'org-agenda-earlier)
      (org-defkey org-agenda-mode-map [C-mouse-5] 'org-agenda-later)
      (org-defkey org-agenda-mode-map [drag-mouse-3]
-       '(lambda (event) (interactive "e")
+       (lambda (event) (interactive "e")
          (case (org-mouse-get-gesture event)
            (:left (org-agenda-earlier 1))
            (:right (org-agenda-later 1)))))))

=== modified file 'lisp/org/org-src.el'
--- a/lisp/org/org-src.el       2011-03-15 17:39:56 +0000
+++ b/lisp/org/org-src.el       2011-05-23 17:57:17 +0000
@@ -674,7 +674,7 @@
 (defun org-src-mode-configure-edit-buffer ()
   (when (org-bound-and-true-p org-edit-src-from-org-mode)
     (org-add-hook 'kill-buffer-hook
-                 '(lambda () (delete-overlay org-edit-src-overlay)) nil 'local)
+                 (lambda () (delete-overlay org-edit-src-overlay)) nil 'local)
     (if (org-bound-and-true-p org-edit-src-allow-write-back-p)
        (progn
          (setq buffer-offer-save t)

=== modified file 'lisp/org/org.el'
--- a/lisp/org/org.el   2011-05-10 13:57:12 +0000
+++ b/lisp/org/org.el   2011-05-23 17:57:17 +0000
@@ -1576,7 +1576,7 @@
          (const :tag "no confirmation (dangerous)" nil)))
 (put 'org-confirm-shell-link-function
      'safe-local-variable
-     '(lambda (x) (member x '(yes-or-no-p y-or-n-p))))
+     (lambda (x) (member x '(yes-or-no-p y-or-n-p))))
 
 (defcustom org-confirm-elisp-link-function 'yes-or-no-p
   "Non-nil means ask for confirmation before executing Emacs Lisp links.
@@ -1596,7 +1596,7 @@
          (const :tag "no confirmation (dangerous)" nil)))
 (put 'org-confirm-shell-link-function
      'safe-local-variable
-     '(lambda (x) (member x '(yes-or-no-p y-or-n-p))))
+     (lambda (x) (member x '(yes-or-no-p y-or-n-p))))
 
 (defconst org-file-apps-defaults-gnu
   '((remote . emacs)
@@ -2519,7 +2519,7 @@
 and by using a prefix arg to `S-up/down' to specify the exact number
 of minutes to shift."
   :group 'org-time
-  :get '(lambda (var) ; Make sure both elements are there
+  :get (lambda (var) ; Make sure both elements are there
          (if (integerp (default-value var))
              (list (default-value var) 5)
            (default-value var)))
@@ -3021,7 +3021,7 @@
 If the file does not specify a category, then file's base name
 is used instead.")
 (make-variable-buffer-local 'org-category)
-(put 'org-category 'safe-local-variable '(lambda (x) (or (symbolp x) (stringp 
x))))
+(put 'org-category 'safe-local-variable (lambda (x) (or (symbolp x) (stringp 
x))))
 
 (defcustom org-agenda-files nil
   "The files to be used for agenda display.

=== modified file 'lisp/play/fortune.el'
--- a/lisp/play/fortune.el      2011-04-21 12:24:46 +0000
+++ b/lisp/play/fortune.el      2011-05-23 17:57:17 +0000
@@ -49,7 +49,7 @@
 
 ;; I have also this in my .gnus:
 ;;(add-hook 'gnus-article-mode-hook
-;;       '(lambda ()
+;;       (lambda ()
 ;;          (define-key gnus-article-mode-map "i" 'fortune-from-region)))
 ;; which allows marking a region and then pressing "i" so that the marked
 ;; region will be automatically added to my favourite fortune-file.

=== modified file 'lisp/progmodes/cperl-mode.el'
--- a/lisp/progmodes/cperl-mode.el      2011-02-28 01:07:29 +0000
+++ b/lisp/progmodes/cperl-mode.el      2011-05-23 17:57:17 +0000
@@ -8594,10 +8594,10 @@
             (pargs (cdr (car flist))))
         (setq command
               (concat command " | " pcom " "
-                      (mapconcat '(lambda (phrase)
-                                    (if (not (stringp phrase))
-                                        (error "Malformed Man-filter-list"))
-                                    phrase)
+                      (mapconcat (lambda (phrase)
+                                   (if (not (stringp phrase))
+                                       (error "Malformed Man-filter-list"))
+                                   phrase)
                                  pargs " ")))
         (setq flist (cdr flist))))
     command))

=== modified file 'lisp/progmodes/f90.el'
--- a/lisp/progmodes/f90.el     2011-05-19 06:18:58 +0000
+++ b/lisp/progmodes/f90.el     2011-05-23 17:57:17 +0000
@@ -78,9 +78,9 @@
 ;; To customize f90-mode for your taste, use, for example:
 ;; (you don't have to specify values for all the parameters below)
 ;;
-;;(add-hook 'f90-mode-hook
-;;      ;; These are the default values.
-;;      '(lambda () (setq f90-do-indent 3
+;; (add-hook 'f90-mode-hook
+;;       ;; These are the default values.
+;;       (lambda () (setq f90-do-indent 3
 ;;                        f90-if-indent 3
 ;;                        f90-type-indent 3
 ;;                        f90-program-indent 2

=== modified file 'lisp/progmodes/gdb-mi.el'
--- a/lisp/progmodes/gdb-mi.el  2011-04-22 18:44:26 +0000
+++ b/lisp/progmodes/gdb-mi.el  2011-05-23 17:57:17 +0000
@@ -2539,7 +2539,7 @@
     ;; Don't bind "q" to kill-this-buffer as we need it for breakpoint icons.
     (define-key map "q" 'gdb-delete-frame-or-window)
     (define-key map "\r" 'gdb-goto-breakpoint)
-    (define-key map "\t" '(lambda ()
+    (define-key map "\t" (lambda ()
                             (interactive)
                             (gdb-set-window-buffer
                              (gdb-get-buffer-create 'gdb-threads-buffer) t)))
@@ -2626,7 +2626,7 @@
     (define-key map "i" 'gdb-interrupt-thread)
     (define-key map "c" 'gdb-continue-thread)
     (define-key map "s" 'gdb-step-thread)
-    (define-key map "\t" '(lambda ()
+    (define-key map "\t" (lambda ()
                             (interactive)
                             (gdb-set-window-buffer
                              (gdb-get-buffer-create 'gdb-breakpoints-buffer) 
t)))
@@ -3582,7 +3582,7 @@
   (let ((map (make-sparse-keymap)))
     (suppress-keymap map)
     (define-key map "q" 'kill-this-buffer)
-    (define-key map "\t" '(lambda ()
+    (define-key map "\t" (lambda ()
                             (interactive)
                             (gdb-set-window-buffer
                              (gdb-get-buffer-create
@@ -3670,7 +3670,7 @@
     (define-key map "\r" 'gdb-edit-register-value)
     (define-key map [mouse-2] 'gdb-edit-register-value)
     (define-key map "q" 'kill-this-buffer)
-    (define-key map "\t" '(lambda ()
+    (define-key map "\t" (lambda ()
                             (interactive)
                             (gdb-set-window-buffer
                              (gdb-get-buffer-create

=== modified file 'lisp/progmodes/gud.el'
--- a/lisp/progmodes/gud.el     2011-05-05 06:35:41 +0000
+++ b/lisp/progmodes/gud.el     2011-05-23 17:57:17 +0000
@@ -116,11 +116,11 @@
        (display-buffer-reuse-frames t))
     (catch 'info-found
       (walk-windows
-       '(lambda (window)
-         (if (eq (window-buffer window) (get-buffer "*info*"))
-             (progn
-               (setq same-window-regexps nil)
-               (throw 'info-found nil))))
+       (lambda (window)
+         (if (eq (window-buffer window) (get-buffer "*info*"))
+             (progn
+               (setq same-window-regexps nil)
+               (throw 'info-found nil))))
        nil 0)
       (select-frame (make-frame)))
     (if (eq gud-minor-mode 'gdbmi)

=== modified file 'lisp/progmodes/idlw-help.el'
--- a/lisp/progmodes/idlw-help.el       2011-02-10 16:56:00 +0000
+++ b/lisp/progmodes/idlw-help.el       2011-05-23 17:57:17 +0000
@@ -835,7 +835,7 @@
 
      ((or idlwave-help-browser-is-local
          (string-match "w3" (symbol-name idlwave-help-browser-function)))
-      (idlwave-help-display-help-window '(lambda () (browse-url full-link))))
+      (idlwave-help-display-help-window (lambda () (browse-url full-link))))
 
      (t (browse-url full-link)))))
 

=== modified file 'lisp/progmodes/idlw-shell.el'
--- a/lisp/progmodes/idlw-shell.el      2011-05-17 02:39:23 +0000
+++ b/lisp/progmodes/idlw-shell.el      2011-05-23 17:57:17 +0000
@@ -4243,15 +4243,15 @@
 (define-key idlwave-shell-electric-debug-mode-map "_"
   'idlwave-shell-stack-down)
 (define-key idlwave-shell-electric-debug-mode-map "e"
-  '(lambda () (interactive) (idlwave-shell-print '(16))))
+  (lambda () (interactive) (idlwave-shell-print '(16))))
 (define-key idlwave-shell-electric-debug-mode-map "q" 'idlwave-shell-retall)
 (define-key idlwave-shell-electric-debug-mode-map "t"
-  '(lambda () (interactive) (idlwave-shell-send-command "help,/TRACE")))
+  (lambda () (interactive) (idlwave-shell-send-command "help,/TRACE")))
 (define-key idlwave-shell-electric-debug-mode-map [(control ??)]
   'idlwave-shell-electric-debug-help)
 (define-key idlwave-shell-electric-debug-mode-map "x"
-  '(lambda (arg) (interactive "P")
-     (idlwave-shell-print arg nil nil t)))
+  (lambda (arg) (interactive "P")
+    (idlwave-shell-print arg nil nil t)))
 
 
 ; Enter the prefix map in two places.

=== modified file 'lisp/progmodes/mixal-mode.el'
--- a/lisp/progmodes/mixal-mode.el      2011-01-26 08:36:39 +0000
+++ b/lisp/progmodes/mixal-mode.el      2011-05-23 17:57:17 +0000
@@ -1059,8 +1059,7 @@
     (let* ((completion-ignore-case t)
           ;; we already have a list, but it is not in the right format
           ;; transform it to a valid table so completition can use it
-          (table (mapcar '(lambda (elm)
-                            (cons (symbol-name (car elm)) nil))
+          (table (mapcar (lambda (elm) (cons (symbol-name (car elm)) nil))
                          mixal-operation-codes-alist))
           ;; prompt is different depending on we are close to a valid op-code
           (have-default (assq (intern-soft (current-word))

=== modified file 'lisp/progmodes/python.el'
--- a/lisp/progmodes/python.el  2011-05-17 02:26:56 +0000
+++ b/lisp/progmodes/python.el  2011-05-23 17:57:17 +0000
@@ -2380,7 +2380,7 @@
              (features (cons 'python-mode features))) ; and requires this
          (brm-init)                    ; second line of normal recipe
          (remove-hook 'python-mode-hook ; undo this from `brm-init'
-                      '(lambda () (easy-menu-add brm-menu)))
+                      (lambda () (easy-menu-add brm-menu)))
          (easy-menu-define
            python-brm-menu python-mode-map
            "Bicycle Repair Man"

=== modified file 'lisp/progmodes/sql.el'
--- a/lisp/progmodes/sql.el     2011-04-22 18:44:26 +0000
+++ b/lisp/progmodes/sql.el     2011-05-23 17:57:17 +0000
@@ -1207,13 +1207,13 @@
 
 (mapc
  ;; In Emacs 22+, provide SYSTEM-FLAG to define-abbrev.
- '(lambda (abbrev)
-    (let ((name (car abbrev))
-          (expansion (cdr abbrev)))
-      (condition-case nil
-          (define-abbrev sql-mode-abbrev-table name expansion nil 0 t)
-        (error
-         (define-abbrev sql-mode-abbrev-table name expansion)))))
+ (lambda (abbrev)
+   (let ((name (car abbrev))
+         (expansion (cdr abbrev)))
+     (condition-case nil
+         (define-abbrev sql-mode-abbrev-table name expansion nil 0 t)
+       (error
+        (define-abbrev sql-mode-abbrev-table name expansion)))))
  '(("ins"  . "insert")
    ("upd"  . "update")
    ("del"  . "delete")

=== modified file 'lisp/progmodes/verilog-mode.el'
--- a/lisp/progmodes/verilog-mode.el    2011-01-25 04:08:28 +0000
+++ b/lisp/progmodes/verilog-mode.el    2011-05-23 17:57:17 +0000
@@ -4586,7 +4586,7 @@
               (verilog-mode))))
         (buffer-list))
    ;; Process the files
-   (mapcar '(lambda (buf)
+   (mapcar (lambda (buf)
              (when (buffer-file-name buf)
                (save-excursion
                  (if (not (file-exists-p (buffer-file-name buf)))
@@ -6373,7 +6373,7 @@
 
 (defun verilog-keyword-completion (keyword-list)
   "Give list of all possible completions of keywords in KEYWORD-LIST."
-  (mapcar '(lambda (s)
+  (mapcar (lambda (s)
             (if (string-match (concat "\\<" verilog-str) s)
                 (if (or (null verilog-pred)
                         (funcall verilog-pred s))
@@ -6493,7 +6493,7 @@
                    (all-completions verilog-str 'verilog-completion)))
         (match (if verilog-toggle-completions
                    "" (try-completion
-                       verilog-str (mapcar '(lambda (elm)
+                       verilog-str (mapcar (lambda (elm)
                                              (cons elm 0)) allcomp)))))
     ;; Delete old string
     (delete-region b e)
@@ -11447,13 +11447,13 @@
               (verilog-auto-re-search-do "/\\*AUTOINOUTCOMP([^)]*)\\*/" 
'verilog-auto-inout-comp)
               ;; next in/outs which need previous sucked inputs first
               (verilog-auto-re-search-do "/\\*AUTOOUTPUT\\((\"[^\"]*\")\\)\\*/"
-                                         '(lambda () (verilog-auto-output t)))
+                                         (lambda () (verilog-auto-output t)))
               (verilog-auto-re-search-do "/\\*AUTOOUTPUT\\*/" 
'verilog-auto-output)
               (verilog-auto-re-search-do "/\\*AUTOINPUT\\((\"[^\"]*\")\\)\\*/"
-                                         '(lambda () (verilog-auto-input t)))
+                                         (lambda () (verilog-auto-input t)))
               (verilog-auto-re-search-do "/\\*AUTOINPUT\\*/"  
'verilog-auto-input)
               (verilog-auto-re-search-do "/\\*AUTOINOUT\\((\"[^\"]*\")\\)\\*/"
-                                         '(lambda () (verilog-auto-inout t)))
+                                         (lambda () (verilog-auto-inout t)))
               (verilog-auto-re-search-do "/\\*AUTOINOUT\\*/" 
'verilog-auto-inout)
               ;; Then tie off those in/outs
               (verilog-auto-re-search-do "/\\*AUTOTIEOFF\\*/" 
'verilog-auto-tieoff)

=== modified file 'lisp/ps-print.el'
--- a/lisp/ps-print.el  2011-04-19 13:44:55 +0000
+++ b/lisp/ps-print.el  2011-05-23 17:57:17 +0000
@@ -975,7 +975,7 @@
 ;;     (setq ps-font-info-database '(<your stuff> <the standard stuff>))
 ;;   or, use `ps-print-hook' (see section Hooks):
 ;;     (add-hook 'ps-print-hook
-;;               '(lambda ()
+;;               (lambda ()
 ;;                  (or (assq 'Helvetica ps-font-info-database)
 ;;                      (setq ps-font-info-database (append ...)))))
 ;;

=== modified file 'lisp/term.el'
--- a/lisp/term.el      2011-02-17 05:13:17 +0000
+++ b/lisp/term.el      2011-05-23 17:57:17 +0000
@@ -4254,8 +4254,8 @@
     (setq x
          (sort
           (copy-sequence serial-speed-history)
-          '(lambda (a b) (when (and (stringp a) (stringp b))
-                           (> (string-to-number a) (string-to-number b))))))
+          (lambda (a b) (when (and (stringp a) (stringp b))
+                     (> (string-to-number a) (string-to-number b))))))
     (dolist (i x) (when (not (equal i (car y))) (push i y)))
     y))
 

=== modified file 'lisp/terminal.el'
--- a/lisp/terminal.el  2011-04-19 13:44:55 +0000
+++ b/lisp/terminal.el  2011-05-23 17:57:17 +0000
@@ -105,8 +105,8 @@
     (define-key map [t] 'te-pass-through)
     (define-key map [switch-frame] 'handle-switch-frame)
     (define-key map "\e" terminal-meta-map)
-    ;(define-key map "\C-l"
-    ;  '(lambda () (interactive) (te-pass-through) (redraw-display)))
+    ;;(define-key map "\C-l"
+    ;;  (lambda () (interactive) (te-pass-through) (redraw-display)))
     (setq terminal-map map)))
 
 (defvar terminal-escape-map nil)

=== modified file 'lisp/textmodes/flyspell.el'
--- a/lisp/textmodes/flyspell.el        2011-04-03 20:59:45 +0000
+++ b/lisp/textmodes/flyspell.el        2011-05-23 17:57:17 +0000
@@ -296,7 +296,7 @@
 ;;*    using flyspell with mail-mode add the following expression       */
 ;;*    in your .emacs file:                                             */
 ;;*       (add-hook 'mail-mode                                          */
-;;*                 '(lambda () (setq flyspell-generic-check-word-predicate    
*/
+;;*                 (lambda () (setq flyspell-generic-check-word-predicate    
*/
 ;;*                                   'mail-mode-flyspell-verify)))            
*/
 ;;*---------------------------------------------------------------------*/
 (defvar flyspell-generic-check-word-predicate nil

=== modified file 'lisp/thumbs.el'
--- a/lisp/thumbs.el    2011-01-25 04:08:28 +0000
+++ b/lisp/thumbs.el    2011-05-23 17:57:17 +0000
@@ -226,7 +226,7 @@
              (let ((fattribs-list (file-attributes f)))
                `(,(nth 4 fattribs-list) ,(nth 7 fattribs-list) ,f)))
            (directory-files (thumbs-thumbsdir) t (image-file-name-regexp)))
-          '(lambda (l1 l2) (time-less-p (car l1) (car l2)))))
+          (lambda (l1 l2) (time-less-p (car l1) (car l2)))))
         (dirsize (apply '+ (mapcar (lambda (x) (cadr x)) files-list))))
     (while (> dirsize thumbs-thumbsdir-max-size)
       (progn

=== modified file 'lisp/vc/add-log.el'
--- a/lisp/vc/add-log.el        2011-05-14 23:58:25 +0000
+++ b/lisp/vc/add-log.el        2011-05-23 17:57:17 +0000
@@ -578,7 +578,7 @@
 If nil, use local time.
 If t, use universal time.")
 (put 'add-log-time-zone-rule 'safe-local-variable
-     '(lambda (x) (or (booleanp x) (stringp x))))
+     (lambda (x) (or (booleanp x) (stringp x))))
 
 (defun add-log-iso8601-time-zone (&optional time)
   (let* ((utc-offset (or (car (current-time-zone time)) 0))
@@ -1051,8 +1051,8 @@
   (set (make-local-variable 'fill-indent-according-to-mode) t)
   ;; Avoid that filling leaves behind a single "*" on a line.
   (add-hook 'fill-nobreak-predicate
-           '(lambda ()
-              (looking-back "^\\s *\\*\\s *" (line-beginning-position)))
+           (lambda ()
+              (looking-back "^\\s *\\*\\s *" (line-beginning-position)))
            nil t)
   (set (make-local-variable 'indent-line-function) 'change-log-indent)
   (set (make-local-variable 'tab-always-indent) nil)

=== modified file 'lisp/vc/ediff-diff.el'
--- a/lisp/vc/ediff-diff.el     2011-01-26 08:36:39 +0000
+++ b/lisp/vc/ediff-diff.el     2011-05-23 17:57:17 +0000
@@ -50,7 +50,7 @@
 
 ;; The following functions must precede all defcustom-defined variables.
 
-(fset 'ediff-set-actual-diff-options '(lambda () nil))
+(fset 'ediff-set-actual-diff-options (lambda () nil))
 
 (defcustom ediff-shell
   (cond ((memq system-type '(ms-dos windows-nt))

=== modified file 'lisp/vc/ediff-util.el'
--- a/lisp/vc/ediff-util.el     2011-01-26 08:36:39 +0000
+++ b/lisp/vc/ediff-util.el     2011-05-23 17:57:17 +0000
@@ -1682,7 +1682,7 @@
                            'ediff-get-lines-to-region-start)
                           ((eq op 'scroll-up)
                            'ediff-get-lines-to-region-end)
-                          (t '(lambda (a b c) 0))))
+                          (t (lambda (a b c) 0))))
               (max-lines (max (funcall func 'A n ctl-buf)
                               (funcall func 'B n ctl-buf)
                               (if (ediff-buffer-live-p ediff-buffer-C)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]