Mercurial > hg > xemacs-beta

comparison lisp/packages/crypt.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
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 dos to unix format. 1919 "Converts region from START to END, from unix to dos 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