Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
ca65efcc
Commit
ca65efcc
authored
Dec 20, 2013
by
Vitalie Spinu
Committed by
Chong Yidong
Dec 20, 2013
Browse files
comint.el (comint-output-filter): Fix rear-nonsticky property placement.
Fixes: debbugs:16010
parent
a9574eb7
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
15 additions
and
11 deletions
+15
-11
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/comint.el
lisp/comint.el
+10
-11
No files found.
lisp/ChangeLog
View file @
ca65efcc
2013-12-20 Vitalie Spinu <spinuvit@gmail.com>
* comint.el (comint-output-filter): Fix rear-nonsticky property
placement (Bug#16010).
2013-12-20 Chong Yidong <cyd@gnu.org>
* faces.el (read-color): Minor fix for completion function.
...
...
lisp/comint.el
View file @
ca65efcc
...
...
@@ -2062,23 +2062,22 @@ Make backspaces delete the previous character."
(let ((prompt-start (save-excursion (forward-line 0) (point)))
(inhibit-read-only t))
(when comint-prompt-read-only
(with-silent-modifications
(or (= (point-min) prompt-start)
(get-text-property (1- prompt-start) 'read-only)
(put-text-property
(1- prompt-start) prompt-start 'read-only 'fence))
(add-text-properties
prompt-start (point)
'(read-only t rear-nonsticky t front-sticky (read-only)))))
(with-silent-modifications
(or (= (point-min) prompt-start)
(get-text-property (1- prompt-start) 'read-only)
(put-text-property (1- prompt-start)
prompt-start 'read-only 'fence))
(add-text-properties prompt-start (point)
'(read-only t front-sticky (read-only)))))
(when comint-last-prompt
(remove-text-properties (car comint-last-prompt)
(cdr comint-last-prompt)
'(font-lock-face)))
(setq comint-last-prompt
(cons (copy-marker prompt-start) (point-marker)))
(add-text-properties
(car comint-last-promp
t)
(cdr comint-last-prompt)
'(
font-lock-face comint-highlight-prompt)))
(add-text-properties
prompt-start (poin
t)
'(rear-nonsticky t
font-lock-face comint-highlight-prompt)))
(goto-char saved-point)))))))
(defun comint-preinput-scroll-to-bottom ()
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment