comparison lisp/emulation/viper-cmd.el @ 74857:2e5f946f7726

2006-12-23 Michael Kifer <[e-mail]> * ediff-diff.el (ediff-diff-options): clarify docstring. (ediff-setup-diff-regions): disallow -u in ediff-diff-options. * viper-cmd.el (viper-post-command-sentinel): protect against errors in hooks. (viper-add-newline-at-eob-if-necessary): add newline only if we actually modify buffer; ignore errors if occur.

74856:333882884f8a

;; Runs viper-before-change-functions inside before-change-functions
(defun viper-before-change-sentinel (beg end)
  (run-hook-with-args 'viper-before-change-functions beg end))

(defsubst viper-post-command-sentinel ()
  (run-hooks 'viper-post-command-hooks)
  (if (eq viper-current-state 'vi-state)
      (viper-restore-cursor-color 'after-insert-mode)))

(defsubst viper-pre-command-sentinel ()
  (run-hooks 'viper-pre-command-hooks))

	result)
    (viper-set-mode-vars-for 'vi-state)

    (condition-case nil
	(let (viper-vi-kbd-minor-mode) ; execute without kbd macros
	  (setq result (eval form))
	  )
      (error
       (signal 'quit nil)))

    (if (not (equal buff (current-buffer))) ; cmd switched buffer
	(save-excursion

      (save-restriction
	(widen)
	(if (and (eobp)
		 (not (bolp))
		 require-final-newline
		 (not (viper-is-in-minibuffer))
		 (not buffer-read-only))
	    (insert "\n")))
      ))

(defun viper-yank-defun ()
  (mark-defun)
  (copy-region-as-kill (point) (mark t)))

74857:2e5f946f7726

;; Runs viper-before-change-functions inside before-change-functions
(defun viper-before-change-sentinel (beg end)
  (run-hook-with-args 'viper-before-change-functions beg end))

(defsubst viper-post-command-sentinel ()
  (condition-case conds
      (run-hooks 'viper-post-command-hooks)
    (error (viper-message-conditions conds)))
  (if (eq viper-current-state 'vi-state)
      (viper-restore-cursor-color 'after-insert-mode)))

(defsubst viper-pre-command-sentinel ()
  (run-hooks 'viper-pre-command-hooks))

	result)
    (viper-set-mode-vars-for 'vi-state)

    (condition-case nil
	(let (viper-vi-kbd-minor-mode) ; execute without kbd macros
	  (setq result (eval form)))
      (error
       (signal 'quit nil)))

    (if (not (equal buff (current-buffer))) ; cmd switched buffer
	(save-excursion

      (save-restriction
	(widen)
	(if (and (eobp)
		 (not (bolp))
		 require-final-newline
		 ;; add newline only if we actually edited buffer. otherwise it
		 ;; might unintentionally modify binary buffers
		 (buffer-modified-p) 
		 (not (viper-is-in-minibuffer))
		 (not buffer-read-only))
	    ;; text property may be read-only
	    (condition-case nil
		(insert "\n")
	      (error nil))
	  ))
      ))

(defun viper-yank-defun ()
  (mark-defun)
  (copy-region-as-kill (point) (mark t)))