emacs-helm/helm

helm-M-x-execute-command: Symbol’s function definition is void: \(setf\ set-buffer-modified-p\)

OrionRandD opened this issue · 4 comments

OrionRandD commented

What happened?

When I call:
M-x cell-sheet-create

I see:
helm-M-x-execute-command: Symbol’s function definition is void: (setf\ set-buffer-modified-p)

How to reproduce?

I am getting this error:
helm-M-x-execute-command: Symbol’s function definition is void: (setf\ set-buffer-modified-p)

When I call:
M-x cell-sheet-create

Status: Installed in ‘helm-20240409.1347/’ (unsigned).
Version: 20240409.1347
Commit: 3117dfa
Summary: Helm is an Emacs incremental and narrowing framework
Requires: helm-core-3.9.7, wfnames-1.1, popup-0.5.3
Required by: helm-wordnet-20160128.1507, helm-org-20231022.620, eproject-20180312.1642
Website: https://emacs-helm.github.io/helm/
Maintainer: Thierry Volpiatto thievol@posteo.net
Author: Thierry Volpiatto thievol@posteo.net
Other versions: 20240418.1057 (melpa), 3.9.8 (nongnu), 3.9.8 (melpa-stable).

Helm Version

Master branch

Emacs Version

Emacs-29.1

OS

GNU/Linux

Relevant backtrace (if possible)

