Commit f7eee6c6 authored by Karl Heuer's avatar Karl Heuer
Browse files

(GOLD-map, GOLD-CSI-map, GOLD-SS3-map, tpu-set-mark):

Doc fix.
parent 91a5e367
...@@ -316,14 +316,14 @@ CSI is DEC's name for the sequence <ESC>[.") ...@@ -316,14 +316,14 @@ CSI is DEC's name for the sequence <ESC>[.")
SS3 is DEC's name for the sequence <ESC>O.") SS3 is DEC's name for the sequence <ESC>O.")
(defvar GOLD-map (make-keymap) (defvar GOLD-map (make-keymap)
"Maps the function keys on the VT100 keyboard preceeded by PF1. "Maps the function keys on the VT100 keyboard preceded by PF1.
GOLD is the ASCII 7-bit escape sequence <ESC>OP.") GOLD is the ASCII 7-bit escape sequence <ESC>OP.")
(defvar GOLD-CSI-map (make-sparse-keymap) (defvar GOLD-CSI-map (make-sparse-keymap)
"Maps the function keys on the VT100 keyboard preceeded by GOLD-CSI.") "Maps the function keys on the VT100 keyboard preceded by GOLD-CSI.")
(defvar GOLD-SS3-map (make-sparse-keymap) (defvar GOLD-SS3-map (make-sparse-keymap)
"Maps the function keys on the VT100 keyboard preceeded by GOLD-SS3.") "Maps the function keys on the VT100 keyboard preceded by GOLD-SS3.")
(defvar tpu-global-map nil "TPU-edt global keymap.") (defvar tpu-global-map nil "TPU-edt global keymap.")
(defvar tpu-original-global-map (copy-keymap global-map) (defvar tpu-original-global-map (copy-keymap global-map)
...@@ -543,7 +543,7 @@ version of Emacs." ...@@ -543,7 +543,7 @@ version of Emacs."
(defun tpu-set-mark (pos) (defun tpu-set-mark (pos)
"TPU-edt verion of the `set-mark' function. "TPU-edt verion of the `set-mark' function.
Sets the mark at POS and activates the region acording to the Sets the mark at POS and activates the region according to the
current version of Emacs." current version of Emacs."
(set-mark pos) (set-mark pos)
(and tpu-lucid-emacs19-p pos (zmacs-activate-region))) (and tpu-lucid-emacs19-p pos (zmacs-activate-region)))
...@@ -1203,7 +1203,7 @@ direction. If an argument is specified, don't set the search direction." ...@@ -1203,7 +1203,7 @@ direction. If an argument is specified, don't set the search direction."
(defun tpu-check-search-case (string) (defun tpu-check-search-case (string)
"Returns t if string contains upper case." "Returns t if string contains upper case."
;; if using regexp, elimiate upper case forms (\B \W \S.) ;; if using regexp, eliminate upper case forms (\B \W \S.)
(if tpu-regexp-p (if tpu-regexp-p
(let ((pat (copy-sequence string)) (case-fold-search nil) (pos 0)) (let ((pat (copy-sequence string)) (case-fold-search nil) (pos 0))
(while (setq pos (string-match "\\\\\\\\" pat)) (aset pat (+ 1 pos) ?.)) (while (setq pos (string-match "\\\\\\\\" pat)) (aset pat (+ 1 pos) ?.))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment