From b0f20651e3cbb8a66f11ffae4c18634019c20cd4 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Tue, 10 Dec 2019 20:04:36 -0800 Subject: ; Spelling fixes --- lisp/progmodes/hideshow.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lisp/progmodes/hideshow.el') diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el index 53235ea573b..8f8b79af74b 100644 --- a/lisp/progmodes/hideshow.el +++ b/lisp/progmodes/hideshow.el @@ -610,7 +610,7 @@ as cdr." (forward-comment (- (buffer-size))) (skip-chars-forward " \t\n\f") (let ((p (point)) - (hidable t)) + (hideable t)) (beginning-of-line) (unless (looking-at (concat "[ \t]*" hs-c-start-regexp)) ;; we are in this situation: (example) @@ -636,13 +636,13 @@ as cdr." (when (or (not (looking-at hs-c-start-regexp)) (> (point) q)) ;; we cannot hide this comment block - (setq hidable nil))) + (setq hideable nil))) ;; goto the end of the comment (forward-comment (buffer-size)) (skip-chars-backward " \t\n\f") (end-of-line) (when (>= (point) q) - (list (and hidable p) (point)))))))) + (list (and hideable p) (point)))))))) (defun hs-grok-mode-type () "Set up hideshow variables for new buffers. @@ -741,7 +741,7 @@ and `case-fold-search' are both t." (save-excursion (let ((c-reg (hs-inside-comment-p))) (if (and c-reg (nth 0 c-reg)) - ;; point is inside a comment, and that comment is hidable + ;; point is inside a comment, and that comment is hideable (goto-char (nth 0 c-reg)) (end-of-line) (when (and (not c-reg) -- cgit v1.2.1