From f273fa0ebbc2f94e2b0134a7e8824123fbb76f03 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Thu, 15 Sep 2011 03:15:18 +0200
Subject: Compatibility with filladapt.
Seems like the add-on package filladapt.el is broken in that its
version of fill-adapt uses a non-optional first argument. Aquamacs
users were filling the pain. Fixed by passing nil in our call to
fill-paragraph. Hat tip Jonathan Oddie.
---
elisp/geiser-doc.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
(limited to 'elisp')
diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el
index c085718..ad16f92 100644
--- a/elisp/geiser-doc.el
+++ b/elisp/geiser-doc.el
@@ -1,6 +1,6 @@
;;; geiser-doc.el -- accessing scheme-provided documentation
-;; Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010, 2011 Jose Antonio Ortega Ruiz
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the Modified BSD License. You should
@@ -224,7 +224,7 @@ help (e.g. browse an HTML page) implementing this method.")
(defun geiser-doc--insert-title (title)
(let ((p (point)))
(insert (format "%s" title))
- (fill-paragraph)
+ (fill-paragraph nil)
(let ((indent-line-function 'lisp-indent-line))
(indent-region p (point)))
(put-text-property p (point) 'face 'geiser-font-lock-doc-title)
--
cgit v1.2.3