From 2f5cb2e2ef892595a0c8d634be401718f9d0771c Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Thu, 11 May 2017 07:56:42 -0400 Subject: [PATCH] Make yas-debug-process-command-line easier to debug * yasnippet-debug.el (yas-debug-process-command-line): Allow giving options programatically --- yasnippet-debug.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/yasnippet-debug.el b/yasnippet-debug.el index c080a11..ac0d237 100644 --- a/yasnippet-debug.el +++ b/yasnippet-debug.el @@ -288,18 +288,19 @@ (format "snippet exit at %d" (marker-position (yas--fom-start fom))))))) -(defun yas-debug-process-command-line () +(defun yas-debug-process-command-line (&optional options) "Implement command line processing." (setq yas-verbosity 99) (setq yas-triggers-in-field t) (setq debug-on-error t) (let* ((snippet-file nil) (snippet-mode 'fundamental-mode) - (options (cl-loop for opt = (pop command-line-args-left) - while (and opt (not (equal opt "--")) - (string-prefix-p "-" opt)) - collect opt)) (snippet-key nil)) + (unless options + (setq options (cl-loop for opt = (pop command-line-args-left) + while (and opt (not (equal opt "--")) + (string-prefix-p "-" opt)) + collect opt))) (when-let (mode (cl-member "-M:" options :test #'string-prefix-p)) (setq snippet-mode (intern (concat (substring (car mode) 3) "-mode")))) (when-let (mode (cl-member "-M." options :test #'string-prefix-p))