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

Minor: cleanup internal doc headings slightly

Browse Source
This commit is contained in:
João Távora 2012-11-08 22:15:42 +00:00
parent a581ac475d
commit 552008872b
1 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
yasnippet.el
View File

@ -375,6 +375,8 @@ the trigger key itself."
:group 'yasnippet) :group 'yasnippet)
;;; User-visible variables
(defvar yas-keymap (let ((map (make-sparse-keymap))) (defvar yas-keymap (let ((map (make-sparse-keymap)))
(define-key map [(tab)] 'yas-next-field-or-maybe-expand) (define-key map [(tab)] 'yas-next-field-or-maybe-expand)
(define-key map (kbd "TAB") 'yas-next-field-or-maybe-expand) (define-key map (kbd "TAB") 'yas-next-field-or-maybe-expand)
@ -784,9 +786,9 @@ Honour `yas-dont-activate', which see."
(add-hook 'yas-global-mode-hook 'yas--global-mode-reload-with-jit-maybe) (add-hook 'yas-global-mode-hook 'yas--global-mode-reload-with-jit-maybe)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Major mode stuff ;;; Major mode stuff
;;
(defvar yas--font-lock-keywords (defvar yas--font-lock-keywords
(append '(("^#.*$" . font-lock-comment-face)) (append '(("^#.*$" . font-lock-comment-face))
lisp-font-lock-keywords lisp-font-lock-keywords
@ -1319,7 +1321,7 @@ in GNU Emacs 24.1 or higher."
'(called-interactively-p) '(called-interactively-p)
`(called-interactively-p ,kind))) `(called-interactively-p ,kind)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Template-related and snippet loading functions ;;; Template-related and snippet loading functions
(defun yas--parse-template (&optional file) (defun yas--parse-template (&optional file)
@ -1450,9 +1452,9 @@ Here's a list of currently recognized directives:
(cdr where) (cdr where)
(yas--template-expand-env yas--current-template))))))) (yas--template-expand-env yas--current-template)))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Popping up for keys and templates ;;; Popping up for keys and templates
;;
(defvar yas--x-pretty-prompt-templates nil (defvar yas--x-pretty-prompt-templates nil
"If non-nil, attempt to prompt for templates like TextMate.") "If non-nil, attempt to prompt for templates like TextMate.")
@ -1610,9 +1612,9 @@ Optional PROMPT sets the prompt to use."
(defun yas-no-prompt (prompt choices &optional display-fn) (defun yas-no-prompt (prompt choices &optional display-fn)
(first choices)) (first choices))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Loading snippets from files ;;; Loading snippets from files
;;
(defun yas--load-yas-setup-file (file) (defun yas--load-yas-setup-file (file)
(load file 'noerror)) (load file 'noerror))
@ -1780,7 +1782,7 @@ foo\"bar\\! -> \"foo\\\"bar\\\\!\""
string string
t) t)
"\"")) "\""))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Snippet compilation function ;;; Snippet compilation function
(defun yas--initialize () (defun yas--initialize ()
@ -1856,9 +1858,8 @@ This works by stubbing a few functions, then calling
yas--scheduled-jit-loads)) yas--scheduled-jit-loads))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Some user level functions ;;; Some user level functions
;;;
(defun yas-about () (defun yas-about ()
(interactive) (interactive)
@ -3414,7 +3415,7 @@ The error should be ignored in `debug-ignored-errors'"
(add-to-list 'debug-ignored-errors "^Exit the snippet first!$") (add-to-list 'debug-ignored-errors "^Exit the snippet first!$")
;; Snippet expansion and "stacked" expansion: ;;; Snippet expansion and "stacked" expansion:
;; ;;
;; Stacked expansion is when you try to expand a snippet when already ;; Stacked expansion is when you try to expand a snippet when already
;; inside a snippet expansion. ;; inside a snippet expansion.
@ -4180,7 +4181,7 @@ When multiple expressions are found, only the last one counts."
;;; Post-command hook: ;;; Post-command hook:
;;
(defun yas--post-command-handler () (defun yas--post-command-handler ()
"Handles various yasnippet conditions after each command." "Handles various yasnippet conditions after each command."
(cond (yas--protection-violation (cond (yas--protection-violation
@ -4396,6 +4397,7 @@ handle the end-of-buffer error fired in it by calling
k 'self-insert-command)))) k 'self-insert-command))))
;;; Backward compatibility to yasnippet <= 0.7 ;;; Backward compatibility to yasnippet <= 0.7
(defvar yas--exported-syms '(;; `defcustom's (defvar yas--exported-syms '(;; `defcustom's
;; ;;
yas-snippet-dirs yas-snippet-dirs