diff lisp/oobr/br-tree.el @ 70:131b0175ea99 r20-0b30

Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 4103f0995bd7
children 4be1180a9e89
line wrap: on
line diff
--- a/lisp/oobr/br-tree.el	Mon Aug 13 09:00:04 2007 +0200
+++ b/lisp/oobr/br-tree.el	Mon Aug 13 09:02:59 2007 +0200
@@ -6,12 +6,12 @@
 ;; KEYWORDS:     mouse, oop, tools
 ;;
 ;; AUTHOR:       Bob Weiner
-;; ORG:          InfoDock Associates
+;; ORG:          Motorola Inc.
 ;;
 ;; ORIG-DATE:    12-Oct-90
-;; LAST-MOD:     20-Feb-97 at 07:01:02 by Bob Weiner
+;; LAST-MOD:      5-Jun-95 at 12:00:10 by Bob Weiner
 ;;
-;; Copyright (C) 1990-1995, 1997  Free Software Foundation, Inc.
+;; Copyright (C) 1990-1995  Free Software Foundation, Inc.
 ;; See the file BR-COPY for license information.
 ;;
 ;; This file is part of the OO-Browser.
@@ -106,14 +106,14 @@
 	    (format "(OO-Browser):  Illegal command: %s" cmd)))))
 
 (defun br-tree-features-toggle ()
-  "Toggle between showing and hiding features when `br-tree' is invoked to display descendants graphically."
+  "Toggle between showing and hiding features when 'br-tree' is invoked to display descendants graphically."
   (interactive)
   (setq br-show-features (not br-show-features))
   (message "New graphical OO-Browsers will %sshow features."
 	   (if br-show-features "" "not ")))
 
 (defun br-tree-kill ()
-  "Kill all current `Tree' sub-processes."
+  "Kill all current 'Tree' sub-processes."
   (interactive)
   (if (br-kill-process-group br-tree-name br-tree-num
 			     "Tree displays")
@@ -224,7 +224,7 @@
 
 (defun br-tree-build-features (c expand-subtree indent offset)
   "Each language under which this function is called must define its own
-version of `br-list-features' and `br-feature-signature-to-name'."
+version of 'br-list-features' and 'br-feature-signature-to-name'."
   (let ((features) (ch))
     (and expand-subtree
 	 (setq features
@@ -281,7 +281,7 @@
 	    (br-tree-do-cmd br-lang-px br-env-nm
 			    br-cmd-nm br-node-nm))
 	(beep)
-	(message "`%s': invalid command from graphical browser"
+	(message "'%s': invalid command from graphical browser"
 		 br-cmd-str)
 	(setq br-cmd-str nil)))))