Mercurial > hg > xemacs-beta
diff lisp/hyperbole/kotl/kvspec.el @ 36:c53a95d3c46d r19-15b101
Import from CVS: tag r19-15b101
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:53:38 +0200 |
parents | 4103f0995bd7 |
children | 131b0175ea99 |
line wrap: on
line diff
--- a/lisp/hyperbole/kotl/kvspec.el Mon Aug 13 08:53:21 2007 +0200 +++ b/lisp/hyperbole/kotl/kvspec.el Mon Aug 13 08:53:38 2007 +0200 @@ -8,7 +8,7 @@ ;; AUTHOR: Bob Weiner ;; ;; ORIG-DATE: 21-Oct-95 at 15:17:07 -;; LAST-MOD: 4-Dec-96 at 15:36:12 by Bob Weiner +;; LAST-MOD: 6-Mar-97 at 01:17:04 by Bob Weiner ;; ;; This file is part of Hyperbole. ;; Available for use and distribution under the same terms as GNU Emacs. @@ -122,7 +122,7 @@ "Show NUM lines per cell." (if (and (integerp num) (>= num 0)) nil - (error "(kvspec:show-lines-per-cell): Invalid lines per cell, '%d'" num)) + (error "(kvspec:show-lines-per-cell): Invalid lines per cell, `%d'" num)) (kview:set-attr kview 'lines-to-show num) (let (start end count) (if (zerop num) @@ -181,7 +181,7 @@ ;;; ************************************************************************ (defun kvspec:blank-lines () - "Turn blank lines on or off according to 'kvspec:current'." + "Turn blank lines on or off according to `kvspec:current'." (let ((modified-p (buffer-modified-p)) (buffer-read-only)) (if (string-match "b" kvspec:current) @@ -234,12 +234,12 @@ kvspec:label-type-alist))))))))) (defun kvspec:elide () - "Turn ellipses display following clipped cells on or off according to 'kvspec:current'." + "Turn ellipses display following clipped cells on or off according to `kvspec:current'." (setq selective-display-ellipses (if (string-match "e" kvspec:current) t))) (defun kvspec:hide-levels () - "Show a set number of cell levels according to 'kvspec:current'." + "Show a set number of cell levels according to `kvspec:current'." ;; "l" means use value of kview:default-levels-to-show. ;; "l0" means show all levels. (let (levels) @@ -256,7 +256,7 @@ (kvspec:levels-to-show levels)))) (defun kvspec:lines-to-show () - "Show a set number of lines per cell according to 'kvspec:current'." + "Show a set number of lines per cell according to `kvspec:current'." ;; "c" means use value of kview:default-lines-to-show. ;; "c0" means show all lines. (cond ((not (string-match "c\\([0-9]+\\)?" kvspec:current)) @@ -270,7 +270,7 @@ (t (kvspec:show-lines-per-cell kview:default-lines-to-show)))) (defun kvspec:numbering () - "Set the type of numbering (label) display according to 'kvspec:current'." + "Set the type of numbering (label) display according to `kvspec:current'." (if (not (string-match "n\\([.*~0-2]\\)?" kvspec:current)) nil ;; "n" means use value of kview:default-label-type. @@ -315,7 +315,7 @@ (setq mf (cdr mf))))))))) (defun kvspec:update-view () - "Update view according to current setting of local 'kvspec:current' variable." + "Update view according to current setting of local `kvspec:current' variable." (let ((modified-p (buffer-modified-p)) (buffer-read-only)) (save-excursion @@ -374,7 +374,7 @@ (defvar kvspec:string-format " <|%s>" "Format of the kview spec modeline display. -It must contain a '%s' which is replaced with the current set of view spec +It must contain a `%s' which is replaced with the current set of view spec characters at run-time.") (provide 'kvspec)