aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2005-01-28 18:42:30 +0000
committerStefan Monnier2005-01-28 18:42:30 +0000
commitf7105ede2ef431b621e556c7d09ab9beb957467f (patch)
tree5562a76cb9ceeaf920aad283c5d2abfecca62fe9
parent2a4960f909c831e16dc4e85fec39652f9a601bed (diff)
downloademacs-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.el9
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
1246that option." 1245that 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