From: Michael Albinus <michael.albinus@gmx.de>
To: Drew Adams <drew.adams@oracle.com>
Cc: 31558@debbugs.gnu.org
Subject: bug#31558: 27.0; `custom-file' settings messed up by Emacs 27
Date: Wed, 23 May 2018 20:22:15 +0200 [thread overview]
Message-ID: <877enugrl4.fsf@gmx.de> (raw)
In-Reply-To: <9a02dc54-10c0-4dfa-9ff8-b5cae2d804df@default> (Drew Adams's message of "Wed, 23 May 2018 11:15:24 -0700 (PDT)")
Drew Adams <drew.adams@oracle.com> writes:
Hi Drew,
>> > (defcustom tramp-verbose 3
>> > "..."
>> > :group 'tramp
>> > :type 'integer
>> > :set (lambda (sym val)
>> > (when (require 'tramp nil t)
>> > (custom-set-default sym val)))
>> > :initialize 'custom-initialize-set)
>>
>> This results in
>>
>> Loading tramp...
>> Recursive load: "/net/ford/albinus/src/tramp/lisp/tramp.elc",
>> "/net/ford/albinus/src/tramp/lisp/tramp.elc",
>> "/net/ford/albinus/src/tramp/lisp/tramp.elc",
>> "/net/ford/albinus/src/tramp/lisp/tramp.elc",
>> "/net/ford/albinus/src/tramp/lisp/tramp.elc"
>
> Hm, indeed. Maybe :intialize needs to not try to set it here
> (i.e., during loading).
>
> Maybe :initialize needs to test (featurep 'tramp) or something?
>
> Or maybe some other value of :initialize is appropriate?
> `custom-initialize-default'?
> `custom-initialize-safe-set'?
> `custom-initialize-safe-default'?
>
> Dunno. I'm no expert on loading and defcustom initialization.
I will play along those lines:
--8<---------------cut here---------------start------------->8---
:set (lambda (sym val)
(eval-after-load 'tramp
'(custom-set-default sym val)))
:initialize 'custom-initialize-set)
--8<---------------cut here---------------end--------------->8---
Tomorrow. Tonight, I'm running out of time.
Best regards, Michael.
next prev parent reply other threads:[~2018-05-23 18:22 UTC|newest]
Thread overview: 16+ messages / expand[flat|nested] mbox.gz Atom feed top
2018-05-22 19:04 bug#31558: 27.0; `custom-file' settings messed up by Emacs 27 Drew Adams
2018-05-23 9:07 ` Michael Albinus
2018-05-23 14:07 ` Drew Adams
2018-05-23 14:50 ` Michael Albinus
2018-05-23 15:47 ` Drew Adams
2018-05-23 18:05 ` Michael Albinus
2018-05-23 18:15 ` Drew Adams
2018-05-23 18:22 ` Michael Albinus [this message]
2018-05-23 19:17 ` Drew Adams
2018-05-24 12:43 ` Michael Albinus
2018-05-24 13:47 ` Drew Adams
2018-05-24 13:56 ` Michael Albinus
2018-05-24 14:44 ` Drew Adams
2018-05-24 14:59 ` Michael Albinus
2018-05-24 15:03 ` Drew Adams
2018-05-29 8:11 ` Michael Albinus
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=877enugrl4.fsf@gmx.de \
--to=michael.albinus@gmx.de \
--cc=31558@debbugs.gnu.org \
--cc=drew.adams@oracle.com \
/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).