Show
Ignore:
Timestamp:
2006年05月27日 10時35分24秒 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/progmodes/hideif.el

    r4037 r4091  
    929929  (setq buffer-read-only (or hide-ifdef-read-only hif-outside-read-only))) 
    930930 
    931  
    932931(defun show-ifdef-block () 
    933932  "Show the ifdef block (true or false part) enclosing or before the cursor." 
    934933  (interactive) 
    935   (if hide-ifdef-lines 
    936       (save-excursion 
    937         (beginning-of-line) 
    938         (hif-show-ifdef-region (1- (point)) (progn (end-of-line) (point)))) 
    939     (let ((top-bottom (hif-find-ifdef-block))) 
     934  (let ((top-bottom (hif-find-ifdef-block))) 
     935    (if hide-ifdef-lines 
     936        (hif-show-ifdef-region 
     937         (save-excursion 
     938           (goto-char (car top-bottom)) (line-beginning-position)) 
     939         (save-excursion 
     940           (goto-char (1+ (cdr top-bottom))) 
     941           (hif-end-of-line) (point))) 
    940942      (hif-show-ifdef-region (1- (car top-bottom)) (cdr top-bottom))))) 
    941943