procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(line-number-mode): New function and variable.

Browse source
This commit is contained in:
Richard M. Stallman 1993-03-21 08:22:37 +00:00
parent 6bde6341fe
commit a61099dd2f
1 changed files with 16 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/simple.el
View file

@ -1,6 +1,6 @@
;;; simple.el --- basic editing commands for Emacs
;; Copyright (C) 1985, 1986, 1987, 1992, 1993 Free Software Foundation, Inc.
;; Copyright (C) 1985, 1986, 1987, 1993 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@ -1865,11 +1865,25 @@ specialization of overwrite-mode, entered by setting the
(interactive "P")
(setq overwrite-mode
(if (if (null arg)
(not (eq (overwrite-mode 'overwrite-mode-binary)))
(not (eq overwrite-mode 'overwrite-mode-binary))
(> (prefix-numeric-value arg) 0))
'overwrite-mode-binary))
(force-mode-line-update))
(defvar line-number-mode nil
"*Non-nil means display line number in mode line.")
(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
in the mode line."
(interactive "P")
(setq line-number-mode
(if (null arg) (not line-number-mode)
(> (prefix-numeric-value arg) 0)))
(force-mode-line-update))
(defvar blink-matching-paren t
"*Non-nil means show matching open-paren when close-paren is inserted.")