[elpa] master 572c73d 7/8: Avoid error in case this-command isn't a symbol.

[João Távora]

branch: master
commit 572c73d50b5521b4a56eae7b00ae6c7e61582e06
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>

    Avoid error in case this-command isn't a symbol.
    
    Fixes #664.
    
    * yasnippet.el (yas--skip-and-clear-field-p): Only get
      `delete-selection' property of `this-command' when it's a symbol.
---
 yasnippet.el |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/yasnippet.el b/yasnippet.el
index 69d6b26..b68389f 100644
--- a/yasnippet.el
+++ b/yasnippet.el
@@ -3390,9 +3390,9 @@ BEG, END and LENGTH like overlay modification hooks."
        (= (point) (yas--field-start field))
        (require 'delsel)
        ;; `yank' sets `this-command' to t during execution.
-       (let ((clearp (get (if (commandp this-command) this-command
-                            this-original-command)
-                          'delete-selection)))
+       (let* ((command (if (commandp this-command) this-command
+                         this-original-command))
+              (clearp (if (symbolp command) (get command 'delete-selection))))
          (when (and (not (memq clearp '(yank supersede kill)))
                     (functionp clearp))
            (setq clearp (funcall clearp)))