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 |