diff options
| author | Michael Kifer <[email protected]> | 2006-09-18 19:22:31 +0000 |
|---|---|---|
| committer | Michael Kifer <[email protected]> | 2006-09-18 19:22:31 +0000 |
| commit | f573c8b0357cf6d8563db405ead5c5a9f37d492b (patch) | |
| tree | 583643ce7e6fe031ab8a68c1c3abae691b6029f6 /lisp/ediff-util.el | |
| parent | 2b1119a0fd2c772e1f6b1e549fc1ee78aafb6ed4 (diff) | |
* 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 dff3c6bee6..015e6bfff3 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) |