From 51de35c9d89f29747be72332af313eeb48474c5c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Vincent=20Bela=C3=AFche?= <vincentb1@users.sourceforge.net>
Date: Fri, 13 Mar 2026 16:09:31 +0100
Subject: [PATCH] Fix after entry hooking.

* lisp/ses.el (ses-edit-cell): Run ses-after-entry-functions
when called interactively.
Fix after entry hooking.
* lisp/ses.el (ses-edit-cell): Run ses-after-entry-functions
when called interactively.
---
 lisp/ses.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lisp/ses.el b/lisp/ses.el
index 1b99cc500d0..8b1766ccd88 100644
--- a/lisp/ses.el
+++ b/lisp/ses.el
@@ -2570,7 +2570,12 @@ Return nil if cell formula was unsafe and user declined confirmation."
   (when (ses-warn-unsafe newval 'unsafep)
     (ses-begin-change)
     (ses-cell-set-formula row col newval)
-    t))
+    (if (called-interactively-p)
+        (let ((ses--row row)
+              (ses--col col))
+          (run-hook-with-args 'ses-after-entry-functions 1))
+      t)
+    ))
 
 (defun ses-read-cell (row col newval)
   "Self-insert for initial character of cell function."