From de28797ffaff4822fa69be73ed644e1127581a83 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 4 Apr 2001 20:13:35 +0000 Subject: [PATCH] (c-outline-level): Bind buffer-invisibility-spec. Originally from Dave Love, but got lost when incorporating version 5.26. --- lisp/ChangeLog | 26 ++++++++++++++++---------- lisp/progmodes/cc-cmds.el | 8 +++++--- 2 files changed, 21 insertions(+), 13 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 87f312df997..eef005c1b09 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,8 +1,14 @@ +2001-04-04 Stefan Monnier + + * progmodes/cc-cmds.el (c-outline-level): + Bind buffer-invisibility-spec. Originally from Dave Love, but + got lost when incorporating version 5.26. + 2001-04-04 Eli Zaretskii - * emulation/pc-select.el (pc-selection-mode): Call - normal-erase-is-backspace-mode instead of binding keys - individually. + * emulation/pc-select.el (pc-selection-mode): + Call normal-erase-is-backspace-mode instead of binding + keys individually. * cus-load.el (normal-erase-is-backspace): Use it instead of delete-key-deletes-forward. @@ -13,20 +19,20 @@ * simple.el (normal-erase-is-backspace): Rename from delete-key-deletes-forward. Doc fix. (normal-erase-is-backspace-mode): Rename from - delete-key-deletes-forward-mode. Doc fix. Run - normal-erase-is-backspace-hook. + delete-key-deletes-forward-mode. Doc fix. + Run normal-erase-is-backspace-hook. * dired.el (dired-move-to-filename-regexp): Support file sizes in - ``human-readable'' format produced by GNU `ls'. - (dired-move-to-filename-regexp): Recognize ISO format dates. From - Paul Eggert . + ``human-readable'' format produced by GNU `ls'. + (dired-move-to-filename-regexp): Recognize ISO format dates. + From Paul Eggert . 2001-04-04 Gerd Moellmann * emacs-lisp/lisp-mnt.el (lm-keywords-list, lm-keywords-finder-p): New functions. - (lm-verify): Check keywords. - From: Eric M. Ludlam . + (lm-verify): Check keywords. + From Eric M. Ludlam . 2001-04-03 Eric M. Ludlam diff --git a/lisp/progmodes/cc-cmds.el b/lisp/progmodes/cc-cmds.el index ae905c08d86..70195e4cb56 100644 --- a/lisp/progmodes/cc-cmds.el +++ b/lisp/progmodes/cc-cmds.el @@ -1283,9 +1283,11 @@ sentence motion in or near comments and multiline strings." ;; used by outline-minor-mode (defun c-outline-level () - (save-excursion - (skip-chars-forward "\t ") - (current-column))) + ;; This so that `current-column' DTRT in otherwise-hidden text. + (let (buffer-invisibility-spec) + (save-excursion + (skip-chars-forward "\t ") + (current-column)))) (defun c-up-conditional (count) -- 2.39.2