Dear All,
I propose to change the fricas-instert-ascii as bellow :
There a 7 lines of comment for 3 emacs line !
(defun fricas-insert-ascii (str type)
(let ((inhibit-read-only t) (pos (point)))
(insert str)
(put-text-property pos (point) 'type type)
(put-text-property pos (point) 'face type)
(put-text-property pos (point) 'rear-nonsticky t)
(put-text-property pos (point) 'front-sticky t)
(put-text-property pos (point) 'read-only type)
; The previous new-line in an input area must be read-only :
; delete it mismatchs the display.
; This new-line has 'front-sticky to nil :
; it's possible to insert text just before this new line.
; We dectect an input area with type nil in this function.
; The integer (1- (point)) shows a point :
; this point can't be at the very beginning of the buffer. [FMy 22/09/2009]
(when (not type)
(put-text-property (1- (point)) (point) 'front-sticky nil)
(put-text-property (1- (point)) (point) 'read-only t))
(when (eq type 'fricas-prompt)
(put-text-property pos (point) 'field t))))
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"FriCAS - computer algebra system" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to [EMAIL PROTECTED]
For more options, visit this group at
http://groups.google.com/group/fricas-devel?hl=en
-~----------~----~----~----~------~----~------~--~---
