comparison lisp/ediff-util.el @ 87691:f2c8fd594360

2008-01-10 Michael Kifer <[e-mail]> * ediff*.el: uncommented declare-function. * viper*.el: uncommented declare-function.

87690:9cbad7267d3d

(defvar bottom-toolbar-visible-p)
(defvar bottom-toolbar-height)
(defvar mark-active)

(defvar ediff-after-quit-hook-internal nil)

(eval-when-compile
  (let ((load-path (cons (expand-file-name ".") load-path)))
    (provide 'ediff-util) ; to break recursive load cycle
    (or (featurep 'ediff-init)

  (ediff-barf-if-not-control-buffer)
  (run-hooks 'ediff-suspend-hook)
  (message
   "To resume, type M-x eregistry and select the desired Ediff session"))


;; ediff-barf-if-not-control-buffer ensures only called from 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.
Hit \\[ediff-recenter] to reset the windows afterward."
  (interactive)

87691:f2c8fd594360

(defvar bottom-toolbar-visible-p)
(defvar bottom-toolbar-height)
(defvar mark-active)

(defvar ediff-after-quit-hook-internal nil)

(eval-and-compile
  (unless (fboundp 'declare-function) (defmacro declare-function (&rest  r))))

(eval-when-compile
  (let ((load-path (cons (expand-file-name ".") load-path)))
    (provide 'ediff-util) ; to break recursive load cycle
    (or (featurep 'ediff-init)

  (ediff-barf-if-not-control-buffer)
  (run-hooks 'ediff-suspend-hook)
  (message
   "To resume, type M-x eregistry and select the desired Ediff session"))

;; ediff-barf-if-not-control-buffer ensures only called from ediff.
(declare-function ediff-version "ediff" ())

(defun ediff-status-info ()
  "Show the names of the buffers or files being operated on by Ediff.
Hit \\[ediff-recenter] to reset the windows afterward."
  (interactive)