Browse Source

Remove useless uses of quotes in front of lambdas

Nicolas Richard 5 years ago
parent
commit
2db3c075c3
4 changed files with 15 additions and 15 deletions
  1. 2 2
      org-devel.org
  2. 1 1
      org-gtd-etc.org
  3. 11 11
      org-hacks.org
  4. 1 1
      org-tests/tools/ert.el

+ 2 - 2
org-devel.org

@@ -470,14 +470,14 @@ The following notes should be taken into consideration before using Fireforg:
                               org-mail-htmlize-mime-delimiter-alist)))
          (if (eq type 'multipart)
              (format (nth 3 delimlst) subtype
-                     (mapconcat '(lambda (b)
+                     (mapconcat (lambda (b)
                                    (apply 'org-mail-htmlize-mime-entity
                                           (car b) (cadr b) (cddr b)))
                                 body "")
                      subtype)
            (format (nth 1 delimlst)
                    type subtype
-                   (mapconcat '(lambda (h)
+                   (mapconcat (lambda (h)
                                  (format (nth 2 delimlst) (car h) (cdr h)))
                               cont-head "")
                    body))))

+ 1 - 1
org-gtd-etc.org

@@ -83,7 +83,7 @@ describes how he uses Org for Pomodoro:
 : Modify the org-clock-in so that a timer is started with the default
 : value except if a timer is already started :
 : 
-: (add-hook 'org-clock-in-hook '(lambda () 
+: (add-hook 'org-clock-in-hook (lambda ()
 :       (if (not org-timer-current-timer) 
 :       (org-timer-set-timer '(16)))))
 

+ 11 - 11
org-hacks.org

@@ -1423,14 +1423,14 @@ headline or the #+FILETAGS: statement.
     (when (eq major-mode 'org-mode)
       (save-excursion
         (org-map-entries
-         '(lambda ()
-            (let ((alltags (split-string (or (org-entry-get (point) "ALLTAGS") "") ":"))
-                  local inherited tag)
-              (dolist (tag alltags)
-                (if (get-text-property 0 'inherited tag)
-                    (push tag inherited) (push tag local)))
-              (dolist (tag local)
-                (if (member tag inherited) (org-toggle-tag tag 'off)))))
+         (lambda ()
+           (let ((alltags (split-string (or (org-entry-get (point) "ALLTAGS") "") ":"))
+                 local inherited tag)
+             (dolist (tag alltags)
+               (if (get-text-property 0 'inherited tag)
+                   (push tag inherited) (push tag local)))
+             (dolist (tag local)
+               (if (member tag inherited) (org-toggle-tag tag 'off)))))
          t nil))))
 #+END_SRC
 
@@ -1592,7 +1592,7 @@ changed.
           'ba/org-adjust-tags-column-maybe)
 (add-hook 'before-save-hook 'ba/org-adjust-tags-column-before-save)
 (add-hook 'after-save-hook 'ba/org-adjust-tags-column-after-save)
-(add-hook 'org-agenda-mode-hook '(lambda ()
+(add-hook 'org-agenda-mode-hook (lambda ()
                                   (setq org-agenda-tags-column (- (window-width)))))
 
 ; between invoking org-refile and displaying the prompt (which
@@ -1764,7 +1764,7 @@ containing the filetag. To release the restriction, type C-c C-x >
 This is useful to make sure what task you are operating on.
 
 #+BEGIN_SRC emacs-lisp
-(add-hook 'org-agenda-mode-hook '(lambda () (hl-line-mode 1)))
+(add-hook 'org-agenda-mode-hook (lambda () (hl-line-mode 1)))
 #+END_SRC
 
 Under XEmacs:
@@ -1772,7 +1772,7 @@ Under XEmacs:
 #+BEGIN_SRC emacs-lisp
 ;; hl-line seems to be only for emacs
 (require 'highline)
-(add-hook 'org-agenda-mode-hook '(lambda () (highline-mode 1)))
+(add-hook 'org-agenda-mode-hook (lambda () (highline-mode 1)))
 
 ;; highline-mode does not work straightaway in tty mode.
 ;; I use a black background

+ 1 - 1
org-tests/tools/ert.el

@@ -737,7 +737,7 @@ element of TYPE.  TEST should be a predicate."
   ;; Returns a gensym named `ert-form-evaluation-aborted-XXX', but
   ;; that's a wart, so let's not document it.
   (unless type (setq type ''error))
-  (unless test (setq test '(lambda (condition) t)))
+  (unless test (setq test (lambda (condition) t)))
   (ert-expand-should
    `(should-error ,form ,@keys)
    form env