[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master c98672e 54/63: Fixup yasnippet-debug.el
From: |
Noam Postavsky |
Subject: |
[elpa] master c98672e 54/63: Fixup yasnippet-debug.el |
Date: |
Mon, 17 Jul 2017 22:54:19 -0400 (EDT) |
branch: master
commit c98672eb54a72530c4594999624bef54b44bf432
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>
Fixup yasnippet-debug.el
* yasnippet-debug.el: Replace cl with cl-lib, replace
yas--snippets-at-point with yas-active-snippets.
---
yasnippet-debug.el | 24 ++++++++++++------------
1 file changed, 12 insertions(+), 12 deletions(-)
diff --git a/yasnippet-debug.el b/yasnippet-debug.el
index b12bcd4..92950cc 100644
--- a/yasnippet-debug.el
+++ b/yasnippet-debug.el
@@ -25,7 +25,7 @@
;;; Code:
(require 'yasnippet)
-(require 'cl)
+(require 'cl-lib)
(defun yas-debug-snippet-vars ()
"Debug snippets, fields, mirrors and the `buffer-undo-list'."
@@ -36,12 +36,12 @@
(princ (format "\nPost command hook: %s\n" post-command-hook))
(princ (format "\nPre command hook: %s\n" pre-command-hook))
- (princ (format "%s live snippets in total\n" (length
(yas--snippets-at-point (quote all-snippets)))))
+ (princ (format "%s live snippets in total\n" (length (yas-active-snippets
'all-snippets))))
(princ (format "%s overlays in buffer:\n\n" (length (overlays-in
(point-min) (point-max)))))
- (princ (format "%s live snippets at point:\n\n" (length
(yas--snippets-at-point))))
+ (princ (format "%s live snippets at point:\n\n" (length
(yas-active-snippets))))
- (dolist (snippet (yas--snippets-at-point))
+ (dolist (snippet (yas-active-snippets))
(princ (format "\tsid: %d control overlay from %d to %d\n"
(yas--snippet-id snippet)
(overlay-start (yas--snippet-control-overlay snippet))
@@ -76,11 +76,13 @@
"ENABLED")
(point-max)))
(unless (eq buffer-undo-list t)
- (princ (format "Undpolist has %s elements. First 10 elements follow:\n"
(length buffer-undo-list)))
- (let ((first-ten (subseq buffer-undo-list 0 (min 19
- (length
buffer-undo-list)))))
+ (princ (format "Undpolist has %s elements. First 10 elements follow:\n"
+ (length buffer-undo-list)))
+ (let ((first-ten (cl-subseq buffer-undo-list 0
+ (min 19 (length buffer-undo-list)))))
(dolist (undo-elem first-ten)
- (princ (format "%2s: %s\n" (position undo-elem first-ten)
(truncate-string-to-width (format "%s" undo-elem) 70))))))))
+ (princ (format "%2s: %s\n" (cl-position undo-elem first-ten)
+ (truncate-string-to-width (format "%s" undo-elem)
70))))))))
(defun yas--debug-format-fom-concise (fom)
(when fom
@@ -108,12 +110,11 @@
(defun yas-debug-test (&optional quiet)
(interactive "P")
- (yas-load-directory (or (and (listp yas-snippet-dirs)
- (first yas-snippet-dirs))
+ (yas-load-directory (or (car-safe yas-snippet-dirs)
yas-snippet-dirs
"~/Source/yasnippet/snippets/"))
(set-buffer (switch-to-buffer "*YAS TEST*"))
- (mapc #'yas--commit-snippet (yas--snippets-at-point 'all-snippets))
+ (mapc #'yas--commit-snippet (yas-active-snippets 'all-snippets))
(erase-buffer)
(setq buffer-undo-list nil)
(setq undo-in-progress nil)
@@ -128,6 +129,5 @@
(provide 'yasnippet-debug)
;; Local Variables:
;; indent-tabs-mode: nil
-;; byte-compile-warnings: (not cl-functions)
;; End:
;;; yasnippet-debug.el ends here
- [elpa] master 65952e3 53/63: Allow customizing overlay priority, (continued)
- [elpa] master 65952e3 53/63: Allow customizing overlay priority, Noam Postavsky, 2017/07/17
- [elpa] master 1a860bd 51/63: Fix undo information recording for multiline snippets, Noam Postavsky, 2017/07/17
- [elpa] master 22eeb1e 36/63: Fix interaction with c auto-fill, Noam Postavsky, 2017/07/17
- [elpa] master 0311fe2 15/63: Use :filter instead of yas--fallback, Noam Postavsky, 2017/07/17
- [elpa] master 1babe81 40/63: * yasnippet.el (yas-about): Fix compile warnings in previous commit., Noam Postavsky, 2017/07/17
- [elpa] master 2f5cb2e 56/63: Make yas-debug-process-command-line easier to debug, Noam Postavsky, 2017/07/17
- [elpa] master 164acd6 59/63: * yasnippet-debug.el (yas-debug-snippet): Show modified flag., Noam Postavsky, 2017/07/17
- [elpa] master 7b03ac2 57/63: Handle dead snippets better, Noam Postavsky, 2017/07/17
- [elpa] master 75cbf72 62/63: Update NEWS, version number to 0.12, and snippets submodule, Noam Postavsky, 2017/07/17
- [elpa] master ca04f69 39/63: Make `yas-about' more informative, Noam Postavsky, 2017/07/17
- [elpa] master c98672e 54/63: Fixup yasnippet-debug.el,
Noam Postavsky <=
- [elpa] master 1436d21 60/63: ; Merge yasnippet-debug.el updates, Noam Postavsky, 2017/07/17
- [elpa] master 3fd07de 63/63: * packages/yasnippet: Merge version 0.12.0 from upstream., Noam Postavsky, 2017/07/17