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

* Fix Issue 131.

Browse Source 
* Remove a warning about `beginning-of-buffer'
This commit is contained in:
capitaomorte 2010-04-03 20:29:41 +00:00
parent faea0dfd7e
commit 579081f000
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
yasnippet.el
View File

@ -1822,8 +1822,8 @@ not need to be a real mode."
;; ;;
(dolist (parent parent-tables) (dolist (parent parent-tables)
(unless (find parent (yas/table-parents snippet-table)) (unless (find parent (yas/table-parents snippet-table))
(push (yas/table-parents snippet-table) (push parent
parent))) (yas/table-parents snippet-table))))
;; X) The keymap created here here is the menu keymap, it is also ;; X) The keymap created here here is the menu keymap, it is also
;; gotten/created according to MODE. Make a menu entry for ;; gotten/created according to MODE. Make a menu entry for
@ -2640,7 +2640,7 @@ With optional prefix argument KILL quit the window and buffer."
names)))))))))) names))))))))))
(display-buffer buffer) (display-buffer buffer)
(with-current-buffer buffer (with-current-buffer buffer
(beginning-of-buffer)))) (goto-char (point-min)))))
;;; User convenience functions, for using in snippet definitions ;;; User convenience functions, for using in snippet definitions
@ -2701,12 +2701,10 @@ Otherwise throw exception."
(when field (when field
(yas/field-text-for-display field)))) (yas/field-text-for-display field))))
(defun yas/text (defun yas/text ()
(if yas/text (if (and yas/text
(if (not (string= "" yas/text)) (not (string= "" yas/text)))
)) yas/text))
(or (and yas/text)
(not ())))
(defun yas/get-field-once (number &optional transform-fn) (defun yas/get-field-once (number &optional transform-fn)
(unless yas/modified-p (unless yas/modified-p