From 074633638d5f65e3cbf8fa5ee3856113b105286a Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Sun, 17 Jun 2012 12:43:50 +0200 Subject: [PATCH] In special-display-p signal an error if BUFFER-NAME is not a string (Bug#11713). * window.el (special-display-p): Signal an error if BUFFER-NAME is not a string (Bug#11713). --- lisp/ChangeLog | 5 +++++ lisp/window.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c9fe44089c9..63b02cfe017 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-06-17 Martin Rudalics + + * window.el (special-display-p): Signal an error if BUFFER-NAME + is not a string (Bug#11713). + 2012-06-17 Paul Eggert * progmodes/python.el (python-info-beginning-of-backslash): diff --git a/lisp/window.el b/lisp/window.el index d9dd7b63e27..62cd226daec 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -4192,7 +4192,8 @@ or matches BUFFER-NAME, the return value is the cdr of that entry." (let (tmp) (cond - ((not (stringp buffer-name))) + ((not (stringp buffer-name)) + (error "Invalid buffer name %s" buffer-name)) ((member buffer-name special-display-buffer-names) t) ((setq tmp (assoc buffer-name special-display-buffer-names)) -- 2.39.5