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

emacs-helm / helm

Emacs incremental completion and selection narrowing framework

GNU General Public License v3.0

3.36k stars 389 forks source link

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)

OrionRandD @.***> writes:

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)

According to your backtrace, the error is coming from cell-sheet-create thus you didn't launched the command from helm-M-x but from counsel-M-x! If you had launched your emacs from emacs-helm.sh as asked in template...

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 @. Author: Thierry Volpiatto @. 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))))(#) apply((lambda (sheet) "This method is invoked after the SHEET is opened." (progn (let ((v (current-buffer))) ((setf\ set-buffer-modified-p) nil v)))) # nil) cell-sheet-after-open-hook(#) (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^))))))(# (: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^)))))) (# (:name nil)))

f(compiled-function (&rest args) #<bytecode -0x192bb23d8bc7c5a5>)(# (:name nil))

apply(#f(compiled-function (&rest args) #<bytecode -0x192bb23d8bc7c5a5>) # (:name nil)) initialize-instance(# (:name nil))

f(compiled-function (class &rest slots) "Default constructor for CLASS eieio-default-superclass'.\nSLOTS are the initialization slots used byinitialize-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 byinitialize-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

— Reply to this email directly, view it on GitHub, or unsubscribe. You are receiving this because you are subscribed to this thread.

-- Thierry

emacs-helm / helm

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

What happened?

How to reproduce?

Helm Version

Emacs Version

OS

Relevant backtrace (if possible)

Minimal configuration

f(compiled-function (&rest args) #<bytecode -0x192bb23d8bc7c5a5>)(# (:name nil))