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

* yasnippet.el (yas--extra-modes): Move alias before def

Browse Source
This commit is contained in:
Stefan Monnier 2019-06-27 19:53:00 -04:00 committed by Noam Postavsky
parent bd3572a9b3
commit d91dd66f2a
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
yasnippet.el
View File

@ -1,6 +1,6 @@
;;; yasnippet.el --- Yet another snippet extension for Emacs. ;;; yasnippet.el --- Yet another snippet extension for Emacs
;; Copyright (C) 2008-2018 Free Software Foundation, Inc. ;; Copyright (C) 2008-2019 Free Software Foundation, Inc.
;; Authors: pluskid <pluskid@gmail.com>, ;; Authors: pluskid <pluskid@gmail.com>,
;; João Távora <joaotavora@gmail.com>, ;; João Távora <joaotavora@gmail.com>,
;; Noam Postavsky <npostavs@gmail.com> ;; Noam Postavsky <npostavs@gmail.com>
@ -381,8 +381,7 @@ the trigger key itself."
(defcustom yas-alias-to-yas/prefix-p t (defcustom yas-alias-to-yas/prefix-p t
"If non-nil make aliases for the old style yas/ prefixed symbols. "If non-nil make aliases for the old style yas/ prefixed symbols.
It must be set to nil before loading yasnippet to take effect." It must be set to nil before loading yasnippet to take effect."
:type 'boolean :type 'boolean)
:group 'yasnippet)
;; Only two faces, and one of them shouldn't even be used... ;; Only two faces, and one of them shouldn't even be used...
;; ;;
@ -790,12 +789,12 @@ expanded.")
["About" yas-about ["About" yas-about
:help "Display some information about YASnippet"])) :help "Display some information about YASnippet"]))
(define-obsolete-variable-alias 'yas-extra-modes 'yas--extra-modes "0.9.1")
(defvar yas--extra-modes nil (defvar yas--extra-modes nil
"An internal list of modes for which to also lookup snippets. "An internal list of modes for which to also lookup snippets.
This variable probably makes more sense as buffer-local, so This variable probably makes more sense as buffer-local, so
ensure your use `make-local-variable' when you set it.") ensure your use `make-local-variable' when you set it.")
(define-obsolete-variable-alias 'yas-extra-modes 'yas--extra-modes "0.9.1")
(defvar yas--tables (make-hash-table) (defvar yas--tables (make-hash-table)
"A hash table of mode symbols to `yas--table' objects.") "A hash table of mode symbols to `yas--table' objects.")
@ -4689,7 +4688,10 @@ SAVED-QUOTES is the in format returned by `yas--save-backquotes'."
(defun yas--scan-sexps (from count) (defun yas--scan-sexps (from count)
(ignore-errors (ignore-errors
(save-match-data ; `scan-sexps' may modify match data. (save-match-data ; `scan-sexps' may modify match data.
;; Parse using the syntax table corresponding to the yasnippet syntax.
(with-syntax-table (standard-syntax-table) (with-syntax-table (standard-syntax-table)
;; And ignore syntax-table properties that may have been placed by the
;; major mode since these aren't related to the yasnippet syntax.
(let ((parse-sexp-lookup-properties nil)) (let ((parse-sexp-lookup-properties nil))
(scan-sexps from count)))))) (scan-sexps from count))))))