[elpa] externals/mmm-mode d40683c 8/9: Remove #' from all lambda forms

[Dmitry Gutov]

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))