(rmail-current-message, rmail-inbox-list): Add defvars.

[gnu-emacs] / lisp / log-view.el

diff --git a/lisp/log-view.el b/lisp/log-view.el
index ac854ba5d57fcfea5170dddf0e4f48cf810b88d7..fbe83d79513bbaf5f70dd07407ebd7b68f165da4 100644 (file)
--- a/lisp/log-view.el
+++ b/lisp/log-view.el
@@ -1,10 +1,10 @@
 ;;; log-view.el --- Major mode for browsing RCS/CVS/SCCS log output
 
 ;;; log-view.el --- Major mode for browsing RCS/CVS/SCCS log output
 

-;; Copyright (C) 1999, 2000, 2001  Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
+;;   2005 Free Software Foundation, Inc.

 
 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: rcs sccs cvs log version-control
 
 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: rcs sccs cvs log version-control

-;; Revision: $Id: log-view.el,v 1.13 2001/12/31 20:25:41 rms Exp $

 
 ;; This file is part of GNU Emacs.
 
 
 ;; This file is part of GNU Emacs.
 


@@ -20,8 +20,8 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the

-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.

 
 ;;; Commentary:
 
 
 ;;; Commentary:
 


@@ -64,21 +64,25 @@
 (defvar log-view-mode-hook nil
   "Hook run at the end of `log-view-mode'.")
 
 (defvar log-view-mode-hook nil
   "Hook run at the end of `log-view-mode'.")
 

-(defface log-view-file-face
+(defface log-view-file

   '((((class color) (background light))
      (:background "grey70" :weight bold))
     (t (:weight bold)))
   "Face for the file header line in `log-view-mode'."
   :group 'log-view)
   '((((class color) (background light))
      (:background "grey70" :weight bold))
     (t (:weight bold)))
   "Face for the file header line in `log-view-mode'."
   :group 'log-view)

-(defvar log-view-file-face 'log-view-file-face)
+;; backward-compatibility alias
+(put 'log-view-file-face 'face-alias 'log-view-file)
+(defvar log-view-file-face 'log-view-file)

 
 

-(defface log-view-message-face
+(defface log-view-message

   '((((class color) (background light))
      (:background "grey85"))
     (t (:weight bold)))
   "Face for the message header line in `log-view-mode'."
   :group 'log-view)
   '((((class color) (background light))
      (:background "grey85"))
     (t (:weight bold)))
   "Face for the message header line in `log-view-mode'."
   :group 'log-view)

-(defvar log-view-message-face 'log-view-message-face)
+;; backward-compatibility alias
+(put 'log-view-message-face 'face-alias 'log-view-message)
+(defvar log-view-message-face 'log-view-message)

 
 (defconst log-view-file-re
   (concat "^\\("
 
 (defconst log-view-file-re
   (concat "^\\("


@@ -86,7 +90,7 @@
          "\\|SCCS/s\\.\\(.+\\):"
          "\\)\n"))
 ;; In RCS, a locked revision will look like "revision N.M\tlocked by: FOO".
          "\\|SCCS/s\\.\\(.+\\):"
          "\\)\n"))
 ;; In RCS, a locked revision will look like "revision N.M\tlocked by: FOO".

-(defconst log-view-message-re "^\\(revision \\([.0-9]+\\)\\(?:\t.*\\)?\\|rev \\([0-9]+\\):  .*\\|D \\([.0-9]+\\) .*\\)$")
+(defconst log-view-message-re "^\\(revision \\([.0-9]+\\)\\(?:\t.*\\)?\\|r\\([0-9]+\\) | .* | .*\\|D \\([.0-9]+\\) .*\\)$")

 
 (defconst log-view-font-lock-keywords
   `((,log-view-file-re
 
 (defconst log-view-font-lock-keywords
   `((,log-view-file-re


@@ -181,7 +185,7 @@
   (interactive "d")
   (save-excursion
     (goto-char pos)
   (interactive "d")
   (save-excursion
     (goto-char pos)

-    (switch-to-buffer (vc-find-version (log-view-current-file) 
+    (switch-to-buffer (vc-find-version (log-view-current-file)

                                        (log-view-current-tag)))))
 
 ;;
                                        (log-view-current-tag)))))
 
 ;;


@@ -192,8 +196,10 @@
   "Get the diff for several revisions.
 If the point is the same as the mark, get the diff for this revision.
 Otherwise, get the diff between the revisions
   "Get the diff for several revisions.
 If the point is the same as the mark, get the diff for this revision.
 Otherwise, get the diff between the revisions

- were the region starts and ends."
-  (interactive "r")
+were the region starts and ends."
+  (interactive
+   (list (if mark-active (region-beginning) (point))
+         (if mark-active (region-end) (point))))

   (let ((fr (log-view-current-tag beg))
         (to (log-view-current-tag end)))
     (when (string-equal fr to)
   (let ((fr (log-view-current-tag beg))
         (to (log-view-current-tag end)))
     (when (string-equal fr to)


@@ -205,4 +211,5 @@ Otherwise, get the diff between the revisions
 
 (provide 'log-view)
 
 
 (provide 'log-view)
 

+;; arch-tag: 0d64220b-ce7e-4f62-9c2a-6b04c2f81f4f

 ;;; log-view.el ends here
 ;;; log-view.el ends here