diff options
| author | Stefan Monnier | 2005-01-28 18:42:30 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2005-01-28 18:42:30 +0000 |
| commit | f7105ede2ef431b621e556c7d09ab9beb957467f (patch) | |
| tree | 5562a76cb9ceeaf920aad283c5d2abfecca62fe9 | |
| parent | 2a4960f909c831e16dc4e85fec39652f9a601bed (diff) | |
| download | emacs-f7105ede2ef431b621e556c7d09ab9beb957467f.tar.gz emacs-f7105ede2ef431b621e556c7d09ab9beb957467f.zip | |
(customize-group-other-window, custom-buffer-create-other-window):
Don't override special-display-*.
| -rw-r--r-- | lisp/cus-edit.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 8a60163181a..89206c77e76 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | ;;; cus-edit.el --- tools for customizing Emacs and Lisp packages | 1 | ;;; cus-edit.el --- tools for customizing Emacs and Lisp packages |
| 2 | ;; | 2 | ;; |
| 3 | ;; Copyright (C) 1996,97,1999,2000,01,02,03,2004 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1996, 1997, 1999, 2000, 2001, 2002, 2003, 2004, 2005 |
| 4 | ;; Free Software Foundation, Inc. | ||
| 4 | ;; | 5 | ;; |
| 5 | ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> | 6 | ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> |
| 6 | ;; Maintainer: FSF | 7 | ;; Maintainer: FSF |
| @@ -898,8 +899,6 @@ then prompt for the MODE to customize." | |||
| 898 | (let ( | 899 | (let ( |
| 899 | ;; Copied from `custom-buffer-create-other-window'. | 900 | ;; Copied from `custom-buffer-create-other-window'. |
| 900 | (pop-up-windows t) | 901 | (pop-up-windows t) |
| 901 | (special-display-buffer-names nil) | ||
| 902 | (special-display-regexps nil) | ||
| 903 | (same-window-buffer-names nil) | 902 | (same-window-buffer-names nil) |
| 904 | (same-window-regexps nil)) | 903 | (same-window-regexps nil)) |
| 905 | (pop-to-buffer name)) | 904 | (pop-to-buffer name)) |
| @@ -1246,8 +1245,6 @@ SYMBOL is a customization option, and WIDGET is a widget for editing | |||
| 1246 | that option." | 1245 | that option." |
| 1247 | (unless name (setq name "*Customization*")) | 1246 | (unless name (setq name "*Customization*")) |
| 1248 | (let ((pop-up-windows t) | 1247 | (let ((pop-up-windows t) |
| 1249 | (special-display-buffer-names nil) | ||
| 1250 | (special-display-regexps nil) | ||
| 1251 | (same-window-buffer-names nil) | 1248 | (same-window-buffer-names nil) |
| 1252 | (same-window-regexps nil)) | 1249 | (same-window-regexps nil)) |
| 1253 | (pop-to-buffer (custom-get-fresh-buffer name)) | 1250 | (pop-to-buffer (custom-get-fresh-buffer name)) |
| @@ -4187,5 +4184,5 @@ if that value is non-nil." | |||
| 4187 | 4184 | ||
| 4188 | (provide 'cus-edit) | 4185 | (provide 'cus-edit) |
| 4189 | 4186 | ||
| 4190 | ;;; arch-tag: 64533aa4-1b1a-48c3-8812-f9dc718e8a6f | 4187 | ;; arch-tag: 64533aa4-1b1a-48c3-8812-f9dc718e8a6f |
| 4191 | ;;; cus-edit.el ends here | 4188 | ;;; cus-edit.el ends here |