From 8a37fb25cb95a8cc5c1f7e2d2e5404e0dc0f22a2 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 18 Apr 2010 17:37:29 -0400 Subject: [PATCH] * cvs-status.el (cvs-refontify): Remove unused. --- lisp/ChangeLog | 4 ++++ lisp/cvs-status.el | 10 +++++----- 2 files changed, 9 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d47d9bae82a..88c2627d561 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2010-04-18 Stefan Monnier + + * cvs-status.el (cvs-refontify): Remove unused. + 2010-04-18 Jay Belanger * calc.el (calc-mode-map): Bind "O" to `calc-missing-key'. diff --git a/lisp/cvs-status.el b/lisp/cvs-status.el index 1cc9ca9d713..e5a30684eb0 100644 --- a/lisp/cvs-status.el +++ b/lisp/cvs-status.el @@ -356,11 +356,11 @@ the list is a three-string list TAG, KIND, REV." tags))) (defvar font-lock-mode) -(defun cvs-refontify (beg end) - (when (and (boundp 'font-lock-mode) - font-lock-mode - (fboundp 'font-lock-fontify-region)) - (font-lock-fontify-region (1- beg) (1+ end)))) +;; (defun cvs-refontify (beg end) +;; (when (and (boundp 'font-lock-mode) +;; font-lock-mode +;; (fboundp 'font-lock-fontify-region)) +;; (font-lock-fontify-region (1- beg) (1+ end)))) (defun cvs-status-trees () "Look for a lists of tags, and replace them with trees." -- 2.39.2