* lisp/autorevert.el (auto-revert-notify-handler): Use memq.

Hide assertion failure.
* lisp/skeleton.el: Use cl-lib.
(skeleton-further-elements): Use defvar-local.
(skeleton-insert): Use cl-progv.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index acc7d6566d3b480dd0b473e333758bb187c9d6d8..7de7b079570cf0748dc58794be841e3ed3721268 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2013-06-05  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * autorevert.el (auto-revert-notify-handler): Use memq.
+       Hide assertion failure.
+
+       * skeleton.el: Use cl-lib.
+       (skeleton-further-elements): Use defvar-local.
+       (skeleton-insert): Use cl-progv.
+
 2013-06-05  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * progmodes/prog-mode.el (prog-prettify-symbols)

diff --git a/lisp/autorevert.el b/lisp/autorevert.el
index 90dda93a1666222fd485cca84c77454f10b9aba7..4a6d4cb4cc097adc85a2e3b7da4cb378599a5128 100644 (file)
--- a/lisp/autorevert.el
+++ b/lisp/autorevert.el
@@ -578,7 +578,7 @@ will use an up-to-date value of `auto-revert-interval'"
             ((featurep 'w32notify) (nth 2 event)))))
 
 (defun auto-revert-notify-handler (event)
-  "Handle an event returned from file notification."
+  "Handle an EVENT returned from file notification."
   (when (auto-revert-notify-event-p event)
     (let* ((descriptor (auto-revert-notify-event-descriptor event))
           (action (auto-revert-notify-event-action event))
@@ -591,10 +591,12 @@ will use an up-to-date value of `auto-revert-interval'"
        (cl-assert descriptor)
        (cond
         ((featurep 'gfilenotify)
-         (cl-assert (or (eq 'attribute-changed action)
-                        (eq 'changed action)
-                        (eq 'created action)
-                        (eq 'deleted action))))
+         (cl-assert (memq action '(attribute-changed changed created deleted
+                                    ;; FIXME: I keep getting this action, so I
+                                    ;; added it here, but I have no idea what
+                                    ;; I'm doing.  --Stef
+                                    changes-done-hint))
+                     t))
         ((featurep 'inotify)
          (cl-assert (or (memq 'attrib action)
                         (memq 'create action)

diff --git a/lisp/skeleton.el b/lisp/skeleton.el
index 01288b89132225727e575977f25918f534d4e1d8..a7eae7464e2c5cde4301bb9c503570d08275363f 100644 (file)
--- a/lisp/skeleton.el
+++ b/lisp/skeleton.el
@@ -31,6 +31,8 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'cl-lib))
+
 ;; page 1:     statement skeleton language definition & interpreter
 ;; page 2:     paired insertion
 ;; page 3:     mirror-mode, an example for setting up paired insertion
@@ -84,13 +86,11 @@ The variables `v1' and `v2' are still set when calling this.")
   "When non-nil, indent rigidly under current line for element `\\n'.
 Else use mode's `indent-line-function'.")
 
-(defvar skeleton-further-elements ()
+(defvar-local skeleton-further-elements ()
   "A buffer-local varlist (see `let') of mode specific skeleton elements.
 These variables are bound while interpreting a skeleton.  Their value may
 in turn be any valid skeleton element if they are themselves to be used as
 skeleton elements.")
-(make-variable-buffer-local 'skeleton-further-elements)
-
 
 (defvar skeleton-subprompt
   (substitute-command-keys
@@ -260,8 +260,10 @@ When done with skeleton, but before going back to `_'-point call
          skeleton-modified skeleton-point resume: help input v1 v2)
       (setq skeleton-positions nil)
       (unwind-protect
-         (eval `(let ,skeleton-further-elements
-                  (skeleton-internal-list skeleton str)))
+         (cl-progv
+              (mapcar #'car skeleton-further-elements)
+              (mapcar (lambda (x) (eval (cadr x))) skeleton-further-elements)
+            (skeleton-internal-list skeleton str))
        (run-hooks 'skeleton-end-hook)
        (sit-for 0)
        (or (pos-visible-in-window-p beg)