comparison lisp/language/ethio-util.el @ 54736:b94de166de9d

(ethio-sera-being-called-by-w3): New variable. (ethio-sera-to-fidel-ethio): Check ethio-sera-being-called-by-w3 instead of sera-being-called-by-w3. (ethio-fidel-to-sera-buffer): Likewise. (ethio-find-file): Bind ethio-sera-being-called-by-w3 to t instead of sera-being-called-by-w3. (ethio-write-file): Likewise.

54735:eb44ae138199

	          (?e "$(3#B%n(B") (?u "$(3#B%r(B") (?i "$(3#B%o(B") (?E "$(3#B%q(B")))
;;; {   |   }   ~  DEL
   nil nil nil nil nil
   ])

;;;###autoload
(defun ethio-sera-to-fidel-region (beg end &optional secondary force)
  "Convert the characters in region from SERA to FIDEL.
The variable `ethio-primary-language' specifies the primary language
and `ethio-secondary-language' specifies the secondary.

    (while (and (not (eobp)) (null new-language))
      (setq ch (following-char))
      (cond

       ;; skip from "<" to ">" (or from "&" to ";") if in w3-mode
       ((and (boundp 'sera-being-called-by-w3)
	     sera-being-called-by-w3
	     (or (= ch ?<) (= ch ?&)))
	(search-forward (if (= ch ?<) ">" ";")
			nil 0))

       ;; leave non-ASCII characters as they are

	 ((looking-at "[,.;:'`?]+")
	  (insert "\\")
	  (goto-char (1+ (match-end 0)))) ; because we inserted one byte (\)

	 ;; skip from "<" to ">" (or from "&" to ";") if called from w3
	 ((and (boundp 'sera-being-called-by-w3)
	       sera-being-called-by-w3
	       (or (= ch ?<) (= ch ?&)))
	  (search-forward (if (= ch ?<) ">" ";")
			  nil 0))

	 ;; neutral character.  no need to quote.  just skip it.

    (save-excursion
      (ethio-sera-to-fidel-buffer nil 'force)
      (set-buffer-modified-p nil)))

   ((string-match "\\.html$" (buffer-file-name))
    (let ((sera-being-called-by-w3 t))
      (save-excursion
	(ethio-sera-to-fidel-marker 'force)
	(goto-char (point-min))
	(while (re-search-forward "&[lr]aquote;" nil t)
	  (if (= (char-after (1+ (match-beginning 0))) ?l)

      (ethio-record-user-preference)
      (set-buffer-modified-p nil)))

   ((string-match "\\.html$" (buffer-file-name))
    (save-excursion
      (let ((sera-being-called-by-w3 t)
	    (lq (aref ethio-fidel-to-sera-map 461))
	    (rq (aref ethio-fidel-to-sera-map 462)))
	(aset ethio-fidel-to-sera-map 461 "&laquote;")
	(aset ethio-fidel-to-sera-map 462 "&raquote;")
	(ethio-fidel-to-sera-marker 'force)

54736:b94de166de9d

	          (?e "$(3#B%n(B") (?u "$(3#B%r(B") (?i "$(3#B%o(B") (?E "$(3#B%q(B")))
;;; {   |   }   ~  DEL
   nil nil nil nil nil
   ])

;; To avoid byte-compiler warnings.  It should never be set globally.
(defvar ethio-sera-being-called-by-w3)

;;;###autoload
(defun ethio-sera-to-fidel-region (beg end &optional secondary force)
  "Convert the characters in region from SERA to FIDEL.
The variable `ethio-primary-language' specifies the primary language
and `ethio-secondary-language' specifies the secondary.

    (while (and (not (eobp)) (null new-language))
      (setq ch (following-char))
      (cond

       ;; skip from "<" to ">" (or from "&" to ";") if in w3-mode
       ((and (boundp 'ethio-sera-being-called-by-w3)
	     ethio-sera-being-called-by-w3
	     (or (= ch ?<) (= ch ?&)))
	(search-forward (if (= ch ?<) ">" ";")
			nil 0))

       ;; leave non-ASCII characters as they are

	 ((looking-at "[,.;:'`?]+")
	  (insert "\\")
	  (goto-char (1+ (match-end 0)))) ; because we inserted one byte (\)

	 ;; skip from "<" to ">" (or from "&" to ";") if called from w3
	 ((and (boundp 'ethio-sera-being-called-by-w3)
	       ethio-sera-being-called-by-w3
	       (or (= ch ?<) (= ch ?&)))
	  (search-forward (if (= ch ?<) ">" ";")
			  nil 0))

	 ;; neutral character.  no need to quote.  just skip it.

    (save-excursion
      (ethio-sera-to-fidel-buffer nil 'force)
      (set-buffer-modified-p nil)))

   ((string-match "\\.html$" (buffer-file-name))
    (let ((ethio-sera-being-called-by-w3 t))
      (save-excursion
	(ethio-sera-to-fidel-marker 'force)
	(goto-char (point-min))
	(while (re-search-forward "&[lr]aquote;" nil t)
	  (if (= (char-after (1+ (match-beginning 0))) ?l)

      (ethio-record-user-preference)
      (set-buffer-modified-p nil)))

   ((string-match "\\.html$" (buffer-file-name))
    (save-excursion
      (let ((ethio-sera-being-called-by-w3 t)
	    (lq (aref ethio-fidel-to-sera-map 461))
	    (rq (aref ethio-fidel-to-sera-map 462)))
	(aset ethio-fidel-to-sera-map 461 "&laquote;")
	(aset ethio-fidel-to-sera-map 462 "&raquote;")
	(ethio-fidel-to-sera-marker 'force)