comparison lisp/emulation/viper-cmd.el @ 93615:34417c118a39

2008-04-03 Michael Kifer <[e-mail]> * viper-macs.el (viper-read-fast-keysequence): use viper-read-event instead of viper-read-key. * viper.el (viper-mode): move the check for fundamental mode. * viper-utils.el (viper-get-saved-cursor-color-in-replace-mode) viper-get-saved-cursor-color-in-insert-mode): get rid of redundant let-statements. * viper*.el: replaced load with require in eval-when-compile.

93614:ee3b56d7c857

    (message " `.' runs  %s%s"
	     (concat "`" (viper-array-to-string keys) "'")
	     (viper-abbreviate-string
	      (if (featurep 'xemacs)
	       (replace-in-string ; xemacs
		(cond ((characterp text) (char-to-string text))
		      ((stringp text) text)
		      (t ""))
		"\n" "^J")
	       text ; emacs
	       )
	      max-text-len
	      "  inserting  `" "'" "    ......."))
    ))

				  '(exit-minibuffer viper-exit-minibuffer)))
		  (setq cmd
			(key-binding (setq key (read-key-sequence nil))))
		  (cond ((eq cmd 'self-insert-command)
			 (if (featurep 'xemacs)
			  (insert (events-to-keys key)) ; xemacs
			  (insert key) ; emacs
			  ))
			((memq cmd '(exit-minibuffer viper-exit-minibuffer))
			 nil)
			(t (command-execute cmd)))
		  )))
	  ))))

;; scroll up or down 1/7 of window height, depending on whether we are at the
;; bottom or at the top of the  window.  This function is called by viper-search
;; (which is called from viper-search-forward/backward/next).  If the value of
;; viper-search-scroll-threshold is negative - don't scroll.
(defun viper-adjust-window ()
  (let ((win-height (if (featurep 'xemacs) (window-displayed-height)
		      (1- (window-height)))) ; adjust for modeline
	(pt (point))
	at-top-p at-bottom-p
	min-scroll direction)
    (save-excursion

93615:34417c118a39

    (message " `.' runs  %s%s"
	     (concat "`" (viper-array-to-string keys) "'")
	     (viper-abbreviate-string
	      (if (featurep 'xemacs)
		  (replace-in-string ; xemacs
		   (cond ((characterp text) (char-to-string text))
			 ((stringp text) text)
			 (t ""))
		   "\n" "^J")
		text ; emacs
		)
	      max-text-len
	      "  inserting  `" "'" "    ......."))
    ))

				  '(exit-minibuffer viper-exit-minibuffer)))
		  (setq cmd
			(key-binding (setq key (read-key-sequence nil))))
		  (cond ((eq cmd 'self-insert-command)
			 (if (featurep 'xemacs)
			     (insert (events-to-keys key)) ; xemacs
			   (insert key) ; emacs
			   ))
			((memq cmd '(exit-minibuffer viper-exit-minibuffer))
			 nil)
			(t (command-execute cmd)))
		  )))
	  ))))

;; scroll up or down 1/7 of window height, depending on whether we are at the
;; bottom or at the top of the  window.  This function is called by viper-search
;; (which is called from viper-search-forward/backward/next).  If the value of
;; viper-search-scroll-threshold is negative - don't scroll.
(defun viper-adjust-window ()
  (let ((win-height (if (featurep 'xemacs)
			(window-displayed-height)
		      (1- (window-height)))) ; adjust for modeline
	(pt (point))
	at-top-p at-bottom-p
	min-scroll direction)
    (save-excursion