ld/yasnippet
1
0
Fork 0
mirror of https://github.com/joaotavora/yasnippet.git synced 2025-10-13 21:13:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

Avoid error in case this-command isn't a symbol.

Browse Source 
Fixes #664.

* yasnippet.el (yas--skip-and-clear-field-p): Only get
  `delete-selection' property of `this-command' when it's a symbol.
This commit is contained in:
Noam Postavsky 2016-02-26 16:59:39 -05:00
parent 88b7950554
commit 572c73d50b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yasnippet.el
View File

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