2008-01-09 Michael Kifer <kifer@cs.stonybrook.edu>

	* ediff*.el: commented out declare-function. "make bootstrap"
	stops with an error and emacs does not compile with those things in.
	Besides, declare-function is not defined in XEmacs.

	* ediff-util (eqiff-quit): autoraise minibuffer.

	* ediff-diff (ediff-convert-fine-diffs-to-overlays): make it a defin

	* viper*.el: commented out declare-function -- not defined in XEmacs.

	* viper-ex.el (viper-info-on-file): take care of indiret buffers.

	* viper.el (viper-set-hooks, set-cursor-color): set viper-vi-state-cursor-color.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 686852c7dd062249db7f4bda9753e8e955c73633..dd955494b772d297149469a9bf4926ca8c0c0ca9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,19 @@
+2008-01-09  Michael Kifer  <kifer@cs.stonybrook.edu>
+
+       * ediff*.el: commented out declare-function. "make bootstrap"
+       stops with an error and emacs does not compile with those things in.
+       Besides, declare-function is not defined in XEmacs.
+       
+       * ediff-util (eqiff-quit): autoraise minibuffer.
+       
+       * ediff-diff (ediff-convert-fine-diffs-to-overlays): make it a defin
+       
+       * viper*.el: commented out declare-function -- not defined in XEmacs.
+       
+       * viper-ex.el (viper-info-on-file): take care of indiret buffers.
+       
+       * viper.el (viper-set-hooks, set-cursor-color): set viper-vi-state-cursor-color.
+       
 2008-01-09  Tom Tromey  <tromey@redhat.com>
 
        * vc.el (vc-status-headers): Rename from

diff --git a/lisp/ediff-diff.el b/lisp/ediff-diff.el
index 685543b53697e15fe66f56b7c3cf6b8d0c0ae123..b690bfbe4e1d3b932456a51983030745260c2835 100644 (file)
--- a/lisp/ediff-diff.el
+++ b/lisp/ediff-diff.el
@@ -948,7 +948,7 @@ delimiter regions"))
       )))
 
 
