diff options
| author | Martin Rudalics | 2012-06-18 08:22:22 +0200 |
|---|---|---|
| committer | Martin Rudalics | 2012-06-18 08:22:22 +0200 |
| commit | 24b0cff0ba42f6600db603cc2a4a6736fa5e7e92 (patch) | |
| tree | 673af19d970412609b677bfeab8b7455f06e7e29 | |
| parent | 298551496fd9011dc68f8a463a69820573a3abd2 (diff) | |
| download | emacs-24b0cff0ba42f6600db603cc2a4a6736fa5e7e92.tar.gz emacs-24b0cff0ba42f6600db603cc2a4a6736fa5e7e92.zip | |
Completely remove stringp check in special-display-p.
* window.el (special-display-p): Completely remove stringp
check. Suggested by Andreas Schwab <schwab@linux-m68k.org>.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/window.el | 2 |
2 files changed, 5 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fbcff3e97c0..2bd92de45e7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2012-06-18 Martin Rudalics <rudalics@gmx.at> | ||
| 2 | |||
| 3 | * window.el (special-display-p): Completely remove stringp | ||
| 4 | check. Suggested by Andreas Schwab <schwab@linux-m68k.org>. | ||
| 5 | |||
| 1 | 2012-06-17 Michael Albinus <michael.albinus@gmx.de> | 6 | 2012-06-17 Michael Albinus <michael.albinus@gmx.de> |
| 2 | 7 | ||
| 3 | * minibuffer.el (read-file-name-default): Bind `non-essential' to `t'. | 8 | * minibuffer.el (read-file-name-default): Bind `non-essential' to `t'. |
diff --git a/lisp/window.el b/lisp/window.el index 62cd226daec..6ea882d1ea2 100644 --- a/lisp/window.el +++ b/lisp/window.el | |||
| @@ -4192,8 +4192,6 @@ or matches BUFFER-NAME, the return value is the cdr of that | |||
| 4192 | entry." | 4192 | entry." |
| 4193 | (let (tmp) | 4193 | (let (tmp) |
| 4194 | (cond | 4194 | (cond |
| 4195 | ((not (stringp buffer-name)) | ||
| 4196 | (error "Invalid buffer name %s" buffer-name)) | ||
| 4197 | ((member buffer-name special-display-buffer-names) | 4195 | ((member buffer-name special-display-buffer-names) |
| 4198 | t) | 4196 | t) |
| 4199 | ((setq tmp (assoc buffer-name special-display-buffer-names)) | 4197 | ((setq tmp (assoc buffer-name special-display-buffer-names)) |