Changeset View
Changeset View
Standalone View
Standalone View
mail/wanderlust/files/patch-utils_ptexinfmt.el
--- utils/ptexinfmt.el.orig | --- utils/ptexinfmt.el.orig 2005-02-24 08:16:41 UTC | ||||
+++ utils/ptexinfmt.el | +++ utils/ptexinfmt.el | ||||
@@ -68,50 +68,50 @@ | @@ -68,50 +68,50 @@ This is last argument in `ptexinfmt-brok | ||||
"Declare a symbol FACILITY is broken if ASSERTION is nil. | "Declare a symbol FACILITY is broken if ASSERTION is nil. | ||||
DOCSTRING will be printed if ASSERTION is nil and | DOCSTRING will be printed if ASSERTION is nil and | ||||
`ptexinfmt-disable-broken-notice-flag' is nil." | `ptexinfmt-disable-broken-notice-flag' is nil." | ||||
- (` (let ((facility '(, facility)) | - (` (let ((facility '(, facility)) | ||||
- (docstring (, docstring)) | - (docstring (, docstring)) | ||||
- (assertion (eval '(, assertion)))) | - (assertion (eval '(, assertion)))) | ||||
+ `(let ((facility ',facility) | + `(let ((facility ',facility) | ||||
+ (docstring ,docstring) | + (docstring ,docstring) | ||||
▲ Show 20 Lines • Show All 52 Lines • ▼ Show 20 Lines | |||||
+ (defvar ,name) | + (defvar ,name) | ||||
+ (if (boundp ',name) | + (if (boundp ',name) | ||||
nil | nil | ||||
- (defvar (, name) (,@ args))))))) | - (defvar (, name) (,@ args))))))) | ||||
+ (defvar ,name ,@args))))) | + (defvar ,name ,@args))))) | ||||
;; sort -fd | ;; sort -fd | ||||
(ptexinfmt-broken-facility texinfo-format-printindex | (ptexinfmt-broken-facility texinfo-format-printindex | ||||
@@ -509,7 +509,7 @@ | @@ -509,7 +509,7 @@ For example, @verb\{|@|\} results in @ a | ||||
(goto-char texinfo-command-start)) | (goto-char texinfo-command-start)) | ||||
;; @,{c} ==> c, cedilla accent | ;; @,{c} ==> c, cedilla accent | ||||
-(put ', 'texinfo-format 'texinfo-format-cedilla-accent) | -(put ', 'texinfo-format 'texinfo-format-cedilla-accent) | ||||
+(put '\, 'texinfo-format 'texinfo-format-cedilla-accent) | +(put '\, 'texinfo-format 'texinfo-format-cedilla-accent) | ||||
(ptexinfmt-defun-if-void texinfo-format-cedilla-accent () | (ptexinfmt-defun-if-void texinfo-format-cedilla-accent () | ||||
(insert (texinfo-parse-arg-discard) ",") | (insert (texinfo-parse-arg-discard) ",") | ||||
(goto-char texinfo-command-start)) | (goto-char texinfo-command-start)) |