Mercurial > hg > xemacs-beta

comparison lisp/packages/crypt.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents e04119814345
children fe104dbd9147
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
1914 (goto-char (1- (point-max))) 1914 (goto-char (1- (point-max)))
1915 (setq crypt-dos-has-ctrl-z (looking-at "\C-z")) 1915 (setq crypt-dos-has-ctrl-z (looking-at "\C-z"))
1916 (if crypt-dos-has-ctrl-z (replace-match "")))))))) 1916 (if crypt-dos-has-ctrl-z (replace-match ""))))))))
1917 1917
1918 (defun crypt-unix-to-dos-region (start end) 1918 (defun crypt-unix-to-dos-region (start end)
1919 "Converts region from START to END, from unix to dos format. 1919 "Converts region from START to END, from dos to unix format.
1920 Replaces \"\\n\" with \"\\r\\n\" and adds a ^Z at end of file if 1920 Replaces \"\\n\" with \"\\r\\n\" and adds a ^Z at end of file if
1921 `crypt-dos-has-ctrl-z' is non-nil." 1921 `crypt-dos-has-ctrl-z' is non-nil."
1922 (save-excursion 1922 (save-excursion
1923 (save-restriction 1923 (save-restriction
1924 (let ((add-ctrl-z (and crypt-dos-has-ctrl-z 1924 (let ((add-ctrl-z (and crypt-dos-has-ctrl-z