home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / emacs / 2890 < prev    next >
Encoding:
Text File  |  1992-08-18  |  2.0 KB  |  65 lines
  1. Path: sparky!uunet!news.univie.ac.at!blekul11!cc11.kuleuven.ac.be!stud01
  2. Nntp-Posting-Host: 134.58.8.17
  3. Newsgroups: comp.emacs
  4. From: stud01@cc4.kuleuven.ac.be (Barbe Albert)
  5. Distribution: world
  6. Date: Tuesday, 18 Aug 1992 11:37:36 +02
  7. Message-ID: <1992Aug18.112949@cc4.kuleuven.ac.be>
  8. Organization: K.U.Leuven - Academic Computing Center
  9. Subject: all.el missing function (Oops)
  10. Lines: 53
  11.  
  12. I forgot to include the function unfold-all.
  13. Here is the complete version (hope it works now)
  14. ----------------Cut Here-------------------------
  15. ;;
  16. ;; all.el v1.01   Bert Barbe   (stud01@cc4.kuleuven.ac.be)
  17. ;; use : type          M-x all
  18. ;;       then type the pattern ( or just enter to show all lines again)
  19. ;;
  20. ;; This function uses selective-display and hides lines by changing
  21. ;;  the end of the line in control-M
  22. ;;
  23. ;; comments are allways welcome !
  24. ╚
  25. ;; all
  26. ;;
  27. (defun all ( patern )
  28.   (interactive "sPattern: ")
  29.   (setq selective-display t)
  30.   (if (string-equal patern "")
  31.       (unfold-all)
  32.     (setq selective-display t)
  33.     (let ((modp (buffer-modified-p)))
  34.       (unwind-protect
  35.       (save-excursion
  36.         (subst-char-in-region (point-min) (point-max)
  37.                   ?\n ?\^m  t)
  38.         (goto-char 0)
  39.         (or (char-equal ?\^m (char-after 1)) (insert-char ?\^m 1))
  40.         (while  (re-search-forward patern (point-max) t)
  41.           (save-excursion
  42.         (if (search-backward "\^m" (point-min) t)
  43.             (progn
  44.               (delete-char 1 )
  45.               (insert-char ?\n 1))
  46.           (message "Something went wrong.Pity.")))
  47.         )
  48.       )
  49.     
  50.     (set-buffer-modified-p modp)))))
  51. ;;  unfold-all
  52. ;; this function was missing in v1.00
  53. ;;
  54. (defun unfold-all ()
  55.   (interactive)
  56.   (let ((modp (buffer-modified-p)))
  57.     (unwind-protect
  58.         (subst-char-in-region (point-min) (point-max) ?\^M ?\n  t)
  59.      (set-buffer-modified-p modp))))
  60. ----------------Cut Here-------------------------
  61. --
  62. ------------------------------------------------------------------------
  63. Barbe Albert       stud01@cc4.kuleuven.ac.be   (AIX/370)
  64.                    FHGAA98@cc1.kuleuven.ac.be  (VM/CMS)
  65.