[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/mmm-mode d40683c 8/9: Remove #' from all lambda forms
From: |
Dmitry Gutov |
Subject: |
[elpa] externals/mmm-mode d40683c 8/9: Remove #' from all lambda forms |
Date: |
Fri, 23 Mar 2018 17:47:43 -0400 (EDT) |
branch: externals/mmm-mode
commit d40683cfc45b50bd629cf73c5811f9d146fa9903
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>
Remove #' from all lambda forms
---
mmm-cmds.el | 2 +-
mmm-noweb.el | 4 ++--
mmm-region.el | 30 +++++++++++++++---------------
mmm-sample.el | 2 +-
mmm-utils.el | 2 +-
mmm-vars.el | 6 +++---
6 files changed, 23 insertions(+), 23 deletions(-)
diff --git a/mmm-cmds.el b/mmm-cmds.el
index 8887720..3de5166 100644
--- a/mmm-cmds.el
+++ b/mmm-cmds.el
@@ -406,7 +406,7 @@ NAME is a symbol naming the insertion."
do (setq keys (append keys (mmm-get-all-insertion-keys it)))
finally return keys)
:test #'equal
- :key #'(lambda (x) (cons (car x) (cadr x)))
+ :key (lambda (x) (cons (car x) (cadr x)))
:from-end t))
;;}}}
diff --git a/mmm-noweb.el b/mmm-noweb.el
index 8d3958e..feea5fb 100644
--- a/mmm-noweb.el
+++ b/mmm-noweb.el
@@ -381,7 +381,7 @@ chunks."
If SYNTAX is not nil, set the syntax-table property of each region.
If SYNTAX is nil, remove the region syntax-table property.
See `mmm-syntax-region'."
- (mapcar #'(lambda (reg)
+ (mapcar (lambda (reg)
(mmm-syntax-region (car reg) (cadr reg) syntax))
regions))
@@ -392,7 +392,7 @@ optional NAME to determine the current region name."
(if (null name)
(setq name (or (mmm-name-at)
(symbol-name mmm-primary-mode))))
- (mapcar #'(lambda (reg)
+ (mapcar (lambda (reg)
(if (not (string= (car reg) name))
(mmm-syntax-region-list syntax (cdr reg))))
(mmm-names-alist (point-min) (point-max))))
diff --git a/mmm-region.el b/mmm-region.el
index 17f5600..007f211 100644
--- a/mmm-region.el
+++ b/mmm-region.el
@@ -61,7 +61,7 @@ See `mmm-included-p' for the values of TYPE."
(or pos (setq pos (point)))
(mmm-sort-overlays
(cl-remove-if-not
- #'(lambda (ovl)
+ (lambda (ovl)
(and (overlay-get ovl 'mmm)
(mmm-included-p ovl pos type)))
;; XEmacs complains about positions outside the buffer
@@ -114,7 +114,7 @@ The overlays are returned in order of decreasing priority.
No
attention is paid to stickiness."
(mmm-sort-overlays
(cl-remove-if-not
- #'(lambda (ovl)
+ (lambda (ovl)
(and (overlay-get ovl 'mmm)
(<= (overlay-start ovl) start)
(>= (overlay-end ovl) stop)))
@@ -127,7 +127,7 @@ The overlays are returned in order of decreasing priority.
No
attention is paid to stickiness."
(mmm-sort-overlays
(cl-remove-if-not
- #'(lambda (ovl)
+ (lambda (ovl)
(and (overlay-get ovl 'mmm)
(>= (overlay-start ovl) start)
(<= (overlay-end ovl) stop)))
@@ -140,7 +140,7 @@ The overlays are returned in order of decreasing priority.
No
attention is paid to stickiness."
(mmm-sort-overlays
(cl-remove-if-not
- #'(lambda (ovl)
+ (lambda (ovl)
(overlay-get ovl 'mmm))
(overlays-in (max start (point-min))
(min stop (point-max))))))
@@ -148,7 +148,7 @@ attention is paid to stickiness."
(defun mmm-sort-overlays (overlays)
"Sort OVERLAYS in order of decreasing priority."
(sort (cl-copy-list overlays)
- #'(lambda (x y) (> (or (overlay-get x 'priority) 0)
+ (lambda (x y) (> (or (overlay-get x 'priority) 0)
(or (overlay-get y 'priority) 0)))))
;;}}}
@@ -181,7 +181,7 @@ Return non-nil if the current region changed.
Also deletes overlays that ought to evaporate because their delimiters
have disappeared."
(mapc #'delete-overlay
- (cl-remove-if #'(lambda (ovl)
+ (cl-remove-if (lambda (ovl)
(or (not (eq (overlay-get ovl 'mmm-evap) 'front))
(overlay-buffer (overlay-get ovl 'front))))
(mmm-overlays-at pos)))
@@ -427,7 +427,7 @@ with point at the start of the new region."
Does not handle delimiters. Use `mmm-make-region'."
(let ((ovl (make-overlay beg end nil (not beg-sticky) end-sticky)))
(mapc
- #'(lambda (pair) (overlay-put ovl (car pair) (cadr pair)))
+ (lambda (pair) (overlay-put ovl (car pair) (cadr pair)))
`((mmm t) ; Mark all submode overlays
(mmm-mode ,submode)
,@(if delim '((delim t)) nil)
@@ -576,7 +576,7 @@ different keymaps, syntax tables, local variables, etc. for
submodes."
"Filter `mmm-save-local-variables' to match TYPE and MODE.
Return a list \(VAR ...). In some cases, VAR will be a cons cell
\(GETTER . SETTER) -- see `mmm-save-local-variables'."
- (mmm-mapcan #'(lambda (element)
+ (mmm-mapcan (lambda (element)
(and (if (and (consp element)
(cdr element)
(cadr element))
@@ -596,7 +596,7 @@ Return a list \(VAR ...). In some cases, VAR will be a
cons cell
"Get the local variables and values for TYPE from this buffer.
Return \((VAR VALUE) ...). In some cases, VAR will be of the form
\(GETTER . SETTER) -- see `mmm-save-local-variables'."
- (mmm-mapcan #'(lambda (var)
+ (mmm-mapcan (lambda (var)
(if (consp var)
`((,var ,(funcall (car var))))
(and (boundp var)
@@ -618,7 +618,7 @@ Return \((VAR VALUE) ...). In some cases, VAR will be of
the form
"Set all the local variables saved for MODE and OVL.
Looks up global, buffer and region saves. When MODE is nil, just
the region ones."
- (mapcar #'(lambda (var)
+ (mapcar (lambda (var)
;; (car VAR) may be (GETTER . SETTER)
(if (consp (car var))
(funcall (cdar var) (cadr var))
@@ -658,7 +658,7 @@ region and mode for the previous position."
(overlay-get ovl 'mmm-local-variables)
mmm-region-saved-locals-for-dominant))
(set-local-value
- #'(lambda (var)
+ (lambda (var)
(setcar (cdr var)
;; (car VAR) may be (GETTER . SETTER)
(if (consp (car var))
@@ -687,10 +687,10 @@ region and mode for the previous position."
(defun mmm-update-font-lock-buffer ()
"Turn on font lock if any mode in the buffer enables it."
- (if (cl-some #'(lambda (mode)
+ (if (cl-some (lambda (mode)
(get mode 'mmm-font-lock-mode))
(cons mmm-primary-mode
- (mapcar #'(lambda (ovl)
+ (mapcar (lambda (ovl)
(overlay-get ovl 'mmm-mode))
(mmm-overlays-overlapping
(point-min) (point-max)))))
@@ -785,7 +785,7 @@ of the REGIONS covers START to STOP."
;; Necessary to catch changes in font-lock cache state and position.
(mmm-save-changed-local-variables
mmm-current-submode mmm-current-overlay)
- (mapc #'(lambda (elt)
+ (mapc (lambda (elt)
(when (get (car elt) 'mmm-font-lock-mode)
(mmm-fontify-region-list (car elt) (cdr elt))))
(mmm-regions-alist start stop)))
@@ -803,7 +803,7 @@ of the REGIONS covers START to STOP."
(save-excursion
(let ((func (get mode 'mmm-fontify-region-function))
font-lock-extend-region-functions)
- (mapc #'(lambda (reg)
+ (mapc (lambda (reg)
(cl-destructuring-bind (beg end ovl) reg
(goto-char beg)
;; Here we do the same sort of thing that
diff --git a/mmm-sample.el b/mmm-sample.el
index 4500388..5ee4419 100644
--- a/mmm-sample.el
+++ b/mmm-sample.el
@@ -118,7 +118,7 @@ and MODE is a major mode function symbol.")
(setq string (match-string 0 string))
(or (mmm-ensure-modename
;; First try the user override variable.
- (cl-some #'(lambda (pair)
+ (cl-some (lambda (pair)
(if (string-match (car pair) string) (cdr pair) nil))
mmm-here-doc-mode-alist))
(let ((words (split-string (downcase string) "[_-]+")))
diff --git a/mmm-utils.el b/mmm-utils.el
index 9fd4394..d17ee44 100644
--- a/mmm-utils.el
+++ b/mmm-utils.el
@@ -117,7 +117,7 @@ is important that nil values disappear."
Use of this macro can make code more readable when there are a lot of
PARAMS, but less readable when there are only a few. Also best used
only when it is important that nil values disappear."
- `(append ,@(mapcar #'(lambda (param)
+ `(append ,@(mapcar (lambda (param)
(macroexpand `(mmm-save-keyword ,param)))
params)))
diff --git a/mmm-vars.el b/mmm-vars.el
index 1af7697..726f766 100644
--- a/mmm-vars.el
+++ b/mmm-vars.el
@@ -149,7 +149,7 @@
;; Indentation style control variables.
;; These have to be localized in Emacs: see `mmm-mode-on'.
,@(mapcar
- #'(lambda (var) (list var nil mmm-c-derived-modes))
+ (lambda (var) (list var nil mmm-c-derived-modes))
'(c++-template-syntax-table
c-<-op-cont-regexp
c->-op-cont-regexp
@@ -1023,7 +1023,7 @@ and is not for the user to see.")
(defun mmm-add-group (group classes)
"Add CLASSES and a \"grouping class\" named GROUP which calls them all.
The CLASSES are all made private, i.e. non-user-visible."
- (mmm-add-classes (mapcar #'(lambda (class)
+ (mmm-add-classes (mapcar (lambda (class)
(append class
'(:private t)))
classes))
@@ -1033,7 +1033,7 @@ The CLASSES are all made private, i.e. non-user-visible."
(defun mmm-add-to-group (group classes)
"Add CLASSES to the \"grouping class\" named GROUP.
The CLASSES are all made private, i.e. non-user-visible."
- (mmm-add-classes (mapcar #'(lambda (class)
+ (mmm-add-classes (mapcar (lambda (class)
(append class
'(:private t)))
classes))
- [elpa] externals/mmm-mode updated (3aa09e6 -> 792249b), Dmitry Gutov, 2018/03/23
- [elpa] externals/mmm-mode ee625de 5/9: Merge pull request #82 from AdamNiederer/unbreak-cl, Dmitry Gutov, 2018/03/23
- [elpa] externals/mmm-mode 00222a0 4/9: Namespace the rest of the functions in mmm-region, Dmitry Gutov, 2018/03/23
- [elpa] externals/mmm-mode 5ffed8b 1/9: Namespace cl functions, Dmitry Gutov, 2018/03/23
- [elpa] externals/mmm-mode da8fd1f 2/9: Revert cl namespacing and add aliases for emacs < 26, Dmitry Gutov, 2018/03/23
- [elpa] externals/mmm-mode 5fce57d 7/9: Fix Emacs 26+, Dmitry Gutov, 2018/03/23
- [elpa] externals/mmm-mode 12cd499 6/9: Replace cadddr and caddr with nth, Dmitry Gutov, 2018/03/23
- [elpa] externals/mmm-mode d40683c 8/9: Remove #' from all lambda forms,
Dmitry Gutov <=
- [elpa] externals/mmm-mode 79fcf10 3/9: Namespace unnamespaced cl- functions with mmm-, Dmitry Gutov, 2018/03/23
- [elpa] externals/mmm-mode 792249b 9/9: Release 0.5.6, Dmitry Gutov, 2018/03/23