comparison lisp/emulation/viper-cmd.el @ 87691:f2c8fd594360

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

87690:9cbad7267d3d

(defvar mark-even-if-inactive)
(defvar init-message)
(defvar initial)
(defvar undo-beg-posn)
(defvar undo-end-posn)
;; end pacifier


(require 'viper-util)
(require 'viper-keym)

    (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 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.
If point is on a widget or a button, simulate clicking on that widget/button."
  (interactive "P")

87691:f2c8fd594360

(defvar mark-even-if-inactive)
(defvar init-message)
(defvar initial)
(defvar undo-beg-posn)
(defvar undo-end-posn)

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


(require 'viper-util)
(require 'viper-keym)

    (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" ())

(defun viper-next-line-at-bol (arg)
  "Next line at beginning of line.
If point is on a widget or a button, simulate clicking on that widget/button."
  (interactive "P")