Lines Matching +defs:face +defs:name
44 (defcustom cvs-display-full-name t
46 If non-nil, their full filename name will be displayed, else only the
50 (define-obsolete-variable-alias 'cvs-display-full-path 'cvs-display-full-name)
70 "PCL-CVS face used to highlight directory changes."
73 (put 'cvs-header-face 'face-alias 'cvs-header)
81 "PCL-CVS face used to highlight file names."
84 (put 'cvs-filename-face 'face-alias 'cvs-filename)
92 "PCL-CVS face used to highlight unknown file status."
95 (put 'cvs-unknown-face 'face-alias 'cvs-unknown)
103 "PCL-CVS face used to highlight handled file status."
106 (put 'cvs-handled-face 'face-alias 'cvs-handled)
114 "PCL-CVS face used to highlight status of files needing action."
117 (put 'cvs-need-action-face 'face-alias 'cvs-need-action)
127 "PCL-CVS face used to highlight marked file indicator."
130 (put 'cvs-marked-face 'face-alias 'cvs-marked)
134 "PCL-CVS face used to highlight CVS messages."
137 (put 'cvs-msg-face 'face-alias 'cvs-msg)
139 (defvar cvs-fi-up-to-date-face 'cvs-handled)
140 (defvar cvs-fi-unknown-face 'cvs-unknown)
141 (defvar cvs-fi-conflict-face 'font-lock-warning-face)
164 (:conc-name cvs-fileinfo->))
170 file ;; The file name sans the directory.
184 ;; full-name ;; The complete relative filename.
185 ;; pp-name ;; The printed file name
220 (defun cvs-fileinfo->full-name (fileinfo)
224 (if (string= dir "") "." (directory-file-name dir))
225 ;; Here, I use `concat' rather than `expand-file-name' because I want
228 (define-obsolete-function-alias 'cvs-fileinfo->full-path 'cvs-fileinfo->full-name)
230 (defun cvs-fileinfo->pp-name (fi)
232 (if cvs-display-full-name
233 (cvs-fileinfo->full-name fi)
237 "Construct the file name of the backup file for FILEINFO."
240 (default-directory (file-name-as-directory (expand-file-name dir)))
276 (not (file-name-absolute-p dir))
278 (string= dir (file-name-as-directory dir))))
281 (string= file (file-name-nondirectory file)))
333 (defun cvs-add-face (str face &optional keymap &rest props)
337 (setq props (list* 'mouse-face 'highlight props)))
338 (add-text-properties 0 (length str) (list* 'font-lock-face face props) str)
350 (cvs-add-face (cvs-fileinfo->full-name fileinfo)
354 (cvs-add-face (format "Message: %s" (cvs-fileinfo->full-log fileinfo))
358 (cvs-add-face "*" 'cvs-marked)
360 (file (cvs-add-face (cvs-fileinfo->pp-name fileinfo)
368 (t (capitalize (symbol-name type)))))
369 (face (let ((sym (intern
371 (downcase (symbol-name type))
372 "-face"))))
375 (cvs-add-face str face cvs-status-map)))
378 (when subtype (downcase (symbol-name subtype)))
418 ;; All files are sorted by file name.
432 ((file-directory-p dir) (setq dir (file-name-as-directory dir)) nil)
433 (t (prog1 (file-name-nondirectory dir)
434 (setq dir (or (file-name-directory dir) ""))))))
435 (file (expand-file-name "CVS/Entries" dir))
458 (concat dir (file-name-as-directory