/[emacs]/emacs/lisp/elide-head.el
ViewVC logotype

Diff of /emacs/lisp/elide-head.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11.6.1 by handa, Fri Apr 16 12:49:49 2004 UTC revision 1.11.6.2 by miles, Thu Nov 4 08:55:37 2004 UTC
# Line 98  This is suitable as an entry on `find-fi Line 98  This is suitable as an entry on `find-fi
98              (if rest (setq rest (cdr rest))))              (if rest (setq rest (cdr rest))))
99            (if (not (and beg end))            (if (not (and beg end))
100                (if (interactive-p)                (if (interactive-p)
101                    (error "No header found"))                    (message "No header found"))
102              (goto-char beg)              (goto-char beg)
103              (end-of-line)              (end-of-line)
104              (if (overlayp elide-head-overlay)              (if (overlayp elide-head-overlay)
# Line 115  This is suitable as an entry on `find-fi Line 115  This is suitable as an entry on `find-fi
115             (overlay-buffer elide-head-overlay))             (overlay-buffer elide-head-overlay))
116        (delete-overlay elide-head-overlay)        (delete-overlay elide-head-overlay)
117      (if (interactive-p)      (if (interactive-p)
118          (error "No header hidden"))))          (message "No header hidden"))))
119    
120  (provide 'elide-head)  (provide 'elide-head)
121    

Legend:
Removed from v.1.11.6.1  
changed lines
  Added in v.1.11.6.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26