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)