Lines Matching +defs:face +defs:name
95 (define-key map "\C-c\C-n" 'sgml-name-char)
106 (define-key map "\C-c8" 'sgml-name-8bit-mode)
109 (define-key map "&" 'sgml-name-char)
114 (define-key map "\"" 'sgml-name-self))
116 (define-key map "'" 'sgml-name-self)))
118 'sgml-maybe-name-self)
122 (aset map c 'sgml-maybe-name-self)))
125 (define-key menu-map [sgml-name-8bit-mode]
126 '("Toggle 8 Bit Insertion" . sgml-name-8bit-mode))
168 (defcustom sgml-name-8bit-mode nil
229 The file name of current buffer file name will be appended to this,
246 (defconst sgml-name-re "[_:[:alpha:]][-_.:[:alnum:]]*")
247 (defconst sgml-tag-name-re (concat "<\\([!/?]?" sgml-name-re "\\)"))
249 (defconst sgml-start-tag-regex (concat "<" sgml-name-re sgml-attrs-re)
254 '((t (:inherit font-lock-builtin-face)))
255 "`sgml-mode' face used to highlight the namespace part of identifiers."
257 (defvar sgml-namespace-face 'sgml-namespace)
261 `((,(concat "<\\([!?]" sgml-name-re "\\)") 1 font-lock-keyword-face)
264 (,(concat "</?\\(" sgml-namespace-re "\\)\\(?::\\(" sgml-name-re "\\)\\)?")
265 (1 (if (match-end 2) sgml-namespace-face font-lock-function-name-face))
266 (2 font-lock-function-name-face nil t))
272 sgml-name-re "\\)\\)?=[\"']")
273 (1 (if (match-end 2) sgml-namespace-face font-lock-variable-name-face))
274 (2 font-lock-variable-name-face nil t))
275 (,(concat "[&%]" sgml-name-re ";?") . font-lock-variable-name-face)))
282 (regexp-opt (mapcar 'car sgml-tag-face-alist) t)
285 sgml-tag-face-alist)) prepend))))))
290 "*Rules for highlighting SGML code. See also `sgml-tag-face-alist'.")
301 (defvar sgml-face-tag-alist ()
302 "Alist of face and tag name for facemenu.")
304 (defvar sgml-tag-face-alist ()
305 "Tag names and face or list of faces to fontify with when invisible.
351 "*Alist of tag name and short description."
375 (when (or (string= "xml" (file-name-extension (or buffer-file-name "")))
396 (defun sgml-mode-facemenu-add-face-function (face end)
397 (if (setq face (cdr (assq face sgml-face-tag-alist)))
399 (setq face (funcall skeleton-transformation-function face))
400 (setq facemenu-end-add-face (concat "</" face ">"))
401 (concat "<" face ">"))
402 (error "Face not configured for %s mode" mode-name)))
405 ;; Don't break between a tag name and its first argument.
432 (make-local-variable 'facemenu-end-add-face)
433 ;;(make-local-variable 'facemenu-remove-face-function)
438 \[ \t]*</?\\(" sgml-name-re sgml-attrs-re "\\)?>"))
463 (set (make-local-variable 'facemenu-add-face-function)
464 'sgml-mode-facemenu-add-face-function)
467 (setq mode-name "XML")
478 sgml-name-re "\\)")
483 "\\)\\(" sgml-name-re "\\)\\1")
488 "\\)\\(" sgml-name-re "\\)\\1")
558 (defun sgml-name-char (&optional char)
559 "Insert a symbolic character name according to `sgml-char-names'.
573 "Change the char before point into its `&name;' equivalent.
577 (name
583 (if (not name)
584 (error "Don't know the name of `%c'" char)
586 (insert (format (if (numberp name) "&#%d;" "&%s;") name)))))
588 (defun sgml-name-self ()
589 "Insert a symbolic character name according to `sgml-char-names'."
591 (sgml-name-char last-command-char))
593 (defun sgml-maybe-name-self ()
594 "Insert a symbolic character name according to `sgml-char-names'."
596 (if sgml-name-8bit-mode
601 (sgml-name-char mc))
604 (defun sgml-name-8bit-mode ()
608 (setq sgml-name-8bit-mode (not sgml-name-8bit-mode))
609 (message "sgml name entity mode is now %s"
610 (if sgml-name-8bit-mode "ON" "OFF")))
736 (sgml-name-self)))
861 (buffer-file-name nil)
874 (while (re-search-forward sgml-tag-name-re nil t)
929 (let ((name (buffer-file-name)))
930 (and name
931 (file-name-nondirectory name)))))))))
984 "Skip to beginning of tag and return its name.
990 (when (looking-at sgml-tag-name-re)
1067 (:constructor sgml-make-tag (type start end name)))
1068 type start end name)
1070 (defsubst sgml-parse-tag-name ()
1071 "Skip past a tag-name, and return the name."
1096 (let (tag-type tag-start tag-end name)
1143 name (sgml-parse-tag-name)))
1148 name (sgml-parse-tag-name))
1150 (sgml-empty-tag-p name))
1153 (sgml-make-tag tag-type tag-start tag-end name))))
1184 (sgml-unclosed-tag-p (sgml-tag-name (car context)))))
1204 (if (member-ignore-case (sgml-tag-name tag-info) ignore)
1213 ((eq t (compare-strings (sgml-tag-name tag-info) nil nil
1219 (unless (sgml-unclosed-tag-p (sgml-tag-name tag-info))
1220 (message "Unclosed tag <%s>" (sgml-tag-name tag-info))
1227 (sgml-tag-name tag-info) nil nil
1232 (sgml-tag-name tag-info) (pop stack)))))
1234 (if (and (null stack) (sgml-unclosed-tag-p (sgml-tag-name tag-info)))
1238 (push (sgml-tag-name tag-info) ignore)))
1242 (if (sgml-empty-tag-p (sgml-tag-name tag-info))
1243 (message "Spurious </%s>: empty tag" (sgml-tag-name tag-info))
1244 (push (sgml-tag-name tag-info) stack)))
1282 (insert "</" (sgml-tag-name (car (last context))) ">")
1287 (defun sgml-empty-tag-p (tag-name)
1290 (member-ignore-case tag-name sgml-empty-tags)))
1292 (defun sgml-unclosed-tag-p (tag-name)
1295 (member-ignore-case tag-name sgml-unclosed-tags)))
1344 (skip-chars-forward "^ \t\n") ;Skip tag name.
1358 (looking-at sgml-tag-name-re)
1377 (sgml-tag-name (car context)) nil nil
1484 (define-key map "\C-c\C-cn" 'html-name-anchor)
1494 (define-key map "\C-cn" 'html-name-anchor)
1520 (define-key menu-map "n" '("Name Anchor" . html-name-anchor))
1524 (defvar html-face-tag-alist
1529 "Value of `sgml-face-tag-alist' for HTML mode.")
1531 (defvar html-tag-face-alist
1552 "Value of `sgml-tag-face-alist' for HTML mode.")
1572 (name '("name"))
1587 `(("a" ,name ,@link)
1604 ("input" t ("size" ,@1-9) ("maxlength" ,@1-9) ("checked" t) ,name
1615 ,name ("size" ,@1-9) ("multiple" t))
1623 ("textarea" ,name ("rows" ,@1-9) ("cols" ,@1-9))
1668 "\">" (user-full-name) "</a>\n</address>\n"
1693 ("function-name")
1697 ("variable-name")
1718 ("b" . "Bold face")
1756 ("i" . "Italic face")
1761 ("kbd" . "Keybard example face")
1794 ("tt" . "Typewriter face")
1797 ("var" . "Math variable face")
1827 Pages can have <a name=\"SOMENAME\">named points</a> and can link other points
1841 (set (make-local-variable 'sgml-tag-face-alist) html-tag-face-alist)
1843 (make-local-variable 'sgml-face-tag-alist)
1851 sgml-face-tag-alist html-face-tag-alist
1858 (when sgml-xml-mode (setq mode-name "XHTML"))
1913 (define-skeleton html-name-anchor
1914 "HTML anchor tag with name attribute."
1916 "<a name=\"" str "\""
1999 "\" name=\"" (or v1 (setq v1 (skeleton-read "Name: ")))
2019 "\" name=\"" (or (car v2) (setcar v2 (skeleton-read "Name: ")))