GNU bug report logs - #40853
28.0.50; possible bug in function customize-saved

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 40853 in the body.
You can then email your comments to 40853 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Michelangelo Rodriguez <michelangelo.rodriguez <at> gmail.com>
To: bug-gnu-emacs <at> gnu.org
Subject: 28.0.50; possible bug in function customize-saved
Date: Sat, 25 Apr 2020 21:49:18 +0200

In customize-saved buffers, if two or more options are present, The
following error occurs:


(void-function nil)
  nil(nil)
  widget-apply(nil :value-get)
  widget-value(nil)
  custom-variable-modified-p((custom-variable :tag "Package Archives" :value package-archives :custom-form edit :custom-magic (custom-magic :args (nil) :parent #1 :indent 0 :children nil :from #<marker (moves after insertion) at 587 in *Customize Saved*> :to #<marker at 587 in *Customize Saved*> :buttons nil :value nil) :buttons ((documentation-string :args nil :value "An alist of archives from which to fetch.\nThe defa..." :indent 3 :visibility-widget custom-visibility :parent #1 :doc-overlay #<overlay from 587 to 632 in *Customize Saved*> :buttons ((custom-visibility :args nil :value nil :help-echo "Show or hide rest of the documentation." :on "Hide" :off "More" :always-active t :action widget-parent-action :parent #13 :indent 3 :button-overlay #<overlay from 632 to 636 in *Customize Saved*> :from #<marker (moves after insertion) at 632 in *Customize Saved*> :to #<marker at 636 in *Customize Saved*>)) :from #<marker (moves after insertion) at 587 in *Customize Saved*> :to #<marker at 637 in *Customize Saved*>) (custom-magic :args (nil) :parent #1 :indent 0 :children nil :from #<marker (moves after insertion) at 587 in *Customize Saved*> :to #<marker at 587 in *Customize Saved*> :buttons nil :value nil) (item :format "%{%t%} " :sample-face custom-variable-tag :tag "Package Archives" :parent #1 :indent 0 :sample-overlay #<overlay from 569 to 585 in *Customize Saved*> :from #<marker (moves after insertion) at 569 in *Customize Saved*> :to #<marker at 586 in *Customize Saved*>) (custom-visibility :args nil :value nil :help-echo "Show the value of this option." :on-glyph "down" :on "Hide" :off-glyph "right" :off "Show Value" :action custom-toggle-hide-variable :parent #1 :indent 0 :suppress-face t :button-overlay #<overlay from 558 to 568 in *Customize Saved*> :from #<marker (moves after insertion) at 558 in *Customize Saved*> :to #<marker at 568 in *Customize Saved*>)) :documentation-indent 3 :children nil :custom-state hidden :from #<marker (moves after insertion) at 558 in *Customize Saved*> :to #<marker at 637 in *Customize Saved*>))
  custom-variable-state-set((custom-variable :tag "Package Archives" :value package-archives :custom-form edit :custom-magic (custom-magic :args (nil) :parent #1 :indent 0 :children nil :from #<marker (moves after insertion) at 587 in *Customize Saved*> :to #<marker at 587 in *Customize Saved*> :buttons nil :value nil) :buttons ((documentation-string :args nil :value "An alist of archives from which to fetch.\nThe defa..." :indent 3 :visibility-widget custom-visibility :parent #1 :doc-overlay #<overlay from 587 to 632 in *Customize Saved*> :buttons ((custom-visibility :args nil :value nil :help-echo "Show or hide rest of the documentation." :on "Hide" :off "More" :always-active t :action widget-parent-action :parent #13 :indent 3 :button-overlay #<overlay from 632 to 636 in *Customize Saved*> :from #<marker (moves after insertion) at 632 in *Customize Saved*> :to #<marker at 636 in *Customize Saved*>)) :from #<marker (moves after insertion) at 587 in *Customize Saved*> :to #<marker at 637 in *Customize Saved*>) (custom-magic :args (nil) :parent #1 :indent 0 :children nil :from #<marker (moves after insertion) at 587 in *Customize Saved*> :to #<marker at 587 in *Customize Saved*> :buttons nil :value nil) (item :format "%{%t%} " :sample-face custom-variable-tag :tag "Package Archives" :parent #1 :indent 0 :sample-overlay #<overlay from 569 to 585 in *Customize Saved*> :from #<marker (moves after insertion) at 569 in *Customize Saved*> :to #<marker at 586 in *Customize Saved*>) (custom-visibility :args nil :value nil :help-echo "Show the value of this option." :on-glyph "down" :on "Hide" :off-glyph "right" :off "Show Value" :action custom-toggle-hide-variable :parent #1 :indent 0 :suppress-face t :button-overlay #<overlay from 558 to 568 in *Customize Saved*> :from #<marker (moves after insertion) at 558 in *Customize Saved*> :to #<marker at 568 in *Customize Saved*>)) :documentation-indent 3 :children nil :custom-state hidden :from #<marker (moves after insertion) at 558 in *Customize Saved*> :to #<marker at 637 in *Customize Saved*>))
  custom-variable-state-set-and-redraw((custom-variable :tag "Package Archives" :value package-archives :custom-form edit :custom-magic (custom-magic :args (nil) :parent #1 :indent 0 :children nil :from #<marker (moves after insertion) at 587 in *Customize Saved*> :to #<marker at 587 in *Customize Saved*> :buttons nil :value nil) :buttons ((documentation-string :args nil :value "An alist of archives from which to fetch.\nThe defa..." :indent 3 :visibility-widget custom-visibility :parent #1 :doc-overlay #<overlay from 587 to 632 in *Customize Saved*> :buttons ((custom-visibility :args nil :value nil :help-echo "Show or hide rest of the documentation." :on "Hide" :off "More" :always-active t :action widget-parent-action :parent #13 :indent 3 :button-overlay #<overlay from 632 to 636 in *Customize Saved*> :from #<marker (moves after insertion) at 632 in *Customize Saved*> :to #<marker at 636 in *Customize Saved*>)) :from #<marker (moves after insertion) at 587 in *Customize Saved*> :to #<marker at 637 in *Customize Saved*>) (custom-magic :args (nil) :parent #1 :indent 0 :children nil :from #<marker (moves after insertion) at 587 in *Customize Saved*> :to #<marker at 587 in *Customize Saved*> :buttons nil :value nil) (item :format "%{%t%} " :sample-face custom-variable-tag :tag "Package Archives" :parent #1 :indent 0 :sample-overlay #<overlay from 569 to 585 in *Customize Saved*> :from #<marker (moves after insertion) at 569 in *Customize Saved*> :to #<marker at 586 in *Customize Saved*>) (custom-visibility :args nil :value nil :help-echo "Show the value of this option." :on-glyph "down" :on "Hide" :off-glyph "right" :off "Show Value" :action custom-toggle-hide-variable :parent #1 :indent 0 :suppress-face t :button-overlay #<overlay from 558 to 568 in *Customize Saved*> :from #<marker (moves after insertion) at 558 in *Customize Saved*> :to #<marker at 568 in *Customize Saved*>)) :documentation-indent 3 :children nil :custom-state hidden :from #<marker (moves after insertion) at 558 in *Customize Saved*> :to #<marker at 637 in *Customize Saved*>))
  widget-apply((custom-variable :tag "Package Archives" :value package-archives :custom-form edit :custom-magic (custom-magic :args (nil) :parent #1 :indent 0 :children nil :from #<marker (moves after insertion) at 587 in *Customize Saved*> :to #<marker at 587 in *Customize Saved*> :buttons nil :value nil) :buttons ((documentation-string :args nil :value "An alist of archives from which to fetch.\nThe defa..." :indent 3 :visibility-widget custom-visibility :parent #1 :doc-overlay #<overlay from 587 to 632 in *Customize Saved*> :buttons ((custom-visibility :args nil :value nil :help-echo "Show or hide rest of the documentation." :on "Hide" :off "More" :always-active t :action widget-parent-action :parent #13 :indent 3 :button-overlay #<overlay from 632 to 636 in *Customize Saved*> :from #<marker (moves after insertion) at 632 in *Customize Saved*> :to #<marker at 636 in *Customize Saved*>)) :from #<marker (moves after insertion) at 587 in *Customize Saved*> :to #<marker at 637 in *Customize Saved*>) (custom-magic :args (nil) :parent #1 :indent 0 :children nil :from #<marker (moves after insertion) at 587 in *Customize Saved*> :to #<marker at 587 in *Customize Saved*> :buttons nil :value nil) (item :format "%{%t%} " :sample-face custom-variable-tag :tag "Package Archives" :parent #1 :indent 0 :sample-overlay #<overlay from 569 to 585 in *Customize Saved*> :from #<marker (moves after insertion) at 569 in *Customize Saved*> :to #<marker at 586 in *Customize Saved*>) (custom-visibility :args nil :value nil :help-echo "Show the value of this option." :on-glyph "down" :on "Hide" :off-glyph "right" :off "Show Value" :action custom-toggle-hide-variable :parent #1 :indent 0 :suppress-face t :button-overlay #<overlay from 558 to 568 in *Customize Saved*> :from #<marker (moves after insertion) at 558 in *Customize Saved*> :to #<marker at 568 in *Customize Saved*>)) :documentation-indent 3 :children nil :custom-state hidden :from #<marker (moves after insertion) at 558 in *Customize Saved*> :to #<marker at 637 in *Customize Saved*>) :custom-state-set-and-redraw)
  #f(compiled-function (&rest ignore) "Set all edited settings, then save all settings that have been set.\nIf a setting was edited and set before, this saves it.  If a\nsetting was merely edited before, this sets it then saves it." (interactive nil) #<bytecode 0x134c1f20ff435e95>)()
  apply(#f(compiled-function (&rest ignore) "Set all edited settings, then save all settings that have been set.\nIf a setting was edited and set before, this saves it.  If a\nsetting was merely edited before, this sets it then saves it." (interactive nil) #<bytecode 0x134c1f20ff435e95>) nil)
  ad-Advice-Custom-save(#f(compiled-function (&rest ignore) "Set all edited settings, then save all settings that have been set.\nIf a setting was edited and set before, this saves it.  If a\nsetting was merely edited before, this sets it then saves it." (interactive nil) #<bytecode 0x134c1f20ff435e95>))
  apply(ad-Advice-Custom-save #f(compiled-function (&rest ignore) "Set all edited settings, then save all settings that have been set.\nIf a setting was edited and set before, this saves it.  If a\nsetting was merely edited before, this sets it then saves it." (interactive nil) #<bytecode 0x134c1f20ff435e95>) nil)
  Custom-save()
  #<subr funcall-interactively>(Custom-save)
  apply(#<subr funcall-interactively> Custom-save nil)
  ad-Advice-funcall-interactively(#<subr funcall-interactively> Custom-save)
  apply(ad-Advice-funcall-interactively #<subr funcall-interactively> Custom-save)
  funcall-interactively(Custom-save)
  #<subr call-interactively>(Custom-save nil nil)
  ad-Advice-call-interactively(#<subr call-interactively> Custom-save nil nil)
  apply(ad-Advice-call-interactively #<subr call-interactively> (Custom-save nil nil))
  call-interactively(Custom-save nil nil)
  command-execute(Custom-save)
These are the contents of the init file i used to reproduce this
  unexpected behavior.
  ~/.emacs:
  (load-file "/home/michelangelo/.emacs.d/custom.el")
(load-file "~/emacspeak/lisp/emacspeak-setup.el")

custom.el:
(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(custom-file "/home/michelangelo/.emacs.d/custom.el")
 '(package-archives
   '(("gnu" . "https://elpa.gnu.org/packages/")
     ("melpa" . "http://melpa.org/packages/")))
 '(package-selected-packages '(greader)))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )

In GNU Emacs 28.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.18, cairo version 1.16.0)
 of 2020-04-25 built on mugno
Repository revision: 519567878fa32715aa377d1fa23240f09ce291f6
Repository branch: master
Windowing system distributor 'The X.Org Foundation', version 11.0.12008000
System Description: Debian GNU/Linux bullseye/sid

Recent messages:
Loading voice-setup...done
Loading voice-setup...done
Turning off global-eldoc-mode
Loading /home/michelangelo/emacspeak/sounds/pan-chimes/define-theme.el (source)...done
  Press C-h C-e to get an   overview of emacspeak  51.0  AssistDog  I am  completely operational,  and all my circuits are functioning perfectly!
Loading /home/michelangelo/emacspeak/lisp/emacspeak-setup.el (source)...done
For information about GNU Emacs and the GNU system, type C-h C-a.
ad-Advice-call-interactively: Command attempted to use minibuffer while in minibuffer [2 times]
user-error: End of history; no default available
user-error: Beginning of history; no preceding item

Configured using:
 'configure --with-modules'

Configured features:
XPM JPEG TIFF GIF PNG RSVG CAIRO SOUND GPM DBUS GSETTINGS GLIB NOTIFY
INOTIFY ACL LIBSELINUX GNUTLS LIBXML2 FREETYPE HARFBUZZ M17N_FLT LIBOTF
ZLIB TOOLKIT_SCROLL_BARS GTK3 X11 XDBE XIM MODULES THREADS LIBSYSTEMD
JSON PDUMPER GMP

Important settings:
  value of $LANG: it_IT.UTF-8
  locale-coding-system: utf-8-unix

Major mode: Fundamental

Minor modes in effect:
  shell-dirtrack-mode: t
  global-voice-lock-mode: t
  voice-lock-mode: t
  tooltip-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  blink-cursor-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  buffer-read-only: t
  transient-mark-mode: t

Load-path shadows:
/home/michelangelo/emacspeak/lisp/tapestry hides /usr/local/share/emacs/site-lisp/vm/tapestry
/home/michelangelo/emacspeak/lisp/tetris hides /usr/local/share/emacs/28.0.50/lisp/play/tetris

Features:
(shadow sort mail-extr emacsbug emacspeak-message message format-spec
rfc822 mml mml-sec emacspeak-epa epa epg epg-config gnus-util
emacspeak-rmail rmailsort rmail rmail-loaddefs mm-decode mm-bodies
mm-encode mailabbrev gmm-utils mailheader sendmail mail-utils
emacspeak-setup emacspeak-m-player emacspeak-dired locate
emacspeak-desktop desktop frameset dired dired-loaddefs emacspeak-amark
emacspeak-advice shell pcomplete hippie-exp comint ring vc vc-dispatcher
which-func emacspeak-imenu imenu emacspeak-ansi-color ansi-color
emacspeak-redefine emacspeak-personality emacspeak emacspeak-widget
emacspeak-webutils shr text-property-search svg xml dom url-http url
url-proxy url-privacy url-expand url-methods url-history mailcap
url-auth mail-parse rfc2231 rfc2047 rfc2045 mm-util ietf-drums
mail-prsvr url-cookie url-domsuf url-util url-gw nsm rmc puny
emacspeak-tab-bar emacspeak-package emacspeak-calendar appt diary-lib
diary-loaddefs g-utils solar cal-dst cal-menu calendar cal-loaddefs
emacspeak-kmacro emacspeak-ido emacspeak-facemenu emacspeak-buff-menu
g-cus-load cus-load emacspeak-fix-interactive warnings emacspeak-sox
emacspeak-preamble finder-inf emacspeak-keymap wid-edit emacspeak-speak
sox-gen sox ladspa edmacro kmacro derived rect time-date ido
emacspeak-pronounce thingatpt dtk-speak dtk-interp voice-setup cl-extra
emacspeak-sounds dectalk-voices espeak-voices mac-voices outloud-voices
dtk-unicode descr-text help-mode acss-structure tts emacspeak-load-path
advice package easymenu browse-url url-handlers url-parse auth-source
cl-seq eieio eieio-core cl-macs eieio-loaddefs password-cache json
subr-x map url-vars seq byte-opt gv bytecomp byte-compile cconv
cl-loaddefs cl-lib tooltip eldoc electric uniquify ediff-hook vc-hooks
lisp-float-type mwheel term/x-win x-win term/common-win x-dnd tool-bar
dnd fontset image regexp-opt fringe tabulated-list replace newcomment
text-mode elisp-mode lisp-mode prog-mode register page tab-bar menu-bar
rfn-eshadow isearch timer select scroll-bar mouse jit-lock font-lock
syntax facemenu font-core term/tty-colors frame minibuffer cl-generic
cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao
korean japanese eucjp-ms cp51932 hebrew greek romanian slovak czech
european ethiopic indian cyrillic chinese composite charscript charprop
case-table epa-hook jka-cmpr-hook help simple abbrev obarray
cl-preloaded nadvice loaddefs button faces cus-face macroexp files
text-properties overlay sha1 md5 base64 format env code-pages mule
custom widget hashtable-print-readable backquote threads dbusbind
inotify dynamic-setting system-font-setting font-render-setting cairo
move-toolbar gtk x-toolkit x multi-tty make-network-process emacs)

Memory information:
((conses 16 304339 21468)
 (symbols 48 19556 1)
 (strings 32 87378 12690)
 (string-bytes 1 2366443)
 (vectors 16 33003)
 (vector-slots 8 401935 16390)
 (floats 8 660 25)
 (intervals 56 293 0)
 (buffers 992 15))

Message #8 received at 40853 <at> debbugs.gnu.org (full text, mbox):

From: Mauro Aranda <maurooaranda <at> gmail.com>
To: Michelangelo Rodriguez <michelangelo.rodriguez <at> gmail.com>
Cc: 40853 <at> debbugs.gnu.org
Subject: Re: bug#40853: 28.0.50; possible bug in function customize-saved
Date: Tue, 1 Sep 2020 17:44:40 -0300

[Message part 1 (text/plain, inline)]

forcemerge 42801 40853
quit

Hello Michelangelo,

Thanks for your bug report.  This was fixed in:

commit 5c39f6f1165a33f5714eedd3a413f786dffbb5a2
Author: Mauro Aranda <maurooaranda <at> gmail.com>
Date:   Fri Aug 14 16:40:40 2020 +0200

    Make sure we only act on edited widgets in Custom-save

    * lisp/cus-edit.el (Custom-save): Only act on edited widgets in the
    buffer.  If we attempt to redraw all widgets, we confuse
    custom-variable-modified-p, or we end up drawing State buttons for
    all options, including the hidden ones (bug#42801).

The error you posted was custom-variable-modified-p being confused.

[Message part 2 (text/html, inline)]

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.