Initial revision

[bpt/emacs.git] / lisp / man.el

diff --git a/lisp/man.el b/lisp/man.el
index b04a591..8f51762 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -17,10 +17,11 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;;###autoload
 (defun manual-entry (topic &optional section)
   "Display the Unix manual entry for TOPIC.
 TOPIC is either the title of the entry, or has the form TITLE(SECTION)
-where SECTION is the desired section of the manual, as in `tty(4)'."
+where SECTION is the desired section of the manual, as in \"tty(4)\"."
   (interactive "sManual entry (topic): ")
   (if (= (length topic) 0)
       (error "Must specify topic"))
@@ -93,7 +94,7 @@ where SECTION is the desired section of the manual, as in `tty(4)'."
       (view-mode nil 'bury-buffer)
       (message ""))))
 
-;; Hint: BS stands form more things than "back space"
+;; Hint: BS stands for more things than "back space"
 (defun nuke-nroff-bs ()
   (interactive "*")
   ;; Nuke headers: "MORE(1) UNIX Programmer's Manual MORE(1)"
@@ -119,6 +120,9 @@ where SECTION is the desired section of the manual, as in `tty(4)'."
       (cond ((= preceding following)
             ;; x\bx
             (delete-char -2))
+           ((and (= preceding ?o) (= following ?\+))
+            ;; o\b+ 
+            (delete-char -2))
            ((= preceding ?\_)
             ;; _\b
             (delete-char -2))