diff options
| author | Michael Kifer <kifer@cs.stonybrook.edu> | 2006-09-18 19:22:31 +0000 |
|---|---|---|
| committer | Michael Kifer <kifer@cs.stonybrook.edu> | 2006-09-18 19:22:31 +0000 |
| commit | 9963571ea9e0b8fe6e09cd633c77784d883bd220 (patch) | |
| tree | d0eed971af080c97c549ec33c2d56dd0f649e716 /lisp/ediff-util.el | |
| parent | a0842b2d5e5e61dacacf88d6999202bee5eb5720 (diff) | |
| download | emacs-9963571ea9e0b8fe6e09cd633c77784d883bd220.tar.gz | |
* viper.el: Bumped up version/date of update to reflect the substantial
changes done in August 2006.
* viper-cmd (viper-next-line-at-bol): make sure button-at, push-button
are defined.
* ediff-util.el (ediff-add-to-history): new function.
* ediff.el: use ediff-add-to-history instead of add-to-history.
Diffstat (limited to 'lisp/ediff-util.el')
| -rw-r--r-- | lisp/ediff-util.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lisp/ediff-util.el b/lisp/ediff-util.el index dff3c6bee61..015e6bfff3e 100644 --- a/lisp/ediff-util.el +++ b/lisp/ediff-util.el @@ -4281,6 +4281,11 @@ Mail anyway? (y or n) ") (setq lis1 (cdr lis1))) (cdr result))) +(defun ediff-add-to-history (history-var newelt) + (if (fboundp 'add-to-history) + (add-to-history history-var newelt) + (set history-var (cons newelt (symbol-value history-var))))) + (if (fboundp 'copy-sequence) (defalias 'ediff-copy-list 'copy-sequence) (defun ediff-copy-list (list) |