Re: [CEDET-devel] unicode characters from parsed files in *temp object write* buffer cause 'Select
Brought to you by:
zappo
From: Marcus H. <mar...@gm...> - 2010-02-19 21:05:09
|
"Eric M. Ludlam" <er...@si...> writes: > Thanks! It is now in. Aidan, our coding systems expert raised his objection. What had been suggested is not close enough to Emacs' find-coding-systems-region. At some point XEmacs will have a real implementation, but for now the workaround below has been proposed instead of the patch I sent earlier. Sorry about this. (defun find-coding-systems-region (begin end) (if (stringp begin) (if (equal (charsets-in-string begin) '(ascii)) '(undecided) (delete-if-not #'(lambda (coding-system) ;; Assume strings are always short enough that the ;; condition-case is not worth it. (query-coding-string begin coding-system t)) (remove-duplicates (append (get-language-info current-language-environment 'coding-system) (mapcar #'coding-system-name (coding-system-list))) :test #'eq :from-end t))) (if (equal (charsets-in-region begin end) '(ascii)) '(undecided) (delete-if-not #'(lambda (coding-system) (condition-case nil (query-coding-region begin end coding-system nil t t) (text-conversion-error))) (remove-duplicates (append (get-language-info current-language-environment 'coding-system) (mapcar #'coding-system-name (coding-system-list))) :test #'eq :from-end t))))) -- note that "property" can also be used as syntactic sugar to reference a property, breaking the clean design of verilog; [...] (seen on http://www.veripool.com/verilog-mode_news.html) |