Mercurial > hg > xemacs-beta

comparison lisp/packages/crypt.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 131b0175ea99
children cca96a509cfe
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
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 os 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