- (setq g3 `(nil ,g3))
- (setq g3 `(,g3 t))))
- `(,name 2 ,mnemonic ,doc-string
- (,g0 ,g1 ,g2 ,g3
- ,(plist-get props 'short)
- ,(not (plist-get props 'no-ascii-eol))
- ,(not (plist-get props 'no-ascii-cntl))
- ,(plist-get props 'seven)
- t
- ,(not (plist-get props 'lock-shift))
- ,use-roman
- ,use-oldjis
- ,(plist-get props 'no-iso6429)
- nil nil nil nil)
- ,properties ,eol-type)))
+ (setq g3 (` (nil (, g3))))
+ (setq g3 (` ((, g3) t)))))
+ (` ((, name) 2 (, mnemonic) (, doc-string)
+ ((, g0) (, g1) (, g2) (, g3)
+ (, (plist-get props 'short))
+ (, (not (plist-get props 'no-ascii-eol)))
+ (, (not (plist-get props 'no-ascii-cntl)))
+ (, (plist-get props 'seven))
+ t
+ (, (not (plist-get props 'lock-shift)))
+ (, use-roman)
+ (, use-oldjis)
+ (, (plist-get props 'no-iso6429))
+ nil nil nil nil)
+ (, properties) (, eol-type)))))