Mercurial > hg > xemacs-beta

comparison lisp/view-less.el @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents 576fb035e263
children 74f176715ed2
comparison
equal deleted inserted replaced
445:34f3776fcf0e 446:1ccc32a20af4
287 (save-excursion 287 (save-excursion
288 (goto-char (point-min)) 288 (goto-char (point-min))
289 (while (= (following-char) ?\C-h) 289 (while (= (following-char) ?\C-h)
290 (delete-char 1)) 290 (delete-char 1))
291 (while (search-forward "\C-h" nil t) 291 (while (search-forward "\C-h" nil t)
292 (forward-char -2) 292 (backward-char 2)
293 (cond ((looking-at "_\C-h\\|\\(.\\)\C-h\\1\\||\C-h\\^") 293 (cond ((looking-at "_\C-h\\|\\(.\\)\C-h\\1\\||\C-h\\^")
294 (delete-char 2)) 294 (delete-char 2))
295 ((looking-at ".\C-h_\\|\\^\C-h|") 295 ((looking-at ".\C-h_\\|\\^\C-h|")
296 (forward-char 1) 296 (forward-char 1)
297 (delete-char 2)) 297 (delete-char 2))