mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-05 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

; Fix capitalization of VC-Dir.

Browse source
This commit is contained in:
Sean Whitton 2025-08-10 12:20:00 +01:00
parent 38c5742cba
commit 11d521e6e4
2 changed files with 13 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

2
etc/NEWS.21
View file

@ -1822,7 +1822,7 @@ separate Texinfo file.
*** The PCL-CVS package available by either running M-x cvs-examine or *** The PCL-CVS package available by either running M-x cvs-examine or
by visiting a CVS administrative directory (with a prefix argument) by visiting a CVS administrative directory (with a prefix argument)
provides an alternative interface to VC-dired for CVS. It comes with provides an alternative interface to VC-Dir for CVS. It comes with
'log-view-mode' to view RCS and SCCS logs and 'log-edit-mode' used to 'log-view-mode' to view RCS and SCCS logs and 'log-edit-mode' used to
enter check-in log messages. enter check-in log messages.

24
lisp/vc/vc-dir.el
View file

@ -55,47 +55,47 @@ See `run-hooks'."
:group 'vc) :group 'vc)
(defface vc-dir-header '((t :inherit font-lock-type-face)) (defface vc-dir-header '((t :inherit font-lock-type-face))
"Face for headers in VC-dir buffers." "Face for headers in VC-Dir buffers."
:group 'vc :group 'vc
:version "28.1") :version "28.1")
(defface vc-dir-header-value '((t :inherit font-lock-variable-name-face)) (defface vc-dir-header-value '((t :inherit font-lock-variable-name-face))
"Face for header values in VC-dir buffers." "Face for header values in VC-Dir buffers."
:group 'vc :group 'vc
:version "28.1") :version "28.1")
(defface vc-dir-directory '((t :inherit font-lock-comment-delimiter-face)) (defface vc-dir-directory '((t :inherit font-lock-comment-delimiter-face))
"Face for directories in VC-dir buffers." "Face for directories in VC-Dir buffers."
:group 'vc :group 'vc
:version "28.1") :version "28.1")
(defface vc-dir-file '((t :inherit font-lock-function-name-face)) (defface vc-dir-file '((t :inherit font-lock-function-name-face))
"Face for files in VC-dir buffers." "Face for files in VC-Dir buffers."
:group 'vc :group 'vc
:version "28.1") :version "28.1")
(defface vc-dir-mark-indicator '((t :inherit font-lock-type-face)) (defface vc-dir-mark-indicator '((t :inherit font-lock-type-face))
"Face for mark indicators in VC-dir buffers." "Face for mark indicators in VC-Dir buffers."
:group 'vc :group 'vc
:version "28.1") :version "28.1")
(defface vc-dir-status-warning '((t :inherit font-lock-warning-face)) (defface vc-dir-status-warning '((t :inherit font-lock-warning-face))
"Face for warning status in VC-dir buffers." "Face for warning status in VC-Dir buffers."
:group 'vc :group 'vc
:version "28.1") :version "28.1")
(defface vc-dir-status-edited '((t :inherit font-lock-variable-name-face)) (defface vc-dir-status-edited '((t :inherit font-lock-variable-name-face))
"Face for edited status in VC-dir buffers." "Face for edited status in VC-Dir buffers."
:group 'vc :group 'vc
:version "28.1") :version "28.1")
(defface vc-dir-status-up-to-date '((t :inherit font-lock-builtin-face)) (defface vc-dir-status-up-to-date '((t :inherit font-lock-builtin-face))
"Face for up-to-date status in VC-dir buffers." "Face for up-to-date status in VC-Dir buffers."
:group 'vc :group 'vc
:version "28.1") :version "28.1")
(defface vc-dir-status-ignored '((t :inherit shadow)) (defface vc-dir-status-ignored '((t :inherit shadow))
"Face for ignored or empty values in VC-dir buffers." "Face for ignored or empty values in VC-Dir buffers."
:group 'vc :group 'vc
:version "28.1") :version "28.1")
@ -1328,7 +1328,7 @@ specific headers."
"\n")) "\n"))
(defun vc-dir-refresh-files (files) (defun vc-dir-refresh-files (files)
"Refresh some FILES in the *VC-dir* buffer." "Refresh some FILES in the *VC-Dir* buffer."
(let ((def-dir default-directory) (let ((def-dir default-directory)
(backend vc-dir-backend)) (backend vc-dir-backend))
(vc-set-mode-line-busy-indicator) (vc-set-mode-line-busy-indicator)
@ -1377,7 +1377,7 @@ specific headers."
(vc-dir-hide-state))) (vc-dir-hide-state)))
(defun vc-dir-refresh () (defun vc-dir-refresh ()
"Refresh the contents of the *VC-dir* buffer. "Refresh the contents of the *VC-Dir* buffer.
Throw an error if another update process is in progress." Throw an error if another update process is in progress."
(interactive) (interactive)
(if (vc-dir-busy) (if (vc-dir-busy)
@ -1432,7 +1432,7 @@ Throw an error if another update process is in progress."
(run-hooks 'vc-dir-refresh-hook)))))))))))) (run-hooks 'vc-dir-refresh-hook))))))))))))
(defun vc-dir-show-fileentry (file) (defun vc-dir-show-fileentry (file)
"Insert an entry for a specific file into the current *VC-dir* listing. "Insert an entry for a specific file into the current *VC-Dir* listing.
This is typically used if the file is up-to-date (or has been added This is typically used if the file is up-to-date (or has been added
outside of VC) and one wants to do some operation on it." outside of VC) and one wants to do some operation on it."
(interactive "fShow file: ") (interactive "fShow file: ")