unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
From: Vitalie Spinu <spinuvit@gmail.com>
To: Michael Heerdegen <michael_heerdegen@web.de>
Cc: emacs-devel@gnu.org
Subject: Re: Replacement for `aput' from obsolete assoc.el?
Date: Fri, 08 Jun 2012 09:57:00 +0200	[thread overview]
Message-ID: <871ulq44oj.fsf@gmail.com> (raw)
In-Reply-To: <87haupwo6b.fsf@web.de> (Michael Heerdegen's message of "Tue, 05 Jun 2012 21:31:40 +0200")


  > So I think I want something like that:

  > (defun my-aput (alist-sym key val)
  >   (let ((cons (assoc key (symbol-value alist-sym))))
  >     (if cons (setcdr cons val) (push (cons key val) (symbol-value alist-sym)))))

  >> >> instead of `eq')?  Dunno why this function does not exist yet, but it
  >> >> would ease handling alists e.g. if its keys are strings.
  >> 
  >> Using side-effects on alists is often a bad idea.

  > Why?  I do this very often in my .emacs.  For example:


This is essential. A lot of packages store settings in alists, and there
is no handy function to alter the values inside those. 

I wish for a `setq-within':

(setq-within object
   name1 value1
   name2 value2
   ...
 )

where OBJECT is any dict-like container - alist, plist or
hash-table. 

Doesn't this make sense as a base emacs functionality?

Thanks, 
Vitalie.



  parent reply	other threads:[~2012-06-08  7:57 UTC|newest]

Thread overview: 19+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2012-06-04 16:46 Replacement for `aput' from obsolete assoc.el? Michael Heerdegen
2012-06-05  3:27 ` Christopher Schmidt
2012-06-05 17:43   ` Stefan Monnier
2012-06-05 19:31     ` Michael Heerdegen
2012-06-05 22:52       ` Stefan Monnier
2012-06-08  7:57       ` Vitalie Spinu [this message]
2012-06-08 12:39         ` Stephen J. Turnbull
2012-06-08 19:50           ` Stefan Monnier
2012-06-09  8:59             ` Stephen J. Turnbull
2012-06-09  9:46               ` Andreas Schwab
2012-06-09 10:13                 ` Thien-Thi Nguyen
2012-06-10 12:11                   ` Stephen J. Turnbull
2012-06-09 16:11                 ` Drew Adams
2012-06-09 16:17                   ` Drew Adams
2012-06-09 11:32               ` Vitalie Spinu
2012-06-10 12:53                 ` Stephen J. Turnbull
2012-06-09 16:10               ` Drew Adams
2012-06-10  0:52               ` Stefan Monnier
2012-06-10 13:48                 ` Stephen J. Turnbull

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.gnu.org/software/emacs/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=871ulq44oj.fsf@gmail.com \
    --to=spinuvit@gmail.com \
    --cc=emacs-devel@gnu.org \
    --cc=michael_heerdegen@web.de \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).