Debugger entered--Lisp error: (void-function \(setf\ set-buffer-modified-p\))
  (\(setf\ set-buffer-modified-p\) nil v)
  (let* ((v (current-buffer))) (\(setf\ set-buffer-modified-p\) nil v))
  (progn (let* ((v (current-buffer))) (\(setf\ set-buffer-modified-p\) nil v)))
  (lambda (sheet) "This method is invoked after the SHEET is opened." (progn (let* ((v (current-buffer))) (\(setf\ set-buffer-modified-p\) nil v))))(#<cell-sheet cell-sheet-1560f95c974e>)
  apply((lambda (sheet) "This method is invoked after the SHEET is opened." (progn (let* ((v (current-buffer))) (\(setf\ set-buffer-modified-p\) nil v)))) #<cell-sheet cell-sheet-1560f95c974e> nil)
  cell-sheet-after-open-hook(#<cell-sheet cell-sheet-1560f95c974e>)
  (save-current-buffer (set-buffer (slot-value object 'buffer)) (setq cursor-type nil) (setq truncate-lines t) (buffer-disable-undo (slot-value object 'buffer)) (make-local-variable 'cell-current-sheet) (setq buffer-read-only t) (cell-mode-insinuate) (cell-sheet-after-open-hook sheet^) (let* ((v (slot-value object 'buffer))) (\(setf\ set-buffer-modified-p\) nil v)))
  (progn (let* ((v object)) (eieio-oset v 'buffer new-buffer)) (let* ((v object)) (eieio-oset v 'grid (or (slot-value object 'grid) (cell-make-grid rows cols)))) (let* ((v object)) (eieio-oset v 'column-stops (make-vector (+ cols 1) 0))) (let* ((v object)) (eieio-oset v 'cursor '(0 0))) (let* ((v object)) (eieio-oset v 'borders-p t)) (let* ((v object)) (eieio-oset v 'headers-p t)) (save-current-buffer (set-buffer (slot-value object 'buffer)) (setq cursor-type nil) (setq truncate-lines t) (buffer-disable-undo (slot-value object 'buffer)) (make-local-variable 'cell-current-sheet) (setq buffer-read-only t) (cell-mode-insinuate) (cell-sheet-after-open-hook sheet^) (let* ((v (slot-value object 'buffer))) (\(setf\ set-buffer-modified-p\) nil v))) sheet^)
  (let* ((object cell-current-sheet)) (progn (let* ((v object)) (eieio-oset v 'buffer new-buffer)) (let* ((v object)) (eieio-oset v 'grid (or (slot-value object 'grid) (cell-make-grid rows cols)))) (let* ((v object)) (eieio-oset v 'column-stops (make-vector (+ cols 1) 0))) (let* ((v object)) (eieio-oset v 'cursor '(0 0))) (let* ((v object)) (eieio-oset v 'borders-p t)) (let* ((v object)) (eieio-oset v 'headers-p t)) (save-current-buffer (set-buffer (slot-value object 'buffer)) (setq cursor-type nil) (setq truncate-lines t) (buffer-disable-undo (slot-value object 'buffer)) (make-local-variable 'cell-current-sheet) (setq buffer-read-only t) (cell-mode-insinuate) (cell-sheet-after-open-hook sheet^) (let* ((v (slot-value object 'buffer))) (\(setf\ set-buffer-modified-p\) nil v))) sheet^))
  (let* ((new-buffer (current-buffer)) (inhibit-read-only t) (rows (or (slot-value sheet^ 'rows) 24)) (cols (or (slot-value sheet^ 'cols) 16))) (let* ((object cell-current-sheet)) (progn (let* ((v object)) (eieio-oset v 'buffer new-buffer)) (let* ((v object)) (eieio-oset v 'grid (or (slot-value object 'grid) (cell-make-grid rows cols)))) (let* ((v object)) (eieio-oset v 'column-stops (make-vector (+ cols 1) 0))) (let* ((v object)) (eieio-oset v 'cursor '(0 0))) (let* ((v object)) (eieio-oset v 'borders-p t)) (let* ((v object)) (eieio-oset v 'headers-p t)) (save-current-buffer (set-buffer (slot-value object 'buffer)) (setq cursor-type nil) (setq truncate-lines t) (buffer-disable-undo (slot-value object 'buffer)) (make-local-variable 'cell-current-sheet) (setq buffer-read-only t) (cell-mode-insinuate) (cell-sheet-after-open-hook sheet^) (let* ((v (slot-value object ...))) (\(setf\ set-buffer-modified-p\) nil v))) sheet^)))
  (progn (setq cell-current-sheet sheet^) (if (not (slot-boundp sheet^ 'rendering)) (progn (let* ((v sheet^)) (eieio-oset v 'rendering nil)))) (if (not (slot-boundp sheet^ 'buffer)) (progn (let* ((v sheet^)) (eieio-oset v 'buffer (current-buffer))))) (if (not (slot-boundp sheet^ 'cursor)) (progn (let* ((v sheet^)) (eieio-oset v 'cursor '(0 0))))) (if (not (slot-boundp sheet^ 'selection)) (progn (let* ((v sheet^)) (eieio-oset v 'selection nil)))) (let* ((new-buffer (current-buffer)) (inhibit-read-only t) (rows (or (slot-value sheet^ 'rows) 24)) (cols (or (slot-value sheet^ 'cols) 16))) (let* ((object cell-current-sheet)) (progn (let* ((v object)) (eieio-oset v 'buffer new-buffer)) (let* ((v object)) (eieio-oset v 'grid (or (slot-value object ...) (cell-make-grid rows cols)))) (let* ((v object)) (eieio-oset v 'column-stops (make-vector (+ cols 1) 0))) (let* ((v object)) (eieio-oset v 'cursor '(0 0))) (let* ((v object)) (eieio-oset v 'borders-p t)) (let* ((v object)) (eieio-oset v 'headers-p t)) (save-current-buffer (set-buffer (slot-value object 'buffer)) (setq cursor-type nil) (setq truncate-lines t) (buffer-disable-undo (slot-value object 'buffer)) (make-local-variable 'cell-current-sheet) (setq buffer-read-only t) (cell-mode-insinuate) (cell-sheet-after-open-hook sheet^) (let* ((v ...)) (\(setf\ set-buffer-modified-p\) nil v))) sheet^))))
  (progn (progn (setq cell-current-sheet sheet^) (if (not (slot-boundp sheet^ 'rendering)) (progn (let* ((v sheet^)) (eieio-oset v 'rendering nil)))) (if (not (slot-boundp sheet^ 'buffer)) (progn (let* ((v sheet^)) (eieio-oset v 'buffer (current-buffer))))) (if (not (slot-boundp sheet^ 'cursor)) (progn (let* ((v sheet^)) (eieio-oset v 'cursor '(0 0))))) (if (not (slot-boundp sheet^ 'selection)) (progn (let* ((v sheet^)) (eieio-oset v 'selection nil)))) (let* ((new-buffer (current-buffer)) (inhibit-read-only t) (rows (or (slot-value sheet^ 'rows) 24)) (cols (or (slot-value sheet^ 'cols) 16))) (let* ((object cell-current-sheet)) (progn (let* ((v object)) (eieio-oset v 'buffer new-buffer)) (let* ((v object)) (eieio-oset v 'grid (or ... ...))) (let* ((v object)) (eieio-oset v 'column-stops (make-vector ... 0))) (let* ((v object)) (eieio-oset v 'cursor '...)) (let* ((v object)) (eieio-oset v 'borders-p t)) (let* ((v object)) (eieio-oset v 'headers-p t)) (save-current-buffer (set-buffer (slot-value object ...)) (setq cursor-type nil) (setq truncate-lines t) (buffer-disable-undo (slot-value object ...)) (make-local-variable 'cell-current-sheet) (setq buffer-read-only t) (cell-mode-insinuate) (cell-sheet-after-open-hook sheet^) (let* (...) (\(setf\ set-buffer-modified-p\) nil v))) sheet^)))))
  (lambda (sheet^ &rest slots) "Initialize SHEET^ and its buffer for Cell-mode wit..." (progn (progn (setq cell-current-sheet sheet^) (if (not (slot-boundp sheet^ 'rendering)) (progn (let* (...) (eieio-oset v ... nil)))) (if (not (slot-boundp sheet^ 'buffer)) (progn (let* (...) (eieio-oset v ... ...)))) (if (not (slot-boundp sheet^ 'cursor)) (progn (let* (...) (eieio-oset v ... ...)))) (if (not (slot-boundp sheet^ 'selection)) (progn (let* (...) (eieio-oset v ... nil)))) (let* ((new-buffer (current-buffer)) (inhibit-read-only t) (rows (or ... 24)) (cols (or ... 16))) (let* ((object cell-current-sheet)) (progn (let* ... ...) (let* ... ...) (let* ... ...) (let* ... ...) (let* ... ...) (let* ... ...) (save-current-buffer ... ... ... ... ... ... ... ... ...) sheet^))))))(#<cell-sheet cell-sheet-1560f95c974e> (:name nil))
  apply((lambda (sheet^ &rest slots) "Initialize SHEET^ and its buffer for Cell-mode wit..." (progn (progn (setq cell-current-sheet sheet^) (if (not (slot-boundp sheet^ 'rendering)) (progn (let* (...) (eieio-oset v ... nil)))) (if (not (slot-boundp sheet^ 'buffer)) (progn (let* (...) (eieio-oset v ... ...)))) (if (not (slot-boundp sheet^ 'cursor)) (progn (let* (...) (eieio-oset v ... ...)))) (if (not (slot-boundp sheet^ 'selection)) (progn (let* (...) (eieio-oset v ... nil)))) (let* ((new-buffer (current-buffer)) (inhibit-read-only t) (rows (or ... 24)) (cols (or ... 16))) (let* ((object cell-current-sheet)) (progn (let* ... ...) (let* ... ...) (let* ... ...) (let* ... ...) (let* ... ...) (let* ... ...) (save-current-buffer ... ... ... ... ... ... ... ... ...) sheet^)))))) (#<cell-sheet cell-sheet-1560f95c974e> (:name nil)))
  #f(compiled-function (&rest args) #<bytecode -0x192bb23d8bc7c5a5>)(#<cell-sheet cell-sheet-1560f95c974e> (:name nil))
  apply(#f(compiled-function (&rest args) #<bytecode -0x192bb23d8bc7c5a5>) #<cell-sheet cell-sheet-1560f95c974e> (:name nil))
  initialize-instance(#<cell-sheet cell-sheet-1560f95c974e> (:name nil))
  #f(compiled-function (class &rest slots) "Default constructor for CLASS `eieio-default-superclass'.\nSLOTS are the initialization slots used by `initialize-instance'.\nThis static method is called when an object is constructed.\nIt allocates the vector used to represent an EIEIO object, and then\ncalls `initialize-instance' on that object." #<bytecode 0x287ee68a5168aba>)(cell-sheet :name nil)
  apply(#f(compiled-function (class &rest slots) "Default constructor for CLASS `eieio-default-superclass'.\nSLOTS are the initialization slots used by `initialize-instance'.\nThis static method is called when an object is constructed.\nIt allocates the vector used to represent an EIEIO object, and then\ncalls `initialize-instance' on that object." #<bytecode 0x287ee68a5168aba>) cell-sheet (:name nil))
  make-instance(cell-sheet :name nil)
  (setq cell-current-sheet (make-instance 'cell-sheet :name (buffer-file-name (current-buffer))))
  (if (= 0 (length fulltext)) (setq cell-current-sheet (make-instance 'cell-sheet :name (buffer-file-name (current-buffer)))) (setq cell-current-sheet (cell-sheet-read (car (read-from-string fulltext)))))
  (let ((fulltext (buffer-substring-no-properties (point-min) (point-max)))) (if (= 0 (length fulltext)) (setq cell-current-sheet (make-instance 'cell-sheet :name (buffer-file-name (current-buffer)))) (setq cell-current-sheet (cell-sheet-read (car (read-from-string fulltext))))) (progn (or (eieio-object-class cell-current-sheet) (cl--assertion-failed '(eieio-object-class cell-current-sheet))) nil) (message "Loaded cell sheet with class: %S" (eieio-object-class cell-current-sheet)) (setq cell-cached-buffer-positions (make-hash-table :test 'equal)) (setq cell-cached-buffer-positions* (make-hash-table :test 'equal)) (delete-region (point-min) (point-max)) (add-hook 'before-save-hook 'cell-remove-rendering) (add-hook 'after-save-hook 'cell-sheet-update*) (cell-mode-insinuate) (cell-sheet-update) (cell-sheet-after-open-hook cell-current-sheet) (set (make-local-variable 'show-trailing-whitespace) nil) (let* ((v (current-buffer))) (\(setf\ set-buffer-modified-p\) nil v)))
  (let ((inhibit-read-only t)) (make-local-variable 'cell-sheet) (make-local-variable 'tool-bar-map) (setq tool-bar-map (cell-enable-tool-bar-map)) (let ((fulltext (buffer-substring-no-properties (point-min) (point-max)))) (if (= 0 (length fulltext)) (setq cell-current-sheet (make-instance 'cell-sheet :name (buffer-file-name (current-buffer)))) (setq cell-current-sheet (cell-sheet-read (car (read-from-string fulltext))))) (progn (or (eieio-object-class cell-current-sheet) (cl--assertion-failed '(eieio-object-class cell-current-sheet))) nil) (message "Loaded cell sheet with class: %S" (eieio-object-class cell-current-sheet)) (setq cell-cached-buffer-positions (make-hash-table :test 'equal)) (setq cell-cached-buffer-positions* (make-hash-table :test 'equal)) (delete-region (point-min) (point-max)) (add-hook 'before-save-hook 'cell-remove-rendering) (add-hook 'after-save-hook 'cell-sheet-update*) (cell-mode-insinuate) (cell-sheet-update) (cell-sheet-after-open-hook cell-current-sheet) (set (make-local-variable 'show-trailing-whitespace) nil) (let* ((v (current-buffer))) (\(setf\ set-buffer-modified-p\) nil v))))
  (let ((delay-mode-hooks t)) (kill-all-local-variables) (setq major-mode 'cell-mode) (setq mode-name "Cell") nil (use-local-map cell-mode-map) (set-syntax-table cell-mode-syntax-table) (setq local-abbrev-table cell-mode-abbrev-table) (let ((inhibit-read-only t)) (make-local-variable 'cell-sheet) (make-local-variable 'tool-bar-map) (setq tool-bar-map (cell-enable-tool-bar-map)) (let ((fulltext (buffer-substring-no-properties (point-min) (point-max)))) (if (= 0 (length fulltext)) (setq cell-current-sheet (make-instance 'cell-sheet :name (buffer-file-name (current-buffer)))) (setq cell-current-sheet (cell-sheet-read (car (read-from-string fulltext))))) (progn (or (eieio-object-class cell-current-sheet) (cl--assertion-failed '(eieio-object-class cell-current-sheet))) nil) (message "Loaded cell sheet with class: %S" (eieio-object-class cell-current-sheet)) (setq cell-cached-buffer-positions (make-hash-table :test 'equal)) (setq cell-cached-buffer-positions* (make-hash-table :test 'equal)) (delete-region (point-min) (point-max)) (add-hook 'before-save-hook 'cell-remove-rendering) (add-hook 'after-save-hook 'cell-sheet-update*) (cell-mode-insinuate) (cell-sheet-update) (cell-sheet-after-open-hook cell-current-sheet) (set (make-local-variable 'show-trailing-whitespace) nil) (let* ((v (current-buffer))) (\(setf\ set-buffer-modified-p\) nil v)))))
  (progn (make-local-variable 'delay-mode-hooks) (let ((delay-mode-hooks t)) (kill-all-local-variables) (setq major-mode 'cell-mode) (setq mode-name "Cell") nil (use-local-map cell-mode-map) (set-syntax-table cell-mode-syntax-table) (setq local-abbrev-table cell-mode-abbrev-table) (let ((inhibit-read-only t)) (make-local-variable 'cell-sheet) (make-local-variable 'tool-bar-map) (setq tool-bar-map (cell-enable-tool-bar-map)) (let ((fulltext (buffer-substring-no-properties (point-min) (point-max)))) (if (= 0 (length fulltext)) (setq cell-current-sheet (make-instance 'cell-sheet :name (buffer-file-name ...))) (setq cell-current-sheet (cell-sheet-read (car ...)))) (progn (or (eieio-object-class cell-current-sheet) (cl--assertion-failed '...)) nil) (message "Loaded cell sheet with class: %S" (eieio-object-class cell-current-sheet)) (setq cell-cached-buffer-positions (make-hash-table :test 'equal)) (setq cell-cached-buffer-positions* (make-hash-table :test 'equal)) (delete-region (point-min) (point-max)) (add-hook 'before-save-hook 'cell-remove-rendering) (add-hook 'after-save-hook 'cell-sheet-update*) (cell-mode-insinuate) (cell-sheet-update) (cell-sheet-after-open-hook cell-current-sheet) (set (make-local-variable 'show-trailing-whitespace) nil) (let* ((v (current-buffer))) (\(setf\ set-buffer-modified-p\) nil v))))))
  cell-mode()
  (let ((buffer (generate-new-buffer "*cell sheet*"))) (switch-to-buffer buffer) (cell-mode) (setq cell-current-sheet (make-instance class :rows rs :cols cs)) (cell-sheet-update))
  (let ((rs (car (read-from-string r))) (cs (car (read-from-string c)))) (let ((buffer (generate-new-buffer "*cell sheet*"))) (switch-to-buffer buffer) (cell-mode) (setq cell-current-sheet (make-instance class :rows rs :cols cs)) (cell-sheet-update)))
  (let ((r (or r0 (read-from-minibuffer "Create cell-sheet with how many rows? " "24"))) (c (or c0 (read-from-minibuffer "...with how many columns? " "40")))) (let ((rs (car (read-from-string r))) (cs (car (read-from-string c)))) (let ((buffer (generate-new-buffer "*cell sheet*"))) (switch-to-buffer buffer) (cell-mode) (setq cell-current-sheet (make-instance class :rows rs :cols cs)) (cell-sheet-update))))
  (progn (if --cl-rest-- (signal 'wrong-number-of-arguments (list 'cell-sheet-create (+ 3 (length --cl-rest--))))) (let ((r (or r0 (read-from-minibuffer "Create cell-sheet with how many rows? " "24"))) (c (or c0 (read-from-minibuffer "...with how many columns? " "40")))) (let ((rs (car (read-from-string r))) (cs (car (read-from-string c)))) (let ((buffer (generate-new-buffer "*cell sheet*"))) (switch-to-buffer buffer) (cell-mode) (setq cell-current-sheet (make-instance class :rows rs :cols cs)) (cell-sheet-update)))))
  (let* ((class (if --cl-rest-- (car-safe (prog1 --cl-rest-- (setq --cl-rest-- (cdr --cl-rest--)))) 'cell-sheet))) (progn (if --cl-rest-- (signal 'wrong-number-of-arguments (list 'cell-sheet-create (+ 3 (length --cl-rest--))))) (let ((r (or r0 (read-from-minibuffer "Create cell-sheet with how many rows? " "24"))) (c (or c0 (read-from-minibuffer "...with how many columns? " "40")))) (let ((rs (car (read-from-string r))) (cs (car (read-from-string c)))) (let ((buffer (generate-new-buffer "*cell sheet*"))) (switch-to-buffer buffer) (cell-mode) (setq cell-current-sheet (make-instance class :rows rs :cols cs)) (cell-sheet-update))))))
  cell-sheet-create()
  funcall-interactively(cell-sheet-create)
  command-execute(cell-sheet-create record)
  counsel-M-x-action("cell-sheet-create")
  ivy-call()
  ivy-read("M-x " ("describe-package" "cd" "to" "u0" "wl" "5x5" "amx" "arp" "brg" "brm" "brw" "dbx" "dig" "dtk" "eek" "erc" "ert" "eww" "ftp" "fzf" "gdb" "gst" "irc" "jdb" "kla" "klf" "kli" "klt" "lsp" "man" "mpc" "ore" "osm" "pdb" "pwd" "rsh" "sdb" "sly" "w3m" "wos" "xdb" "brep" "brew" "brff" "brfl" "brgd" "brgl" "brmd" "brml" "brwd" ...) :predicate counsel--M-x-externs-predicate :require-match t :history counsel-M-x-history :action counsel-M-x-action :keymap (keymap (67108908 . counsel--info-lookup-symbol) (67108910 . counsel-find-symbol)) :initial-input nil :caller counsel-M-x)
  counsel-M-x()
  funcall-interactively(counsel-M-x)
  command-execute(counsel-M-x)

Minimal configuration

  • I agree using a minimal configuration
OrionRandD commented

In fact, my Emacs version is:
GNU Emacs 29.3 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.41, cairo version 1.18.0) of 2024-04-20, modified by Debian

zw963 commented

There is no function named cell-sheet-create on my emacs 30 latest master, so, probably come from one external package?

thierryvolpiatto commented
OrionRandD commented

Thx. I've found the error...
The culprit was a package called cell-mode