Re: Issues with japanese support
Masayuki Ataka <[email protected]>
| Newsgroups | gmane.emacs.auc-tex |
|---|---|
| Message-ID | <[email protected]> |
From: Ralf Angeli <[email protected]> Subject: Re: Issues with japanese support Date: Thu, 17 Feb 2005 11:03:44 +0100 Ikumi Keita reported me about the behaviour of text-property in Emacs 21.X. I could not answer his question. So I'll summarize and translate his report, because his letter was written in Japanese. > > (skip-chars-backward "^\n") > > (delete-char -1))) > > ;; This else-sentence was copied from the function `fill-delete-newlines' > > ;; in `fill.el' (CVS Emacs, 2005-02-17). > > (while (search-forward "\n" nil t) > > (let ((prev (char-before (match-beginning 0))) > > (next (following-char))) > > (when (or (aref (char-category-set next) ?|) > > (aref (char-category-set prev) ?|)) > > (delete-char -1))))) > > > > (snip) (snip) (snip) > > ;; Is comment appropriate? > > Yep. You could add something like "... and adapted accordingly" > because the checks for the fill-space text property were removed. > (AFAICS this property is not used in Emacs 21.3.) Ralf wrote that the checks for the text property were removed. The reason to strip the check is it works only in Emacs 21.X and Emacs 21.X does not use fill-space text property. That is no problem. But we can see fill-space text property in LaTeX-fill-newline. (defun LaTeX-fill-newline () (snip) ;; Give newline the properties of the space(s) it replaces (set-text-properties (1- (point)) (point) (text-properties-at (point))) (and (looking-at "\\( [ \t]*\\)\\(\\c|\\)?") (or (aref (char-category-set (or (char-before (1- (point))) ?\000)) ?|) (match-end 2)) ;; When refilling later on, this newline would normally not ;; be replaced by a space, so we need to mark it specially to ;; re-install the space when we unfill. (put-text-property (1- (point)) (point) 'fill-space (match-string 1))) Ikumi's question is `What for this fill-space text property is set?' If this property is not used, it is something like a garbage. He also suggested that we should set this text property nonsticky as fill.el in CVS Emacs do [1], if this fill-space is necessary. [1] fill.el in CVS Emacs (add-to-list 'text-property-default-nonsticky '(fill-space . t)) regards, --- email: [email protected] Name:: Masayuki Ataka // (Japan)