;;; infohack.el --- a hack to format info file.
-;; Copyright (C) 2001, 2003, 2004, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 2001-2013 Free Software Foundation, Inc.
;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
;; Keywords: info
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
-;; Boston, MA 02110-1301, USA.
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
(expand-file-name (file-name-nondirectory buffer-file-name)
default-directory))
(setq buffer-file-coding-system coding-system)
- (if (> (buffer-size) 100000)
+ (if (> (buffer-size) (if (boundp 'Info-split-threshold)
+ (+ 50000 Info-split-threshold)
+ 100000))
(Info-split))
(save-buffer)))
(infohack (car command-line-args-left))
(setq command-line-args-left nil))
-;;; arch-tag: 9ca2f71f-b280-48b3-9826-8dc052dfbbfe
;;; infohack.el ends here