cph@ZURICH.AI.MIT.EDU (Chris Hanson) (06/27/89)
The following patch fixes a bug in `texinfo-format-buffer': the formatting for @defop and @defcv was incorrect. The diff is for emacs version 18.54. *** texinfmt.el.~1~ Wed Dec 28 23:11:05 1988 --- texinfmt.el Tue Jun 27 06:45:43 1989 *************** *** 905,911 **** (setq args (cdr args)))) (let ((formatter (get texinfo-command-name 'texinfo-defun-format-type))) (if formatter ! (setq type (funcall formatter type args)))) ;; Delete extra newline inserted after previous header line. (if (not first-p) (delete-char -1)) --- 905,913 ---- (setq args (cdr args)))) (let ((formatter (get texinfo-command-name 'texinfo-defun-format-type))) (if formatter ! (let ((ta (funcall formatter type args))) ! (setq type (car ta)) ! (setq args (cdr ta))))) ;; Delete extra newline inserted after previous header line. (if (not first-p) (delete-char -1)) *************** *** 1029,1035 **** (put 'defmethodx 'texinfo-defun-format-index 'texinfo-format-defop-index) (defun texinfo-format-defop-type (type args) ! (format "%s on %s" type (car args))) (defun texinfo-format-defop-index (type args) (format "%s on %s" (car (cdr args)) (car args))) --- 1031,1037 ---- (put 'defmethodx 'texinfo-defun-format-index 'texinfo-format-defop-index) (defun texinfo-format-defop-type (type args) ! (cons (format "%s on %s" type (car args)) (cdr args))) (defun texinfo-format-defop-index (type args) (format "%s on %s" (car (cdr args)) (car args))) *************** *** 1059,1065 **** (put 'defivarx 'texinfo-defun-format-index 'texinfo-format-defcv-index) (defun texinfo-format-defcv-type (type args) ! (format "%s of %s" type (car args))) (defun texinfo-format-defcv-index (type args) (format "%s of %s" (car (cdr args)) (car args))) --- 1061,1067 ---- (put 'defivarx 'texinfo-defun-format-index 'texinfo-format-defcv-index) (defun texinfo-format-defcv-type (type args) ! (cons (format "%s of %s" type (car args)) (cdr args))) (defun texinfo-format-defcv-index (type args) (format "%s of %s" (car (cdr args)) (car args)))