From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: "Robert L." Newsgroups: gmane.emacs.help Subject: Re: ask for the value of several variables at once Date: Fri, 9 Mar 2018 20:07:43 +0000 (UTC) Organization: Aioe.org NNTP Server Message-ID: References: <87sh9a36pw.fsf@mat.ucm.es> <20180308160838.GA32404@tuxteam.de> <87fu5aqwml.fsf@mat.ucm.es> <86d10dr833.fsf@zoho.com> <86muzhps3c.fsf@zoho.com> NNTP-Posting-Host: blaine.gmane.org X-Trace: blaine.gmane.org 1520626111 22931 195.159.176.226 (9 Mar 2018 20:08:31 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Fri, 9 Mar 2018 20:08:31 +0000 (UTC) User-Agent: XanaNews/1.18.1.6 To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Fri Mar 09 21:08:27 2018 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1euOJS-0005rH-Ey for geh-help-gnu-emacs@m.gmane.org; Fri, 09 Mar 2018 21:08:22 +0100 Original-Received: from localhost ([::1]:47843 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1euOLV-0004tL-BT for geh-help-gnu-emacs@m.gmane.org; Fri, 09 Mar 2018 15:10:29 -0500 Original-Path: usenet.stanford.edu!goblin2!goblin.stu.neva.ru!news.unit0.net!news.mixmin.net!aioe.org!.POSTED!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 41 Original-NNTP-Posting-Host: D+2PdImp7SQcORkJ0ThARA.user.gioia.aioe.org Original-X-Complaints-To: abuse@aioe.org X-Notice: Filtered by postfilter v. 0.8.3 Original-Xref: usenet.stanford.edu gnu.emacs.help:222045 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: Users list for the GNU Emacs text editor 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" Xref: news.gmane.org gmane.emacs.help:116163 Archived-At: On 3/9/2018, Emanuel Berg wrote: > > OK, but better (and much more difficult) to do > > a function/macro which is used like this, > > NB with no string or quotes to protect the > > original symbols: > > > > (vars-and-values var-1 ... var-n) > > > > which should give a list: > > > > (var-1 var-1-value ... var-n var-n-value) > > > > or > > > > ((var-1 var-1-value) ... (var-n var-n-value)) > > > > Do it today - in a different way :) > > This is how far I got - next step to make it > work with a list of vars... > > (defmacro echo-var (var) > `(list ,(symbol-name var) ,var) ) > ;; (echo-var fill-column) ; ("fill-column" 47) (defun syms-status (&rest sym-list) (mapcar (lambda (s) (list s (symbol-value s))) sym-list)) (defmacro vars-status (&rest sym-list) `(quote ,(apply #'syms-status sym-list))) (setq foo 22 bar 88) (vars-status foo bar) ===> ((foo 22) (bar 88)) -- [Amazon bans history book after it received 300 5-star reviews.] http://archive.org/details/nolies