From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: BDB Newsgroups: gmane.emacs.help Subject: Re: Automating function with interactive args Date: 27 Apr 2012 16:30:18 GMT Organization: Unlimited download news at news.astraweb.com Message-ID: References: NNTP-Posting-Host: plane.gmane.org X-Trace: dough.gmane.org 1335544522 8399 80.91.229.3 (27 Apr 2012 16:35:22 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Fri, 27 Apr 2012 16:35:22 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Fri Apr 27 18:35:21 2012 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1SNo8a-0000OB-IP for geh-help-gnu-emacs@m.gmane.org; Fri, 27 Apr 2012 18:35:16 +0200 Original-Received: from localhost ([::1]:46689 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SNo8Z-0004GD-Js for geh-help-gnu-emacs@m.gmane.org; Fri, 27 Apr 2012 12:35:15 -0400 Original-Path: usenet.stanford.edu!news.glorb.com!news.astraweb.com!border6.newsrouter.astraweb.com!not-for-mail Original-Newsgroups: gnu.emacs.help User-Agent: slrn/pre1.0.0-18 (Linux) Original-Lines: 16 Original-NNTP-Posting-Host: 6adfa2ee.news.astraweb.com Original-X-Trace: DXC=cn_nA8H<9^YkR1VMS3E6>\L?0kYOcDh@ZAYMF7FZ0Rk_I7g=bIdTQP\ADQeaGG; [V]lm>HB?YDhTTH[ek; 2Q9G2YX=UT1=Mo<<^2R List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:84663 Archived-At: Tassilo Horn wrote: > > --8<---------------cut here---------------start------------->8--- > (defun my-ediff-revision-latest () > (interactive) > (if (and (buffer-modified-p) > (y-or-n-p (format "Buffer %s is modified. Save buffer? " > (buffer-name)))) > (save-buffer (current-buffer))) > (ediff-load-version-control) > (funcall > (intern (format "ediff-%S-internal" ediff-version-control-package)) > "" "" nil)) > --8<---------------cut here---------------end--------------->8--- Excellent, works perfectly. Thank you!