X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/e57f766d3c97162258ec24b2b4986cdc0e98d352..e0f64e7b4f9c3bbc12c4909ca8c8aa751f1fca4a:/lisp/progmodes/hideshow.el diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el index fb4d445b59..dba497b1f4 100644 --- a/lisp/progmodes/hideshow.el +++ b/lisp/progmodes/hideshow.el @@ -1,4 +1,4 @@ -;;; hideshow.el --- minor mode cmds to selectively display code/comment blocks -*- coding: utf-8 -*- +;;; hideshow.el --- minor mode cmds to selectively display code/comment blocks ;; Copyright (C) 1994-2015 Free Software Foundation, Inc. @@ -323,13 +323,13 @@ Hideshow puts a unique overlay on each range of text to be hidden in the buffer. Here is a simple example of how to use this variable: (defun display-code-line-counts (ov) - (when (eq 'code (overlay-get ov 'hs)) - (overlay-put ov 'display + (when (eq \\='code (overlay-get ov \\='hs)) + (overlay-put ov \\='display (format \"... / %d\" (count-lines (overlay-start ov) (overlay-end ov)))))) - (setq hs-set-up-overlay 'display-code-line-counts) + (setq hs-set-up-overlay \\='display-code-line-counts) This example shows how to get information from the overlay as well as how to set its `display' property. See `hs-make-overlay' and