/[emacs]/emacs/lisp/emulation/viper-cmd.el
ViewVC logotype

Diff of /emacs/lisp/emulation/viper-cmd.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.48 by kifer, Sat Aug 6 16:58:54 2005 UTC revision 1.49 by kifer, Tue Sep 20 17:47:26 2005 UTC
# Line 358  Line 358 
358                                            'viper-insertion-ring))                                            'viper-insertion-ring))
359    
360                  (if viper-ESC-moves-cursor-back                  (if viper-ESC-moves-cursor-back
361                      (or (bolp) (backward-char 1))))                      (or (bolp) (viper-beginning-of-field) (backward-char 1))))
362                 ))                 ))
363    
364          ;; insert or replace          ;; insert or replace
# Line 1996  Undo previous insertion and inserts new. Line 1996  Undo previous insertion and inserts new.
1996  ;;; Minibuffer business  ;;; Minibuffer business
1997    
1998  (defsubst viper-set-minibuffer-style ()  (defsubst viper-set-minibuffer-style ()
1999    (add-hook 'minibuffer-setup-hook 'viper-minibuffer-setup-sentinel))    (add-hook 'minibuffer-setup-hook 'viper-minibuffer-setup-sentinel)
2000      (add-hook 'post-command-hook 'viper-minibuffer-post-command-hook))
2001    
2002    
2003  (defun viper-minibuffer-setup-sentinel ()  (defun viper-minibuffer-setup-sentinel ()
# Line 2039  Undo previous insertion and inserts new. Line 2040  Undo previous insertion and inserts new.
2040        (minibuffer-prompt-end)        (minibuffer-prompt-end)
2041      (point-min)))      (point-min)))
2042    
2043    (defun viper-minibuffer-post-command-hook()
2044      (when (active-minibuffer-window)
2045        (when (< (point) (viper-minibuffer-real-start))
2046          (goto-char (viper-minibuffer-real-start)))))
2047    
2048    
2049  ;; Interpret last event in the local map first; if fails, use exit-minibuffer.  ;; Interpret last event in the local map first; if fails, use exit-minibuffer.
2050  ;; Run viper-minibuffer-exit-hook before exiting.  ;; Run viper-minibuffer-exit-hook before exiting.
# Line 2570  These keys are ESC, RET, and LineFeed" Line 2576  These keys are ESC, RET, and LineFeed"
2576      ;; last line of buffer when this line has no \n.      ;; last line of buffer when this line has no \n.
2577      (viper-add-newline-at-eob-if-necessary)      (viper-add-newline-at-eob-if-necessary)
2578      (viper-execute-com 'viper-line val com))      (viper-execute-com 'viper-line val com))
2579    (if (and (eobp) (not (bobp))) (forward-line -1))    (if (and (eobp) (bolp) (not (bobp))) (forward-line -1))
2580    )    )
2581    
2582  (defun viper-yank-line (arg)  (defun viper-yank-line (arg)

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26