summaryrefslogtreecommitdiff
path: root/lisp/emulation
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/emulation')
-rw-r--r--lisp/emulation/edt-lk201.el9
-rw-r--r--lisp/emulation/edt-mapper.el2
-rw-r--r--lisp/emulation/edt-pc.el9
-rw-r--r--lisp/emulation/edt-vt100.el9
-rw-r--r--lisp/emulation/edt.el2
-rw-r--r--lisp/emulation/pc-select.el2
-rw-r--r--lisp/emulation/tpu-edt.el18
-rw-r--r--lisp/emulation/tpu-extras.el2
-rw-r--r--lisp/emulation/tpu-mapper.el2
-rw-r--r--lisp/emulation/vip.el12
10 files changed, 42 insertions, 25 deletions
diff --git a/lisp/emulation/edt-lk201.el b/lisp/emulation/edt-lk201.el
index 2aeb6aac742..cdbe34060ac 100644
--- a/lisp/emulation/edt-lk201.el
+++ b/lisp/emulation/edt-lk201.el
@@ -1,4 +1,4 @@
-;;; edt-lk201.el --- Enhanced EDT Keypad Mode Emulation for LK-201 Keyboards
+;;; edt-lk201.el --- enhanced EDT keypad mode emulation for LK-201 keyboards
;; Copyright (C) 1986, 1992, 1993, 1995 Free Software Foundation, Inc.
@@ -23,7 +23,7 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
-;;; Usage:
+;;; Commentary:
;; See edt-user.doc in the Emacs etc directory.
@@ -39,6 +39,9 @@
;; F1 - F5 are not available on many DEC VT series terminals.
;; However, this is not always the case. So support for F1 - F5 is
;; provided here and in lisp/term/lk201.el.
+
+;;; Code:
+
(defconst *EDT-keys*
'(("KP0" . [kp-0]) ("KP1" . [kp-1]) ("KP2" . [kp-2]) ("KP3" . [kp-3])
("KP4" . [kp-4]) ("KP5" . [kp-5]) ("KP6" . [kp-6]) ("KP7" . [kp-7])
@@ -53,3 +56,5 @@
("F11" . [f11]) ("F12" . [f12]) ("F13" . [f13]) ("F14" . [f14])
("HELP" . [help]) ("DO" . [menu]) ("F17" . [f17]) ("F18" . [f18])
("F19" . [f19]) ("F20" . [f20])))
+
+;;; edt-lk201.el ends here
diff --git a/lisp/emulation/edt-mapper.el b/lisp/emulation/edt-mapper.el
index 9b60f9f1fd0..7f74ab60f95 100644
--- a/lisp/emulation/edt-mapper.el
+++ b/lisp/emulation/edt-mapper.el
@@ -1,4 +1,4 @@
-;;; edt-mapper.el --- Create an EDT LK-201 Map File for X-Windows Emacs
+;;; edt-mapper.el --- create an EDT LK-201 map file for X-Windows Emacs
;; Copyright (C) 1994, 1995, 2000, 2001 Free Software Foundation, Inc.
diff --git a/lisp/emulation/edt-pc.el b/lisp/emulation/edt-pc.el
index 0cd9ece4498..2b6aa25b061 100644
--- a/lisp/emulation/edt-pc.el
+++ b/lisp/emulation/edt-pc.el
@@ -1,4 +1,4 @@
-;;; edt-pc.el --- Enhanced EDT Keypad Mode Emulation for PC 101 Keyboards
+;;; edt-pc.el --- enhanced EDT keypad mode emulation for PC 101 keyboards
;; Copyright (C) 1986, 1994, 1995 Free Software Foundation, Inc.
@@ -23,7 +23,7 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
-;;; Usage:
+;;; Commentary:
;; See edt-user.doc in the Emacs etc directory.
@@ -68,6 +68,9 @@
;; and F17 through F20 do not exist on the PC, so the EDT emulation is
;; configured below to ignore attempts to bind functions to those keys.
;;
+
+;;; Code:
+
(defconst *EDT-keys*
'(("KP0" . [kp-0]) ("KP1" . [kp-1]) ("KP2" . [kp-2]) ("KP3" . [kp-3])
("KP4" . [kp-4]) ("KP5" . [kp-5]) ("KP6" . [kp-6]) ("KP7" . [kp-7])
@@ -83,3 +86,5 @@
("F11" . [f11]) ("F12" . [f12]) ("F13" . "" ) ("F14" . "" )
("HELP" . "" ) ("DO" . "" ) ("F17" . "" ) ("F18" . "" )
("F19" . "" ) ("F20" . "" )))
+
+;;; edt-pc.el ends here
diff --git a/lisp/emulation/edt-vt100.el b/lisp/emulation/edt-vt100.el
index 42f81cd6f56..283b7827c73 100644
--- a/lisp/emulation/edt-vt100.el
+++ b/lisp/emulation/edt-vt100.el
@@ -1,4 +1,4 @@
-;;; edt-vt100.el --- Enhanced EDT Keypad Mode Emulation for VT Series Terminals
+;;; edt-vt100.el --- enhanced EDT keypad mode emulation for VT series terminals
;; Copyright (C) 1986, 1992, 1993, 1995 Free Software Foundation, Inc.
@@ -23,12 +23,15 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
-;;; Usage:
+;;; Commentary:
;; See edt-user.doc in the Emacs etc directory.
;; ====================================================================
+
+;;; Code:
+
;; Get keyboard function key mapping to EDT keys.
(load "edt-lk201" nil t)
@@ -42,3 +45,5 @@
(defun edt-set-term-width-132 ()
"Set terminal width to 132 columns."
(vt100-wide-mode 1))
+
+;;; edt-vt100.el ends here
diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el
index 2912da5df28..d54c0bba8cb 100644
--- a/lisp/emulation/edt.el
+++ b/lisp/emulation/edt.el
@@ -1,4 +1,4 @@
-;;; edt.el --- Enhanced EDT Keypad Mode Emulation for GNU Emacs 19
+;;; edt.el --- enhanced EDT keypad mode emulation for GNU Emacs 19
;; Copyright (C) 1986, 1992, 1993, 1994, 1995, 2000, 2001
;; Free Software Foundation, Inc.
diff --git a/lisp/emulation/pc-select.el b/lisp/emulation/pc-select.el
index fde3672f3a8..c8c3331ba31 100644
--- a/lisp/emulation/pc-select.el
+++ b/lisp/emulation/pc-select.el
@@ -77,6 +77,8 @@
;; other programs.
;;
+;;; Code:
+
;;;; Customization:
(defgroup pc-select nil
"Emulate pc bindings."
diff --git a/lisp/emulation/tpu-edt.el b/lisp/emulation/tpu-edt.el
index 21891d24862..f17ff953884 100644
--- a/lisp/emulation/tpu-edt.el
+++ b/lisp/emulation/tpu-edt.el
@@ -1071,7 +1071,7 @@ kills modified buffers without asking."
(interactive)
(let ((list (tpu-make-file-buffer-list (buffer-list))))
(setq list (delq (current-buffer) list))
- (if (not list) (error "No other buffers."))
+ (if (not list) (error "No other buffers"))
(switch-to-buffer (car (reverse list)))))
(defun tpu-make-file-buffer-list (buffer-list)
@@ -1343,7 +1343,7 @@ The text is saved for the tpu-paste command."
(delete-region beg end)
(tpu-unset-match)))
(t
- (error "No selection active."))))
+ (error "No selection active"))))
(defun tpu-store-text nil
"Copy the selected region to the cut buffer without deleting it.
@@ -1365,7 +1365,7 @@ The text is saved for the tpu-paste command."
(buffer-substring (tpu-match-beginning) (tpu-match-end)))
(tpu-unset-match))
(t
- (error "No selection active."))))
+ (error "No selection active"))))
(defun tpu-cut (arg)
"Copy selected region to the cut buffer. In the absence of an
@@ -1392,7 +1392,7 @@ argument, delete the selected region too."
(if (not arg) (delete-region beg end))
(tpu-unset-match)))
(t
- (error "No selection active."))))
+ (error "No selection active"))))
(defun tpu-delete-current-line (num)
"Delete one or specified number of lines after point.
@@ -1532,7 +1532,7 @@ With argument reinserts the character that many times."
(not case-replace) (not tpu-regexp-p))
(tpu-unset-match)))
(t
- (error "No selection active."))))
+ (error "No selection active"))))
(defun tpu-substitute (num)
"Replace the selected region with the contents of the cut buffer, and
@@ -1548,7 +1548,7 @@ A negative argument means replace all occurrences of the search string."
(tpu-search-internal-core tpu-search-last-string)))
(setq num (1- num))))
(t
- (error "No selection active."))))
+ (error "No selection active"))))
(defun tpu-lm-replace (from to)
"Interactively search for OLD-string and substitute NEW-string."
@@ -1558,7 +1558,7 @@ A negative argument means replace all occurrences of the search string."
(let ((doit t) (strings 0))
;; Can't replace null strings
- (if (string= "" from) (error "No string to replace."))
+ (if (string= "" from) (error "No string to replace"))
;; Find the first occurrence
(tpu-set-search)
@@ -1631,7 +1631,7 @@ are performed without asking. Only works in forward direction."
or each line in the entire buffer if no region is selected."
(interactive
(list (tpu-string-prompt "String to add: " 'tpu-add-at-bol-hist)))
- (if (string= "" text) (error "No string specified."))
+ (if (string= "" text) (error "No string specified"))
(cond ((tpu-mark)
(save-excursion
(if (> (point) (tpu-mark)) (exchange-point-and-mark))
@@ -1649,7 +1649,7 @@ or each line in the entire buffer if no region is selected."
or each line of the entire buffer if no region is selected."
(interactive
(list (tpu-string-prompt "String to add: " 'tpu-add-at-eol-hist)))
- (if (string= "" text) (error "No string specified."))
+ (if (string= "" text) (error "No string specified"))
(cond ((tpu-mark)
(save-excursion
(if (> (point) (tpu-mark)) (exchange-point-and-mark))
diff --git a/lisp/emulation/tpu-extras.el b/lisp/emulation/tpu-extras.el
index 479af176526..465b923f891 100644
--- a/lisp/emulation/tpu-extras.el
+++ b/lisp/emulation/tpu-extras.el
@@ -1,4 +1,4 @@
-;;; tpu-extras.el --- Scroll margins and free cursor mode for TPU-edt
+;;; tpu-extras.el --- scroll margins and free cursor mode for TPU-edt
;; Copyright (C) 1993, 1994, 1995, 2000 Free Software Foundation, Inc.
diff --git a/lisp/emulation/tpu-mapper.el b/lisp/emulation/tpu-mapper.el
index ba6d032fd6a..39aae2cf2a7 100644
--- a/lisp/emulation/tpu-mapper.el
+++ b/lisp/emulation/tpu-mapper.el
@@ -1,4 +1,4 @@
-;;; tpu-mapper.el --- Create a TPU-edt X-windows keymap file
+;;; tpu-mapper.el --- create a TPU-edt X-windows keymap file
;; Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc.
diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el
index 588a6c6e319..6db67394ead 100644
--- a/lisp/emulation/vip.el
+++ b/lisp/emulation/vip.el
@@ -817,7 +817,7 @@ is the name of the register for COM."
(com (car (cdr (cdr vip-d-com))))
(reg (nth 3 vip-d-com)))
(if (null val) (setq val (car (cdr vip-d-com))))
- (if (null m-com) (error "No previous command to repeat."))
+ (if (null m-com) (error "No previous command to repeat"))
(setq vip-use-register reg)
(funcall m-com (cons val com)))))
@@ -1499,7 +1499,7 @@ used. This behaviour is controlled by the sign of prefix numeric value."
(let ((com (vip-getcom arg)))
(if (numberp arg)
(if (or (> arg 99) (< arg 1))
- (error "Prefix must be between 1 and 99.")
+ (error "Prefix must be between 1 and 99")
(goto-char
(if (> (point-max) 80000)
(* (/ (point-max) 100) arg)
@@ -1693,7 +1693,7 @@ STRING. Search will be forward if FORWARD, otherwise backward."
"Repeat previous search."
(interactive "P")
(let ((val (vip-p-val arg)) (com (vip-getcom arg)))
- (if (null vip-s-string) (error "No previous search string."))
+ (if (null vip-s-string) (error "No previous search string"))
(vip-search vip-s-string vip-s-forward arg)
(if com (vip-execute-com 'vip-search-next val com))))
@@ -1701,7 +1701,7 @@ STRING. Search will be forward if FORWARD, otherwise backward."
"Repeat previous search in the reverse direction."
(interactive "P")
(let ((val (vip-p-val arg)) (com (vip-getcom arg)))
- (if (null vip-s-string) (error "No previous search string."))
+ (if (null vip-s-string) (error "No previous search string"))
(vip-search vip-s-string (not vip-s-forward) arg)
(if com (vip-execute-com 'vip-search-Next val com))))
@@ -1742,11 +1742,11 @@ STRING. Search will be forward if FORWARD, otherwise backward."
(if (null buffer-name)
(current-buffer)
(get-buffer buffer-name)))
- (if (null buffer) (error "Buffer %s nonexistent." buffer-name))
+ (if (null buffer) (error "Buffer %s nonexistent" buffer-name))
(if (or (not (buffer-modified-p buffer))
(y-or-n-p "Buffer is modified, are you sure? "))
(kill-buffer buffer)
- (error "Buffer not killed."))))
+ (error "Buffer not killed"))))
(defun vip-find-file ()
"Visit file in the current window."
View Lorry Controller Status