-(defsubst ediff-convert-fine-diffs-to-overlays (diff-list region-num)
+(defun ediff-convert-fine-diffs-to-overlays (diff-list region-num)
   (ediff-set-fine-overlays-in-one-buffer 'A diff-list region-num)
   (ediff-set-fine-overlays-in-one-buffer 'B diff-list region-num)
   (if ediff-3way-job

diff --git a/lisp/ediff-util.el b/lisp/ediff-util.el
index dd844c9a5424741352741b77c252c5c93f4e8afa..94e0d87bf9c2a046c73319826557d6e9269cfb02 100644 (file)
--- a/lisp/ediff-util.el
+++ b/lisp/ediff-util.el
@@ -2406,7 +2406,9 @@ If it is t, they will be preserved unconditionally.  A prefix argument,
 temporarily reverses the meaning of this variable."
   (interactive "P")
   (ediff-barf-if-not-control-buffer)
-  (let ((ctl-buf (current-buffer)))
+  (let ((ctl-buf (current-buffer))
+       (ctl-frm (selected-frame))
+       (minibuffer-auto-raise t))
     (if (y-or-n-p (format "Quit this Ediff session%s? "
                          (if (ediff-buffer-live-p ediff-meta-buffer)
                              " & show containing session group" "")))
@@ -2414,6 +2416,8 @@ temporarily reverses the meaning of this variable."
          (message "")
          (set-buffer ctl-buf)
          (ediff-really-quit reverse-default-keep-variants))
+      (select-frame ctl-frm)
+      (raise-frame ctl-frm)
       (message ""))))
 
 
@@ -2818,7 +2822,8 @@ up an appropriate window config."
 
 
 ;; ediff-barf-if-not-control-buffer ensures only called from ediff.
-(declare-function ediff-version "ediff" ())
+;; declare-function does not exist in XEmacs
+;;(declare-function ediff-version "ediff" ()))
 
 (defun ediff-status-info ()
   "Show the names of the buffers or files being operated on by Ediff.

diff --git a/lisp/ediff-wind.el b/lisp/ediff-wind.el
index c5a53b47b3b65e68537790fb326f65fd78eb10dc..7e5eff6392e72e9ffb236303e2432d9e54b12679 100644 (file)
--- a/lisp/ediff-wind.el
+++ b/lisp/ediff-wind.el
@@ -147,9 +147,10 @@ In this case, Ediff will use those frames to display these buffers."
   :type 'function
   :group 'ediff-window)
 
+;; declare-function does not exist in XEmacs
 ;; Definitions hidden from the compiler by compat wrappers.
-(declare-function ediff-display-pixel-width "ediff-init")
-(declare-function ediff-display-pixel-height "ediff-init")
+;;(declare-function ediff-display-pixel-width "ediff-init")
+;;(declare-function ediff-display-pixel-height "ediff-init")
 
 (defconst ediff-control-frame-parameters
   (list

diff --git a/lisp/ediff.el b/lisp/ediff.el
index 353c6a14d47470476c716d6dacae2a61cea58ddd..2caa3715f486dd732c72757dbd92edf09f318569 100644 (file)
--- a/lisp/ediff.el
+++ b/lisp/ediff.el
@@ -8,7 +8,7 @@
 ;; Keywords: comparing, merging, patching, tools, unix
 
 (defconst ediff-version "2.81.2" "The current version of Ediff")
-(defconst ediff-date "August 18, 2007" "Date of last update")
+(defconst ediff-date "January 09, 2008" "Date of last update")
 
 
 ;; This file is part of GNU Emacs.
@@ -361,7 +361,8 @@
                 (list (cons 'ediff-job-name job-name))
                 merge-buffer-file)))
 
-(declare-function diff-latest-backup-file "diff" (fn))
+;; declare-function does not exist in XEmacs
+;;(declare-function diff-latest-backup-file "diff" (fn)))
 
 ;;;###autoload
 (defalias 'ediff 'ediff-files)
@@ -1427,7 +1428,7 @@ When called interactively, displays the version."
     (format "Ediff %s of %s" ediff-version ediff-date)))
 
 ;; info is run first, and will autoload info.el.
-(declare-function Info-goto-node "info" (nodename &optional fork))
+;;(declare-function Info-goto-node "info" (nodename &optional fork))
 
 ;;;###autoload
 (defun ediff-documentation (&optional node)

diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index 3d74286589cc4e72d76ca3b9c1ffa10a47880d2a..fbebacb16b54a724e784380cc64e0ebd73232da9 100644 (file)
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -2773,7 +2773,9 @@ On reaching beginning of line, stop and signal error."
 (defun viper-next-line-carefully (arg)
   (condition-case nil
       ;; do not use forward-line! need to keep column
-      (with-no-warnings (next-line arg))
+      (if (featurep 'emacs)
+         (with-no-warnings (next-line arg))
+       (next-line arg))
     (error nil)))
 
 
@@ -3073,15 +3075,18 @@ On reaching beginning of line, stop and signal error."
        (com (viper-getCom arg)))
     (if com (viper-move-marker-locally 'viper-com-point (point)))
     ;; do not use forward-line! need to keep column
-    (with-no-warnings (next-line val))
+    (if (featurep 'emacs)
+       (with-no-warnings (next-line val))
+      (next-line val))
     (if viper-ex-style-motion
        (if (and (eolp) (not (bolp))) (backward-char 1)))
     (setq this-command 'next-line)
     (if com (viper-execute-com 'viper-next-line val com))))
 
-(declare-function widget-type "wid-edit" (widget))
-(declare-function widget-button-press "wid-edit" (pos &optional event))
-(declare-function viper-set-hooks "viper" ())
+;; declare-function is not defined in XEmacs
+;;(declare-function widget-type "wid-edit" (widget))
+;;(declare-function widget-button-press "wid-edit" (pos &optional event))
+;;(declare-function viper-set-hooks "viper" ())
 
 (defun viper-next-line-at-bol (arg)
   "Next line at beginning of line.
@@ -3120,7 +3125,9 @@ If point is on a widget or a button, simulate clicking on that widget/button."
        (com (viper-getCom arg)))
     (if com (viper-move-marker-locally 'viper-com-point (point)))
     ;; do not use forward-line! need to keep column
-    (with-no-warnings (previous-line val))
+    (if (featurep 'emacs)
+       (with-no-warnings (previous-line val))
+      (previous-line val))
     (if viper-ex-style-motion
        (if (and (eolp) (not (bolp))) (backward-char 1)))
     (setq this-command 'previous-line)

diff --git a/lisp/emulation/viper-ex.el b/lisp/emulation/viper-ex.el
index 6ce348522359043aedd58acc308828397a9a1e49..8e19a0b50bd12174b2890f1497aa83fd85d03231 100644 (file)
--- a/lisp/emulation/viper-ex.el
+++ b/lisp/emulation/viper-ex.el
@@ -2216,9 +2216,11 @@ Type 'mak ' (including the space) to run make with no args."
        (pos2 (viper-line-pos 'end))
        lines file info)
     (setq lines (count-lines (point-min) (viper-line-pos 'end))
-         file (if (buffer-file-name)
-                  (concat (viper-abbreviate-file-name (buffer-file-name)) ":")
-                (concat (buffer-name) " [Not visiting any file]:"))
+         file (cond ((buffer-file-name)
+                     (concat (viper-abbreviate-file-name (buffer-file-name)) ":"))
+                    ((buffer-file-name (buffer-base-buffer))
+                     (concat (viper-abbreviate-file-name (buffer-file-name (buffer-base-buffer))) " (indirect buffer):"))
+                    (t (concat (buffer-name) " [Not visiting any file]:")))
          info (format "line=%d/%d pos=%d/%d col=%d %s"
                       (if (= pos1 pos2)
                           (1+ lines)

diff --git a/lisp/emulation/viper-keym.el b/lisp/emulation/viper-keym.el
index f76a9310518f490aa67605aba48abd3d4abcdd48..02df3fe30844dd270f384260a02ab42cabd394e2 100644 (file)
--- a/lisp/emulation/viper-keym.el
+++ b/lisp/emulation/viper-keym.el
@@ -37,9 +37,10 @@
 
 (require 'viper-util)
 
-(declare-function viper-ex "viper-ex" (arg &optional string))
-(declare-function viper-normalize-minor-mode-map-alist "viper-cmd" ())
-(declare-function viper-set-mode-vars-for "viper-cmd" (state))
+;; declare-function is not defined in XEmacs
+;;(declare-function viper-ex "viper-ex" (arg &optional string))
+;;(declare-function viper-normalize-minor-mode-map-alist "viper-cmd" ())
+;;(declare-function viper-set-mode-vars-for "viper-cmd" (state))
 
 ;;; Variables
 

diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el
index 3306156519672cef3095908b6c3638a9e1245550..2bd2a3e276a13b989dd6fc015b6c823c3254b465 100644 (file)
--- a/lisp/emulation/viper-util.el
+++ b/lisp/emulation/viper-util.el
@@ -374,7 +374,8 @@
 
 
 \f
-(declare-function viper-forward-Word "viper-cmd" (arg))
+;; declare-function is not defined in XEmacs
+;;(declare-function viper-forward-Word "viper-cmd" (arg))
 
 ;;; Support for :e, :r, :w file globbing
 
@@ -713,7 +714,7 @@
             (not (memq (vc-state file) '(edited needs-merge)))
             (not (stringp (vc-state file))))
         ;; XEmacs has no vc-state
-        (if (featurep 'xemacs)(not (vc-locking-user file))))
+        (if (featurep 'xemacs) (not (vc-locking-user file))))
        ))
 
 ;; checkout if visited file is checked in

diff --git a/lisp/emulation/viper.el b/lisp/emulation/viper.el
index 19d3a7f018a0987711a62e5ba465710dd9a2f8fc..9d2acac4ce7f5e916942bf04398d8429f3657446 100644 (file)
--- a/lisp/emulation/viper.el
+++ b/lisp/emulation/viper.el
@@ -9,7 +9,7 @@
 ;; Author: Michael Kifer <kifer@cs.stonybrook.edu>
 ;; Keywords: emulations
 
-(defconst viper-version "3.14 of August 18, 2007"
+(defconst viper-version "3.14 of January 09, 2008"
   "The current version of Viper")
 
 ;; This file is part of GNU Emacs.
@@ -857,7 +857,9 @@ It also can't undo some Viper settings."
               (modify-frame-parameters
                (selected-frame)
                (list (cons 'viper-vi-state-cursor-color
-                           (viper-get-cursor-color))))))
+                           (viper-get-cursor-color))))
+              (setq viper-vi-state-cursor-color (viper-get-cursor-color))
+              ))
 
   ;; Tell vc-diff to put *vc* in Vi mode
   (if (featurep 'vc)
@@ -900,6 +902,7 @@ It also can't undo some Viper settings."
     (modify-frame-parameters
        (selected-frame)
        (list (cons 'viper-vi-state-cursor-color (ad-get-arg 0))))
+    (setq viper-vi-state-cursor-color (ad-get-arg 0))
     )
 
   (when (and (fboundp 'add-to-ordered-list) (boundp 'emulation-mode-map-alists))