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

[Markus Rost]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.568 emacs/lisp/simple.el:1.569
*** emacs/lisp/simple.el:1.568  Mon Sep  9 21:23:57 2002
--- emacs/lisp/simple.el        Mon Sep  9 21:32:32 2002
***************
*** 2484,2490 ****
        (goto-char omark)
        nil)))
  
! (define-minor-mode transient-mark-mode
    "Toggle Transient Mark mode.
  With arg, turn Transient Mark mode on if arg is positive, off otherwise.
  
--- 2484,2490 ----
        (goto-char omark)
        nil)))
  
! (defun transient-mark-mode (arg)
    "Toggle Transient Mark mode.
  With arg, turn Transient Mark mode on if arg is positive, off otherwise.
  
***************
*** 2505,2511 ****
  \\[apropos-documentation] and type \"transient\" or \"mark.*active\" at
  the prompt, to see the documentation of commands which are sensitive to
  the Transient Mark mode."
!   :global t :group 'editing-basics)
  
  (defun pop-global-mark ()
    "Pop off global mark ring and jump to the top location."
--- 2505,2519 ----
  \\[apropos-documentation] and type \"transient\" or \"mark.*active\" at
  the prompt, to see the documentation of commands which are sensitive to
  the Transient Mark mode."
!   (interactive "P")
!   (setq transient-mark-mode
!       (if (null arg)
!           (not transient-mark-mode)
!         (> (prefix-numeric-value arg) 0)))
!   (if (interactive-p)
!       (if transient-mark-mode
!         (message "Transient Mark mode enabled")
!       (message "Transient Mark mode disabled"))))
  
  (defun pop-global-mark ()
    "Pop off global mark ring and jump to the top location."
***************
*** 3276,3282 ****
            'overwrite-mode-binary))
    (force-mode-line-update))
  
! (define-minor-mode line-number-mode
    "Toggle Line Number mode.
  With arg, turn Line Number mode on iff arg is positive.
  When Line Number mode is enabled, the line number appears
--- 3284,3295 ----
            'overwrite-mode-binary))
    (force-mode-line-update))
  
! (defcustom line-number-mode t
!   "*Non-nil means display line number in mode line."
!   :type 'boolean
!   :group 'editing-basics)
! 
! (defun line-number-mode (arg)
    "Toggle Line Number mode.
  With arg, turn Line Number mode on iff arg is positive.
  When Line Number mode is enabled, the line number appears
***************
*** 3285,3298 ****
  Line numbers do not appear for very large buffers and buffers
  with very long lines; see variables `line-number-display-limit'
  and `line-number-display-limit-width'."
!   :init-value t :global t :group 'editing-basics)
  
! (define-minor-mode column-number-mode
    "Toggle Column Number mode.
  With arg, turn Column Number mode on iff arg is positive.
  When Column Number mode is enabled, the column number appears
  in the mode line."
!   :global t :group 'editing-basics)
  
  (defgroup paren-blinking nil
    "Blinking matching of parens and expressions."
--- 3298,3324 ----
  Line numbers do not appear for very large buffers and buffers
  with very long lines; see variables `line-number-display-limit'
  and `line-number-display-limit-width'."
!   (interactive "P")
!   (setq line-number-mode
!       (if (null arg) (not line-number-mode)
!         (> (prefix-numeric-value arg) 0)))
!   (force-mode-line-update))
! 
! (defcustom column-number-mode nil
!   "*Non-nil means display column number in mode line."
!   :type 'boolean
!   :group 'editing-basics)
  
! (defun column-number-mode (arg)
    "Toggle Column Number mode.
  With arg, turn Column Number mode on iff arg is positive.
  When Column Number mode is enabled, the column number appears
  in the mode line."
!   (interactive "P")
!   (setq column-number-mode
!       (if (null arg) (not column-number-mode)
!         (> (prefix-numeric-value arg) 0)))
!   (force-mode-line-update))
  
  (defgroup paren-blinking nil
    "Blinking matching of parens and expressions."