[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emulation/viper-cmd.el,v
From: |
Michael Kifer |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emulation/viper-cmd.el,v |
Date: |
Thu, 10 Jan 2008 06:54:15 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Michael Kifer <kifer> 08/01/10 06:54:14
Index: emulation/viper-cmd.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emulation/viper-cmd.el,v
retrieving revision 1.72
retrieving revision 1.73
diff -u -b -r1.72 -r1.73
--- emulation/viper-cmd.el 9 Jan 2008 06:16:05 -0000 1.72
+++ emulation/viper-cmd.el 10 Jan 2008 06:54:11 -0000 1.73
@@ -47,6 +47,9 @@
(defvar initial)
(defvar undo-beg-posn)
(defvar undo-end-posn)
+
+(eval-and-compile
+ (unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
;; end pacifier
@@ -3083,10 +3086,9 @@
(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" ())
+(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.