Lines Matching +defs:find +defs:face
131 (defcustom find-tag-hook nil
132 "*Hook to be run by \\[find-tag] after finding a tag. See `run-hooks'.
133 The value in the buffer in which \\[find-tag] is done is used,
134 not the value in the buffer \\[find-tag] goes to."
139 (defcustom find-tag-default-function nil
140 "*A function of no arguments used by \\[find-tag] to pick a default tag.
142 has a `find-tag-default-function' property (see `put'), that is used.
143 Otherwise, `find-tag-default' is used."
147 (defcustom find-tag-marker-ring-length 16
148 "*Length of marker rings `find-tag-marker-ring' and `tags-location-ring'."
153 (defcustom tags-tag-face 'default
156 :type 'face
188 (defvar find-tag-marker-ring (make-ring find-tag-marker-ring-length)
189 "Ring of markers which are locations from which \\[find-tag] was invoked.")
196 (defvar tags-location-ring (make-ring find-tag-marker-ring-length)
197 "Ring of markers which are locations visited by \\[find-tag].
198 Pop back to the last location with \\[negative-argument] \\[find-tag].")
242 (defvar find-tag-regexp-search-function nil
243 "Search function passed to `find-tag-in-order' for finding a regexp tag.")
244 (defvar find-tag-regexp-tag-order nil
245 "Tag order passed to `find-tag-in-order' for finding a regexp tag.")
246 (defvar find-tag-regexp-next-line-after-failure-p nil
247 "Flag passed to `find-tag-in-order' for finding a regexp tag.")
248 (defvar find-tag-search-function nil
249 "Search function passed to `find-tag-in-order' for finding a tag.")
250 (defvar find-tag-tag-order nil
251 "Tag order passed to `find-tag-in-order' for finding a tag.")
252 (defvar find-tag-next-line-after-failure-p nil
253 "Flag passed to `find-tag-in-order' for finding a tag.")
272 ;; We used to initialize find-tag-marker-ring and tags-location-ring
295 When you find a tag with \\[find-tag], the buffer it finds the tag
451 (set-buffer (find-file-noselect file))
453 ;; find-file-noselect has changed the file name.
583 ;; Since that didn't find any, now do the
640 ;; Try to find it in another previously used set.
679 (let ((buffer (find-buffer-visiting table)))
703 "Reset tags state to cancel effect of any previous \\[visit-tags-table] or \\[find-tag]."
707 (while (< i find-tag-marker-ring-length)
710 (if (aref (cddr find-tag-marker-ring) i)
711 (set-marker (aref (cddr find-tag-marker-ring) i) nil))
714 tags-location-ring (make-ring find-tag-marker-ring-length)
715 find-tag-marker-ring (make-ring find-tag-marker-ring-length)
789 (defun find-tag-tag (string)
793 (default (funcall (or find-tag-default-function
794 (get major-mode 'find-tag-default-function)
795 'find-tag-default)))
808 "Last tag found by \\[find-tag].")
810 ;; Get interactive args for find-tag{-noselect,-other-window,-regexp}.
811 (defun find-tag-interactive (prompt &optional no-default)
818 (find-tag-tag prompt)))))
820 (defvar find-tag-history nil)
828 (defun find-tag-noselect (tagname &optional next-p regexp-p)
847 (interactive (find-tag-interactive "Find tag: "))
849 (setq find-tag-history (cons tagname find-tag-history))
850 ;; Save the current buffer's value of `find-tag-hook' before
853 (let ((local-find-tag-hook find-tag-hook))
867 (run-hooks 'local-find-tag-hook))))
869 (ring-insert find-tag-marker-ring (point-marker))
881 ;; find-tag-in-order does the real work.
882 (find-tag-in-order
885 find-tag-regexp-search-function
886 find-tag-search-function)
888 find-tag-regexp-tag-order
889 find-tag-tag-order)
891 find-tag-regexp-next-line-after-failure-p
892 find-tag-next-line-after-failure-p)
896 (run-hooks 'local-find-tag-hook)
901 (defun find-tag (tagname &optional next-p regexp-p)
919 (interactive (find-tag-interactive "Find tag: "))
920 (let* ((buf (find-tag-noselect tagname next-p regexp-p))
926 ;;;###autoload (define-key esc-map "." 'find-tag)
929 (defun find-tag-other-window (tagname &optional next-p regexp-p)
948 (interactive (find-tag-interactive "Find tag other window: "))
953 ;; doing find-tag-noselect, and restore it after.
955 (tagbuf (find-tag-noselect tagname next-p regexp-p))
967 ;;;###autoload (define-key ctl-x-4-map "." 'find-tag-other-window)
970 (defun find-tag-other-frame (tagname &optional next-p)
989 (interactive (find-tag-interactive "Find tag other frame: "))
991 (find-tag-other-window tagname next-p)))
992 ;;;###autoload (define-key ctl-x-5-map "." 'find-tag-other-frame)
995 (defun find-tag-regexp (regexp &optional next-p other-window)
1012 (interactive (find-tag-interactive "Find tag regexp: " t))
1013 ;; We go through find-tag-other-window to do all the display hair there.
1014 (funcall (if other-window 'find-tag-other-window 'find-tag)
1016 ;;;###autoload (define-key esc-map [?\C-.] 'find-tag-regexp)
1022 "Pop back to where \\[find-tag] was last invoked.
1024 This is distinct from invoking \\[find-tag] with a negative argument
1028 (if (ring-empty-p find-tag-marker-ring)
1029 (error "No previous locations for find-tag invocation"))
1030 (let ((marker (ring-remove find-tag-marker-ring 0)))
1058 (defun find-tag-in-order (pattern
1065 tag-info ;where to find the tag in FILE
1079 ;; find-tag-noselect has already put us in the first tags table
1147 (tag-find-file-of-tag-noselect file)
1155 (defun tag-find-file-of-tag-noselect (file)
1166 ;; Note: there is a small inefficiency in find-buffer-visiting :
1169 ;; It is maybe a good idea to optimise this find-buffer-visiting.
1171 ;; but this looks less "sure" to find the buffer for the file.
1173 (setq the-buffer (find-buffer-visiting (concat file (car buffer-search-extensions))))
1177 (find-file-noselect (buffer-file-name the-buffer)))
1182 (setq the-buffer (find-file-noselect (concat file (car file-search-extensions))))))
1189 (defun tag-find-file-of-tag (file)
1190 (let ((buf (tag-find-file-of-tag-noselect file)))
1211 (find-tag-regexp-search-function . re-search-forward)
1212 (find-tag-regexp-tag-order . (tag-re-match-p))
1213 (find-tag-regexp-next-line-after-failure-p . t)
1214 (find-tag-search-function . search-forward)
1215 (find-tag-tag-order . (tag-exact-file-name-match-p
1223 (find-tag-next-line-after-failure-p . nil)
1395 (tag-find-file-of-tag (button-get button 'file-path))
1398 'face 'tags-tag-face
1404 (defmacro tags-with-face (face &rest body)
1405 "Execute BODY, give output to `standard-output' face FACE."
1410 'face ,face standard-output))))
1417 (tags-with-face 'highlight (princ (car oba)))
1431 'face tags-tag-face
1448 (tags-with-face 'highlight (princ buffer-file-name))
1484 (tag-find-file-of-tag (button-get button 'file-path))
1487 'face 'tags-tag-face
1494 (tag-find-file-of-tag (button-get button 'file-path))
1498 'face 'tags-tag-face
1542 find-tag-regexp-search-function
1543 find-tag-search-function
1557 ;; (buffer (find-file-noselect (file-of-tag)))
1702 ;; Advance the list before trying to find the file.
1712 (set-buffer (find-file-noselect next novisit))
1713 ;; Like find-file, but avoids random warning messages.
1793 (set-buffer (find-file-noselect new))
1839 ;; When we find a match, move back
1867 (tags-with-face 'highlight (princ file))
1890 (tags-with-face 'highlight (princ regexp))
2006 for \\[find-tag] (which see)."
2016 (pattern (funcall (or find-tag-default-function
2017 (get major-mode 'find-tag-default-function)
2018 'find-tag-default)))
2029 (message "Can't find completion for \"%s\"" pattern)