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

[Kim F . Storm]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.688 emacs/lisp/simple.el:1.689
*** emacs/lisp/simple.el:1.688  Sun Jan 30 00:32:39 2005
--- emacs/lisp/simple.el        Wed Feb  9 15:50:41 2005
***************
*** 71,83 ****
  (defgroup next-error nil
    "next-error support framework."
    :group 'compilation
!   :version "21.4")
  
  (defface next-error
    '((t (:inherit region)))
    "Face used to highlight next error locus."
    :group 'next-error
!   :version "21.4")
  
  (defcustom next-error-highlight 0.1
    "*Highlighting of locations in selected source buffers.
--- 71,83 ----
  (defgroup next-error nil
    "next-error support framework."
    :group 'compilation
!   :version "22.1")
  
  (defface next-error
    '((t (:inherit region)))
    "Face used to highlight next error locus."
    :group 'next-error
!   :version "22.1")
  
  (defcustom next-error-highlight 0.1
    "*Highlighting of locations in selected source buffers.
***************
*** 90,96 ****
                   (const :tag "No highlighting" nil)
                   (const :tag "Fringe arrow" 'fringe-arrow))
    :group 'next-error
!   :version "21.4")
  
  (defcustom next-error-highlight-no-select 0.1
    "*Highlighting of locations in non-selected source buffers.
--- 90,96 ----
                   (const :tag "No highlighting" nil)
                   (const :tag "Fringe arrow" 'fringe-arrow))
    :group 'next-error
!   :version "22.1")
  
  (defcustom next-error-highlight-no-select 0.1
    "*Highlighting of locations in non-selected source buffers.
***************
*** 103,109 ****
                   (const :tag "No highlighting" nil)
                   (const :tag "Fringe arrow" 'fringe-arrow))
    :group 'next-error
!   :version "21.4")
  
  (defvar next-error-last-buffer nil
    "The most recent next-error buffer.
--- 103,109 ----
                   (const :tag "No highlighting" nil)
                   (const :tag "Fringe arrow" 'fringe-arrow))
    :group 'next-error
!   :version "22.1")
  
  (defvar next-error-last-buffer nil
    "The most recent next-error buffer.
***************
*** 1540,1546 ****
  excessively long before answering the question."
    :type 'boolean
    :group 'undo
!   :version "21.4")
  
  (defvar undo-extra-outer-limit nil
    "If non-nil, an extra level of size that's ok in an undo item.
--- 1540,1546 ----
  excessively long before answering the question."
    :type 'boolean
    :group 'undo
!   :version "22.1")
  
  (defvar undo-extra-outer-limit nil
    "If non-nil, an extra level of size that's ok in an undo item.
***************
*** 2461,2467 ****
  which means to discard all text properties."
    :type '(choice (const :tag "All" t) (repeat symbol))
    :group 'killing
!   :version "21.4")
  
  (defvar yank-window-start nil)
  (defvar yank-undo-function nil
--- 2461,2467 ----
  which means to discard all text properties."
    :type '(choice (const :tag "All" t) (repeat symbol))
    :group 'killing
!   :version "22.1")
  
  (defvar yank-window-start nil)
  (defvar yank-undo-function nil
***************
*** 5094,5100 ****
  wait this many seconds after Emacs becomes idle before doing an update."
    :type 'number
    :group 'display
!   :version "21.4")
  
  (defvar vis-mode-saved-buffer-invisibility-spec nil
    "Saved value of `buffer-invisibility-spec' when Visible mode is on.")
--- 5094,5100 ----
  wait this many seconds after Emacs becomes idle before doing an update."
    :type 'number
    :group 'display
!   :version "22.1")
  
  (defvar vis-mode-saved-buffer-invisibility-spec nil
    "Saved value of `buffer-invisibility-spec' when Visible mode is on.")