comparison lisp/cus-edit.el @ 59759:c8a0d09474af

(customize-group-other-window, custom-buffer-create-other-window): Don't override special-display-*.

59758:b8352a1f354a

;;; cus-edit.el --- tools for customizing Emacs and Lisp packages
;;
;; Copyright (C) 1996,97,1999,2000,01,02,03,2004  Free Software Foundation, Inc.
;;
;; Author: Per Abrahamsen <[e-mail]>
;; Maintainer: FSF
;; Keywords: help, faces

		      (custom-unlispify-tag-name group))))
    (if (get-buffer name)
	(let (
	      ;; Copied from `custom-buffer-create-other-window'.
	      (pop-up-windows t)
	      (special-display-buffer-names nil)
	      (special-display-regexps nil)
	      (same-window-buffer-names nil)
	      (same-window-regexps nil))
	  (pop-to-buffer name))
      (custom-buffer-create-other-window
       (list (list group 'custom-group))

OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where
SYMBOL is a customization option, and WIDGET is a widget for editing
that option."
  (unless name (setq name "*Customization*"))
  (let ((pop-up-windows t)
	(special-display-buffer-names nil)
	(special-display-regexps nil)
	(same-window-buffer-names nil)
	(same-window-regexps nil))
    (pop-to-buffer (custom-get-fresh-buffer name))
    (custom-buffer-create-internal options description)))

;;; The End.

(provide 'cus-edit)

;;; arch-tag: 64533aa4-1b1a-48c3-8812-f9dc718e8a6f
;;; cus-edit.el ends here

59759:c8a0d09474af

;;; cus-edit.el --- tools for customizing Emacs and Lisp packages
;;
;; Copyright (C) 1996, 1997, 1999, 2000, 2001, 2002, 2003, 2004, 2005
;;           Free Software Foundation, Inc.
;;
;; Author: Per Abrahamsen <[e-mail]>
;; Maintainer: FSF
;; Keywords: help, faces

		      (custom-unlispify-tag-name group))))
    (if (get-buffer name)
	(let (
	      ;; Copied from `custom-buffer-create-other-window'.
	      (pop-up-windows t)
	      (same-window-buffer-names nil)
	      (same-window-regexps nil))
	  (pop-to-buffer name))
      (custom-buffer-create-other-window
       (list (list group 'custom-group))

OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where
SYMBOL is a customization option, and WIDGET is a widget for editing
that option."
  (unless name (setq name "*Customization*"))
  (let ((pop-up-windows t)
	(same-window-buffer-names nil)
	(same-window-regexps nil))
    (pop-to-buffer (custom-get-fresh-buffer name))
    (custom-buffer-create-internal options description)))

;;; The End.

(provide 'cus-edit)

;; arch-tag: 64533aa4-1b1a-48c3-8812-f9dc718e8a6f
;;; cus-edit.el ends here