Lines Matching +defs:function +defs:list
52 (defcustom sgml-transformation-function 'identity
53 "*Default value for `skeleton-transformation-function' in SGML mode."
54 :type 'function
57 (put 'sgml-transformation-function 'variable-interactive
58 "aTransformation function: ")
59 (defvaralias 'sgml-transformation 'sgml-transformation-function)
72 This list is used when first loading the `sgml-mode' library.
265 (1 (if (match-end 2) sgml-namespace-face font-lock-function-name-face))
266 (2 font-lock-function-name-face nil t))
305 "Tag names and face or list of faces to fontify with when invisible.
327 TAGRULE is a list of optionally t (no endtag) or `\\n' (separate endtag by
337 ATTRIBUTERULE is a list of optionally t (no value when no input) followed by
396 (defun sgml-mode-facemenu-add-face-function (face end)
399 (setq face (funcall skeleton-transformation-function face))
423 If you like upcased tags, put (setq sgml-transformation-function 'upcase)
433 ;;(make-local-variable 'facemenu-remove-face-function)
443 (set (make-local-variable 'indent-line-function) 'sgml-indent-line)
446 (set (make-local-variable 'comment-indent-function) 'sgml-comment-indent)
447 (set (make-local-variable 'comment-line-break-function)
463 (set (make-local-variable 'facemenu-add-face-function)
464 'sgml-mode-facemenu-add-face-function)
468 (set (make-local-variable 'skeleton-transformation-function)
469 sgml-transformation-function))
613 ;; through `skeleton-transformation-function' and inserted.
615 ;; the return value of a function, e.g. (identity "str").
623 `skeleton-transformation-function' RET `upcase' RET, or put this
625 (setq sgml-transformation-function 'upcase)"
626 (funcall (or skeleton-transformation-function 'identity)
649 ;; `str' through `skeleton-transformation-function' a second time.
665 (interactive (list (save-excursion (sgml-beginning-of-tag t))))
680 (funcall skeleton-transformation-function (car alist)))
685 (insert (funcall skeleton-transformation-function
770 (up-list -1))
778 (forward-list 1)
791 (forward-list 1))
820 (forward-list 1)
885 (progn (forward-list) (point))
910 (backward-list)
911 (forward-list))))
924 (list (read-string "Validate command: "
971 (list 0 nil nil 'cdata nil nil nil nil cdata-start))))
1161 The context is a list of tag-info structures. The last one is the tag
1174 ;; IGNORE is a list of tags that can be ignored because they have been
1449 (list empty unclosed)))
1478 (define-key map "\C-c\C-co" 'html-ordered-list)
1479 (define-key map "\C-c\C-cu" 'html-unordered-list)
1482 (define-key map "\C-c\C-cl" 'html-list-item)
1488 (define-key map "\C-co" 'html-ordered-list)
1489 (define-key map "\C-cu" 'html-unordered-list)
1492 (define-key map "\C-cl" 'html-list-item)
1512 (define-key menu-map "l" '("List Item" . html-list-item))
1513 (define-key menu-map "u" '("Unordered List" . html-unordered-list))
1514 (define-key menu-map "o" '("Ordered List" . html-ordered-list))
1577 (list '((nil \n ("List item: " "<li>" str
1589 ("dir" ,@list)
1609 ("menu" ,@list)
1610 ("ol" ,@list ("type" ("A") ("a") ("I") ("i") ("1")))
1625 ("ul" ,@list ("type" ("disc") ("circle") ("square")))
1693 ("function-name")
1734 ("dir" . "Directory list (obsolete)")
1735 ("dl" . "Definition list")
1766 ("menu" . "Menu list (obsolete)")
1770 ("ol" . "Ordered list")
1771 ("option" . "Selection list item")
1781 ("select" . "Selection list")
1796 ("ul" . "Unordered list")
1814 browsers have a function to read the source code of the page being seen, so
1857 (setq imenu-create-index-function 'html-imenu-index)
1869 ;; (make-local-variable 'imenu-sort-function)
1870 ;; (setq imenu-sort-function nil) ; sorting the menu defeats the purpose
1966 (define-skeleton html-ordered-list
1967 "HTML ordered list tags."
1973 (define-skeleton html-unordered-list
1974 "HTML unordered list tags."
1980 (define-skeleton html-list-item
1981 "HTML list item tag."
2002 (funcall skeleton-transformation-function
2007 (funcall skeleton-transformation-function
2022 (funcall skeleton-transformation-function
2027 (funcall skeleton-transformation-function