andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(te-newline): Change eql to eq.

Browse source 
(te-insert-lines, te-delete-lines, te-process-output): Likewise.
(te-parse-program-and-args, te-get-char): Likewise.
This commit is contained in:
Richard M. Stallman 1997-07-24 04:28:05 +00:00
parent 2be5fefb86
commit 1ea0c057d3
1 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
lisp/terminal.el
View file

@ -673,7 +673,7 @@ move to start of new line, clear to end of line."
(cond ((not terminal-more-processing))
((< (setq te-more-count (1- te-more-count)) 0)
(te-set-more-count t))
((eql te-more-count 0)
((eq te-more-count 0)
;; this doesn't return
(te-more-break)))
(if (eobp)
@ -746,11 +746,11 @@ move to start of new line, clear to end of line."
(n (min (- (te-get-char) ?\ ) line))
(i 0))
(delete-region (- (point-max) (* n (1+ te-width))) (point-max))
(if (eql (point) (point-max)) (insert ?\n))
(if (eq (point) (point-max)) (insert ?\n))
(while (< i n)
(setq i (1+ i))
(insert-char ?\ te-width)
(or (eql i line) (insert ?\n))))))
(or (eq i line) (insert ?\n))))))
(setq te-more-count -1))
@ -768,7 +768,7 @@ move to start of new line, clear to end of line."
(while (< i n)
(setq i (1+ i))
(insert-char ?\ te-width)
(or (eql i line) (insert ?\n))))))
(or (eq i line) (insert ?\n))))))
(setq te-more-count -1))
;; ^p ^a
@ -905,7 +905,7 @@ move to start of new line, clear to end of line."
start (car te-pending-output)
string (car (cdr te-pending-output))
char (aref string start))
(if (eql (setq start (1+ start)) (length string))
(if (eq (setq start (1+ start)) (length string))
(progn (setq te-pending-output
(cons 0 (cdr (cdr te-pending-output)))
start 0
@ -915,7 +915,7 @@ move to start of new line, clear to end of line."
(if (and (> char ?\037) (< char ?\377))
(cond ((eolp)
;; unread char
(if (eql start 0)
(if (eq start 0)
(setq te-pending-output
(cons 0 (cons (make-string 1 char)
(cdr te-pending-output))))
@ -934,13 +934,13 @@ move to start of new line, clear to end of line."
(setq char (point)) (end-of-line)
(setq end (min end (+ start (- (point) char))))
(goto-char char)
(if (eql end matchpos) (setq matchpos nil))
(if (eq end matchpos) (setq matchpos nil))
(delete-region (point) (+ (point) (- end start)))
(insert (if (and (eql start 0)
(eql end (length string)))
(insert (if (and (eq start 0)
(eq end (length string)))
string
(substring string start end)))
(if (eql end (length string))
(if (eq end (length string))
(setq te-pending-output
(cons 0 (cdr (cdr te-pending-output))))
(setcar te-pending-output end))
@ -949,7 +949,7 @@ move to start of new line, clear to end of line."
;; function we could trivially emulate different terminals
;; Who cares in any case? (Apart from stupid losers using rlogin)
(funcall
(if (eql char ?\^p)
(if (eq char ?\^p)
(or (cdr (assq (te-get-char)
'((?= . te-move-to-position)
(?c . te-clear-rest-of-line)
@ -1000,7 +1000,7 @@ move to start of new line, clear to end of line."
(let ((start (car te-pending-output))
(string (car (cdr te-pending-output))))
(prog1 (aref string start)
(if (eql (setq start (1+ start)) (length string))
(if (eq (setq start (1+ start)) (length string))
(setq te-pending-output (cons 0 (cdr (cdr te-pending-output))))
(setcar te-pending-output start))))
(catch 'char
@ -1009,7 +1009,7 @@ move to start of new line, clear to end of line."
(progn
(set-process-filter te-process
(function (lambda (p s)
(or (eql (length s) 1)
(or (eq (length s) 1)
(setq te-pending-output (list 1 s)))
(throw 'char (aref s 0)))))
(accept-process-output te-process))
@ -1171,7 +1171,7 @@ subprocess started."
s p)
(prog1 (substring s p (match-end 1))
(setq p (match-end 0))
(if (eql p (length s)) (setq p nil)))
(if (eq p (length s)) (setq p nil)))
(prog1 (substring s p)
(setq p nil)))
l)))