Commit 10d96853 authored by Christer Ekholm's avatar Christer Ekholm

Replaced "'(lambda" with "(function (lambda"

Replaced "'(lambda" with "(function (lambda" to avoid warnings about
"(lambda (x) ...) quoted with ' rather than with #'" in emacs-24
parent 122480c6
2014-06-15 Christer Ekholm <che@chrekh.se>
Replaced "'(lambda" with "(function (lambda" to avoid warnings about
"(lambda (x) ...) quoted with ' rather than with #'" in emacs-24
* lyskom-rest.el (lyskom-known-texts): Replaced "'(lambda (x)"
* macros.el (lyskom-end-of-compilation): Replaced "'(lambda (sym)"
Added compatibility macro for called-interactively-p, with a lot
of help from David Byers.
......
......@@ -3744,7 +3744,8 @@ If optional argument NOCHANGE is non-nil then the list wont be altered."
(defun lyskom-known-texts ()
"Count how many unread texts the user have, that the client knows about."
(apply '+ (mapcar '(lambda (x) (text-list->length (read-info->text-list x)))
(apply '+ (mapcar (function
(lambda (x) (text-list->length (read-info->text-list x))))
(read-list->all-entries lyskom-to-do-list))))
......
......@@ -275,10 +275,10 @@ All the forms in BIND-LIST are evaluated before any symbols are bound."
(if lyskom-compatibility-definitions
(message "Compatibility definitions: %s"
(mapconcat '(lambda (sym)
(symbol-name sym))
lyskom-compatibility-definitions
", ")))))))
(mapconcat (function (lambda (sym)
(symbol-name sym)))
lyskom-compatibility-definitions
", ")))))))
;;; ============================================================
;;; Keymap handling
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment