[Emacs-diffs] Changes to emacs/lisp/cus-start.el

[Miles Bader]

Index: emacs/lisp/cus-start.el
diff -c emacs/lisp/cus-start.el:1.54 emacs/lisp/cus-start.el:1.55
*** emacs/lisp/cus-start.el:1.54        Mon Dec 23 12:52:56 2002
--- emacs/lisp/cus-start.el     Tue Feb  4 06:04:47 2003
***************
*** 34,40 ****
  
  ;;; Code:
  
! (let ((all '(;; abbrev.c 
             (abbrev-all-caps abbrev-mode boolean)
             (pre-abbrev-expand-hook abbrev-mode hook)
             ;; alloc.c
--- 34,40 ----
  
  ;;; Code:
  
! (let ((all '(;; abbrev.c
             (abbrev-all-caps abbrev-mode boolean)
             (pre-abbrev-expand-hook abbrev-mode hook)
             ;; alloc.c
***************
*** 88,94 ****
                            (function :value ignore))))
             (selection-coding-system mule coding-system)
             ;; dired.c
!            (completion-ignored-extensions dired 
                                            (repeat (string :format "%v")))
             ;; dispnew.c
             (baud-rate display integer)
--- 88,94 ----
                            (function :value ignore))))
             (selection-coding-system mule coding-system)
             ;; dired.c
!            (completion-ignored-extensions dired
                                            (repeat (string :format "%v")))
             ;; dispnew.c
             (baud-rate display integer)
***************
*** 106,112 ****
                                                   :value (nil)
                                                   (symbol :format "%v"))
                                           (const :tag "always" t)))
!            (debug-on-error debug 
                             (choice (const :tag "off")
                                     (repeat :menu-tag "When"
                                             :value (nil)
--- 106,112 ----
                                                   :value (nil)
                                                   (symbol :format "%v"))
                                           (const :tag "always" t)))
!            (debug-on-error debug
                             (choice (const :tag "off")
                                     (repeat :menu-tag "When"
                                             :value (nil)
***************
*** 155,161 ****
  ;; version-specific directories when you upgrade.  We need
  ;; customization of the front of the list, maintaining the standard
  ;; value intact at the back.
! ;;;        (load-path environment 
  ;;;                   (repeat (choice :tag "[Current dir?]"
  ;;;                                   :format "%[Current dir?%] %v"
  ;;;                                   (const :tag " current dir" nil)
--- 155,161 ----
  ;; version-specific directories when you upgrade.  We need
  ;; customization of the front of the list, maintaining the standard
  ;; value intact at the back.
! ;;;        (load-path environment
  ;;;                   (repeat (choice :tag "[Current dir?]"
  ;;;                                   :format "%[Current dir?%] %v"
  ;;;                                   (const :tag " current dir" nil)
***************
*** 205,212 ****
             (display-buffer-function windows (choice (const nil) function))
             (pop-up-frames frames boolean)
             (pop-up-frame-function frames function)
!            (special-display-buffer-names 
!             frames 
              (repeat (choice :tag "Buffer"
                              :value ""
                              (string :format "%v")
--- 205,212 ----
             (display-buffer-function windows (choice (const nil) function))
             (pop-up-frames frames boolean)
             (pop-up-frame-function frames function)
!            (special-display-buffer-names
!             frames
              (repeat (choice :tag "Buffer"
                              :value ""
                              (string :format "%v")
***************
*** 219,225 ****
                                                  (symbol :tag "Parameter")
                                                  (sexp :tag "Value")))))))
             (special-display-regexps
!             frames 
              (repeat (choice :tag "Buffer"
                              :value ""
                              (regexp :format "%v")
--- 219,225 ----
                                                  (symbol :tag "Parameter")
                                                  (sexp :tag "Value")))))))
             (special-display-regexps
!             frames
              (repeat (choice :tag "Buffer"
                              :value ""
                              (regexp :format "%v")
***************
*** 283,289 ****
                        (numberp sexp))
                    sexp
                  (list 'quote sexp)))))
!   (while all 
      (setq this (car all)
          all (cdr all)
          symbol (nth 0 this)
--- 283,289 ----
                        (numberp sexp))
                    sexp
                  (list 'quote sexp)))))
!   (while all
      (setq this (car all)
          all (cdr all)
          symbol (nth 0 this)
***************
*** 307,313 ****
             (message "Note, built-in variable `%S' not bound" symbol))
        ;; Save the standard value, unless we already did.
        (or (get symbol 'standard-value)
!         (put symbol 'standard-value 
               (list (funcall quoter (default-value symbol)))))
        ;; If this is NOT while dumping Emacs,
        ;; set up the rest of the customization info.
--- 307,313 ----
             (message "Note, built-in variable `%S' not bound" symbol))
        ;; Save the standard value, unless we already did.
        (or (get symbol 'standard-value)
!         (put symbol 'standard-value
               (list (funcall quoter (default-value symbol)))))
        ;; If this is NOT while dumping Emacs,
        ;; set up the rest of the customization info.