summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2011-06-14 12:01:04 -0700
committerEric Schulte <schulte.eric@gmail.com>2011-06-14 12:01:04 -0700
commit94b325839c253ce2617e0213ed7e2cb1bb6880f9 (patch)
tree9d46d9c8c316f1d789bc7d929c27f15ada3b94e0
parentf8abb11eff33a316af2e844a7b766304bd54d03f (diff)
downloadorg-mode-94b325839c253ce2617e0213ed7e2cb1bb6880f9.tar.gz
Replacing '(λ...) with #'(λ...).
* lisp/org-ascii.el (org-export-as-ascii): Replacing '(λ...) with #'(λ...). * lisp/org-attach.el: Replacing '(λ...) with #'(λ...). (org-attach-commit): Replacing '(λ...) with #'(λ...). * lisp/org-exp.el: Replacing '(λ...) with #'(λ...). (org-export-handle-include-files): Replacing '(λ...) with #'(λ...). * lisp/org-html.el: Replacing '(λ...) with #'(λ...). (org-export-as-html): Replacing '(λ...) with #'(λ...). * lisp/org-mouse.el: Replacing '(λ...) with #'(λ...). (org-mouse-popup-global-menu): Replacing '(λ...) with (org-mode-hook): Replacing '(λ...) with #'(λ...). (org-agenda-mode-hook): Replacing '(λ...) with #'(λ...). * #'(λ...).Replacing '(λ...) with #'(λ...). (org-mouse-context-menu): Replacing '(λ...) with #'(λ...). * lisp/org-src.el: Replacing '(λ...) with #'(λ...). (org-src-mode-configure-edit-buffer): Replacing '(λ...) with #'(λ...). * lisp/org-table.el: Replacing '(λ...) with #'(λ...). (org-table-fix-formulas-confirm): Replacing '(λ...) with #'(λ...). * lisp/org.el: Replacing '(λ...) with #'(λ...). (org-confirm-shell-link-function): Replacing '(λ...) with (org-category): Replacing '(λ...) with #'(λ...). * #'(λ...).Replacing '(λ...) with #'(λ...). (org-time-stamp-rounding-minutes): Replacing '(λ...) with #'(λ...).
-rw-r--r--lisp/org-ascii.el2
-rw-r--r--lisp/org-attach.el2
-rw-r--r--lisp/org-exp.el2
-rw-r--r--lisp/org-html.el2
-rw-r--r--lisp/org-mouse.el16
-rw-r--r--lisp/org-src.el2
-rw-r--r--lisp/org-table.el2
-rw-r--r--lisp/org.el8
8 files changed, 18 insertions, 18 deletions
diff --git a/lisp/org-ascii.el b/lisp/org-ascii.el
index eb7ef86..fa0c983 100644
--- a/lisp/org-ascii.el
+++ b/lisp/org-ascii.el
@@ -371,7 +371,7 @@ publishing directory."
(push (concat (nth 3 lang-words) "\n") thetoc)
(push (concat (make-string (string-width (nth 3 lang-words)) ?=)
"\n") thetoc)
- (mapc '(lambda (line)
+ (mapc #'(lambda (line)
(if (string-match org-todo-line-regexp
line)
;; This is a headline
diff --git a/lisp/org-attach.el b/lisp/org-attach.el
index e73e01e..1ff95be 100644
--- a/lisp/org-attach.el
+++ b/lisp/org-attach.el
@@ -253,7 +253,7 @@ This checks for the existence of a \".git\" directory in that directory."
(cd dir)
(shell-command "git add .")
(shell-command "git ls-files --deleted" t)
- (mapc '(lambda (file)
+ (mapc #'(lambda (file)
(unless (string= file "")
(shell-command
(concat "git rm \"" file "\""))))
diff --git a/lisp/org-exp.el b/lisp/org-exp.el
index 1487d68..b686181 100644
--- a/lisp/org-exp.el
+++ b/lisp/org-exp.el
@@ -2306,7 +2306,7 @@ TYPE must be a string, any of:
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)
diff --git a/lisp/org-html.el b/lisp/org-html.el
index 17eecd5..669382a 100644
--- a/lisp/org-html.el
+++ b/lisp/org-html.el
@@ -1337,7 +1337,7 @@ lang=\"%s\" xml:lang=\"%s\">
(push "<div id=\"text-table-of-contents\">\n" thetoc)
(push "<ul>\n<li>" thetoc)
(setq lines
- (mapcar '(lambda (line)
+ (mapcar #'(lambda (line)
(if (and (string-match org-todo-line-regexp line)
(not (get-text-property 0 'org-protected line)))
;; This is a headline
diff --git a/lisp/org-mouse.el b/lisp/org-mouse.el
index c0262e2..d2ebde7 100644
--- a/lisp/org-mouse.el
+++ b/lisp/org-mouse.el
@@ -526,7 +526,7 @@ SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:"
("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 @@ SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:"
("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 @@ This means, between the beginning of line and the point."
("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 @@ This means, between the beginning of line and the point."
(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 @@ This means, between the beginning of line and the point."
; (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)))))))
diff --git a/lisp/org-src.el b/lisp/org-src.el
index 4ec457c..7e6f20e 100644
--- a/lisp/org-src.el
+++ b/lisp/org-src.el
@@ -678,7 +678,7 @@ the language, a switch telling if the content should be in a single line."
(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)
diff --git a/lisp/org-table.el b/lisp/org-table.el
index 9139e22..90291e6 100644
--- a/lisp/org-table.el
+++ b/lisp/org-table.el
@@ -182,7 +182,7 @@ fields."
(const :tag "no confirmation" nil)))
(put 'org-table-fix-formulas-confirm
'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-table-tab-jumps-over-hlines t
"Non-nil means tab in the last column of a table with jump over a hline.
diff --git a/lisp/org.el b/lisp/org.el
index 90540b1..5f32910 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -1588,7 +1588,7 @@ single keystroke rather than having to type \"yes\"."
(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-shell-link-not-regexp ""
"A regexp to skip confirmation for shell links."
@@ -1613,7 +1613,7 @@ single keystroke rather than having to type \"yes\"."
(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-not-regexp ""
"A regexp to skip confirmation for Elisp links."
@@ -2549,7 +2549,7 @@ a double prefix argument to a time stamp command like `C-c .' or `C-c !',
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)))
@@ -3081,7 +3081,7 @@ or contain a special line
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.