diff options
Diffstat (limited to 'lisp/term/ns-win.el')
| -rw-r--r-- | lisp/term/ns-win.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el index 399043049c1..fa3e9404bf8 100644 --- a/lisp/term/ns-win.el +++ b/lisp/term/ns-win.el @@ -888,7 +888,7 @@ unless the current buffer is a scratch buffer." (defun ns-print-buffer () "Interactive front-end to `print-buffer': asks for user confirmation first." (interactive) - (if (and (interactive-p) + (if (and (called-interactively-p 'interactive) (or (listp last-nonmenu-event) (and (char-or-string-p (event-basic-type last-command-event)) (memq 'super (event-modifiers last-command-event))))) |