comparison lisp/composite.el @ 81073:12cb550b10e4

(compose-region, decompose-region): Use inhibit-read-only and restore-buffer-modified-p.

81072:ecb305fe2f17

Optional 4th argument MODIFICATION-FUNC is a function to call to
adjust the composition when it gets invalid because of a change of
text in the composition."
  (interactive "r")
  (let ((modified-p (buffer-modified-p))
	(buffer-read-only nil))
    (if (or (vectorp components) (listp components))
	(setq components (encode-composition-components components)))
    (compose-region-internal start end components modification-func)
    (restore-buffer-modified-p modified-p)))

When called from a program, expects two arguments,
positions (integers or markers) specifying the region."
  (interactive "r")
  (let ((modified-p (buffer-modified-p))
	(buffer-read-only nil))
    (remove-text-properties start end '(composition nil))
    (set-buffer-modified-p modified-p)))

;;;###autoload
(defun compose-string (string &optional start end components modification-func)
  "Compose characters in string STRING.

	  (compose-chars-after (- (point) chars) (point))))))

;;;###autoload(global-set-key [compose-last-chars] 'compose-last-chars)


;;; The following codes are only for backward compatibility with Emacs
;;; 20.4 and earlier.

;;;###autoload
(defun decompose-composite-char (char &optional type with-composition-rule)
  "Convert CHAR to string.

;;;###autoload
(make-obsolete 'decompose-composite-char 'char-to-string "21.1")



;;; arch-tag: ee703d77-1723-45d4-a31f-e9f0f867aa33
;;; composite.el ends here

81073:12cb550b10e4

Optional 4th argument MODIFICATION-FUNC is a function to call to
adjust the composition when it gets invalid because of a change of
text in the composition."
  (interactive "r")
  (let ((modified-p (buffer-modified-p))
	(inhibit-read-only t))
    (if (or (vectorp components) (listp components))
	(setq components (encode-composition-components components)))
    (compose-region-internal start end components modification-func)
    (restore-buffer-modified-p modified-p)))

When called from a program, expects two arguments,
positions (integers or markers) specifying the region."
  (interactive "r")
  (let ((modified-p (buffer-modified-p))
	(inhibit-read-only t))
    (remove-text-properties start end '(composition nil))
    (restore-buffer-modified-p modified-p)))

;;;###autoload
(defun compose-string (string &optional start end components modification-func)
  "Compose characters in string STRING.

	  (compose-chars-after (- (point) chars) (point))))))

;;;###autoload(global-set-key [compose-last-chars] 'compose-last-chars)


;; The following codes are only for backward compatibility with Emacs
;; 20.4 and earlier.

;;;###autoload
(defun decompose-composite-char (char &optional type with-composition-rule)
  "Convert CHAR to string.

;;;###autoload
(make-obsolete 'decompose-composite-char 'char-to-string "21.1")



;; arch-tag: ee703d77-1723-45d4-a31f-e9f0f867aa33
;;; composite.el ends here