Mercurial > emacs

changeset 92289:a60153302fa5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* progmodes/hideshow.el (hs-minor-mode-menu): Add some options to the menu. * vc.el (vc-deduce-fileset, vc-next-action, vc-start-entry) (vc-finish-logentry): Check for vc-status-mode, not only for vc-dired-mode.
author Dan Nicolaescu <dann@ics.uci.edu>
date Thu, 28 Feb 2008 03:35:22 +0000
parents b94c0a2204fd
children ef8bc859952b
files lisp/ChangeLog lisp/progmodes/hideshow.el lisp/vc.el
diffstat 3 files changed, 39 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Thu Feb 28 02:57:50 2008 +0000
+++ b/lisp/ChangeLog	Thu Feb 28 03:35:22 2008 +0000
@@ -1,3 +1,12 @@
+2008-02-28  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* progmodes/hideshow.el (hs-minor-mode-menu): Add some options to
+	the menu.
+
+	* vc.el (vc-deduce-fileset, vc-next-action, vc-start-entry)
+	(vc-finish-logentry): Check for vc-status-mode, not only for
+	vc-dired-mode.
+
 2008-02-28  Kenichi Handa  <handa@ni.aist.go.jp>
 
 	* isearch.el (isearch-printing-char): Don't check
--- a/lisp/progmodes/hideshow.el	Thu Feb 28 02:57:50 2008 +0000
+++ b/lisp/progmodes/hideshow.el	Thu Feb 28 03:35:22 2008 +0000
@@ -232,8 +232,6 @@
 
 ;;; Code:
 
-(require 'easymenu)
-
 ;;---------------------------------------------------------------------------
 ;; user-configurable variables
 
@@ -368,11 +366,30 @@
     ["Hide All"      hs-hide-all
      :help "Hide all the blocks in the buffer"]
     ["Show All"      hs-show-all
-     :help "Show all the clocks in the buffer"]
+     :help "Show all the blocks in the buffer"]
     ["Hide Level"    hs-hide-level
      :help "Hide all block at levels below the current block"]
     ["Toggle Hiding" hs-toggle-hiding
-     :help "Toggle the hiding state of the current block"]))
+     :help "Toggle the hiding state of the current block"]
+    "----"
+    ["Hide comments when hiding all" 
+     (setq hs-hide-comments-when-hiding-all
+    	   (not hs-hide-comments-when-hiding-all))
+     :help "If t also hide comment blocks when doing `hs-hide-all'"
+     :style toggle :selected hs-hide-comments-when-hiding-all]
+   ("Reveal on isearch"
+     ["Code blocks" (setq hs-isearch-open 'code)
+      :help "Show hidden code blocks when isearch matches inside them"
+      :active t :style radio   :selected (eq hs-isearch-open 'code)]
+     ["Comment blocks" (setq hs-isearch-open 'comment)
+      :help "Show hidden comment blocks when isearch matches inside them"
+      :active t :style radio :selected (eq hs-isearch-open 'comment)]
+     ["Code and Comment blocks" (setq hs-isearch-open t)
+      :help "Show both hidden code and comment blocks when isearch matches inside them"
+      :active t :style radio :selected (eq hs-isearch-open 'comment)]
+     ["None" (setq hs-isearch-open nil)
+      :help "Do not hidden code or comment blocks when isearch matches inside them"
+      :active t :style radio :selected (eq hs-isearch-open nil)])))
 
 (defvar hs-c-start-regexp nil
   "Regexp for beginning of comments.
--- a/lisp/vc.el	Thu Feb 28 02:57:50 2008 +0000
+++ b/lisp/vc.el	Thu Feb 28 03:35:22 2008 +0000
@@ -595,7 +595,10 @@
 ;;   adjustments.
 ;;
 ;; - when changing a file whose directory is shown in the vc-status
-;;   buffer, it should be added there are "modified".  (PCL-CVS does this).
+;;   buffer, it should be added there as "modified".  (PCL-CVS does this).
+;;
+;; - Update the vc-status buffers after vc operations, implement the
+;;   equivalent of vc-dired-resynch-file.
 ;;
 ;; - vc-status needs a toolbar.
 ;;
@@ -1407,7 +1410,7 @@
 	 (list buffer-file-name))
 	((and vc-parent-buffer (or (buffer-file-name vc-parent-buffer)
 				   (with-current-buffer vc-parent-buffer
-				     vc-dired-mode)))
+				     (or vc-dired-mode (eq major-mode 'vc-status-mode)))))
 	 (progn
 	   (set-buffer vc-parent-buffer)
 	   (vc-deduce-fileset)))
@@ -1541,7 +1544,7 @@
     (dolist (file files)
       (let ((visited (get-file-buffer file)))
 	(when visited
-	  (if vc-dired-mode
+	  (if (or vc-dired-mode (eq major-mode 'vc-status-mode))
 	      (switch-to-buffer-other-window visited)
 	    (set-buffer visited))
 	  ;; Check relation of buffer and file, and make sure
@@ -1811,7 +1814,7 @@
 \(current one if no file).  AFTER-HOOK specifies the local value
 for `vc-log-after-operation-hook'."
   (let ((parent
-         (if (eq major-mode 'vc-dired-mode)
+         (if (or (eq major-mode 'vc-dired-mode) (eq major-mode 'vc-status-mode))
              ;; If we are called from VC dired, the parent buffer is
              ;; the current buffer.
              (current-buffer)
@@ -1951,7 +1954,7 @@
   ;; Sync parent buffer in case the user modified it while editing the comment.
   ;; But not if it is a vc-dired buffer.
   (with-current-buffer vc-parent-buffer
-    (or vc-dired-mode (vc-buffer-sync)))
+    (or vc-dired-mode (eq major-mode 'vc-status-mode) (vc-buffer-sync)))
   (if (not vc-log-operation)
       (error "No log operation is pending"))
   ;; save the parameters held in buffer-local variables
@@ -1983,7 +1986,7 @@
 	(mapc
 	 (lambda (file) (vc-resynch-buffer file vc-keep-workfiles t))
 	 log-fileset))
-    (if vc-dired-mode
+    (if (or vc-dired-mode (eq major-mode 'vc-status-mode))
       (dired-move-to-filename))
     (run-hooks after-hook 'vc-finish-logentry-hook)))