Mercurial > emacs
comparison lisp/simple.el @ 2301:1380ea427dee
(line-number-mode): New function and variable.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 21 Mar 1993 08:22:37 +0000 |
parents | 53abb56a18fa |
children | 9e7ec92a4fdf |
comparison
equal
deleted
inserted
replaced
2300:dfef2f43f4bf | 2301:1380ea427dee |
---|---|
1 ;;; simple.el --- basic editing commands for Emacs | 1 ;;; simple.el --- basic editing commands for Emacs |
2 | 2 |
3 ;; Copyright (C) 1985, 1986, 1987, 1992, 1993 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1985, 1986, 1987, 1993 Free Software Foundation, Inc. |
4 | 4 |
5 ;; This file is part of GNU Emacs. | 5 ;; This file is part of GNU Emacs. |
6 | 6 |
7 ;; GNU Emacs is free software; you can redistribute it and/or modify | 7 ;; GNU Emacs is free software; you can redistribute it and/or modify |
8 ;; it under the terms of the GNU General Public License as published by | 8 ;; it under the terms of the GNU General Public License as published by |
1863 specialization of overwrite-mode, entered by setting the | 1863 specialization of overwrite-mode, entered by setting the |
1864 `overwrite-mode' variable to `overwrite-mode-binary'." | 1864 `overwrite-mode' variable to `overwrite-mode-binary'." |
1865 (interactive "P") | 1865 (interactive "P") |
1866 (setq overwrite-mode | 1866 (setq overwrite-mode |
1867 (if (if (null arg) | 1867 (if (if (null arg) |
1868 (not (eq (overwrite-mode 'overwrite-mode-binary))) | 1868 (not (eq overwrite-mode 'overwrite-mode-binary)) |
1869 (> (prefix-numeric-value arg) 0)) | 1869 (> (prefix-numeric-value arg) 0)) |
1870 'overwrite-mode-binary)) | 1870 'overwrite-mode-binary)) |
1871 (force-mode-line-update)) | 1871 (force-mode-line-update)) |
1872 | 1872 |
1873 (defvar line-number-mode nil | |
1874 "*Non-nil means display line number in mode line.") | |
1875 | |
1876 (defun line-number-mode (arg) | |
1877 "Toggle Line Number mode. | |
1878 With arg, turn Line Number mode on iff arg is positive. | |
1879 When Line Number mode is enabled, the line number appears | |
1880 in the mode line." | |
1881 (interactive "P") | |
1882 (setq line-number-mode | |
1883 (if (null arg) (not line-number-mode) | |
1884 (> (prefix-numeric-value arg) 0))) | |
1885 (force-mode-line-update)) | |
1886 | |
1873 (defvar blink-matching-paren t | 1887 (defvar blink-matching-paren t |
1874 "*Non-nil means show matching open-paren when close-paren is inserted.") | 1888 "*Non-nil means show matching open-paren when close-paren is inserted.") |
1875 | 1889 |
1876 (defconst blink-matching-paren-distance 4000 | 1890 (defconst blink-matching-paren-distance 4000 |
1877 "*If non-nil, is maximum distance to search for matching open-paren | 1891 "*If non-nil, is maximum distance to search for matching open-paren |