Mercurial > hg > xemacs-beta

comparison lisp/cus-edit.el @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 95016f13131a
children
comparison
equal deleted inserted replaced
423:28d9c139be4c 424:11054d720c21
3278 'rogue)))))) 3278 'rogue))))))
3279 (comment (get symbol 'saved-variable-comment))) 3279 (comment (get symbol 'saved-variable-comment)))
3280 (when (or (and spec (eq (car spec) 'user) 3280 (when (or (and spec (eq (car spec) 'user)
3281 (eq (second spec) 'set)) comment) 3281 (eq (second spec) 'set)) comment)
3282 (princ "\n '(") 3282 (princ "\n '(")
3283 (princ symbol) 3283 (prin1 symbol)
3284 (princ " ") 3284 (princ " ")
3285 ;; This comment stuf is in the way #### 3285 ;; This comment stuf is in the way ####
3286 ;; Is (eq (third spec) (car saved-value)) ???? 3286 ;; Is (eq (third spec) (car saved-value)) ????
3287 ;; (prin1 (third spec)) 3287 ;; (prin1 (third spec))
3288 (prin1 (car (get symbol 'saved-value))) 3288 (prin1 (car (get symbol 'saved-value)))
3311 ;; Don't print default face here. 3311 ;; Don't print default face here.
3312 theme-spec 3312 theme-spec
3313 (eq (car theme-spec) 'user) 3313 (eq (car theme-spec) 'user)
3314 (eq (second theme-spec) 'set)) comment) 3314 (eq (second theme-spec) 'set)) comment)
3315 (princ "\n '(") 3315 (princ "\n '(")
3316 (princ symbol) 3316 (prin1 symbol)
3317 (princ " ") 3317 (princ " ")
3318 (prin1 (get symbol 'saved-face)) 3318 (prin1 (get symbol 'saved-face))
3319 (if (or comment now) 3319 (if (or comment now)
3320 (princ (if now " t" " nil"))) 3320 (princ (if now " t" " nil")))
3321 (when comment 3321 (when comment
3356 (unless (bolp) 3356 (unless (bolp)
3357 (princ "\n")) 3357 (princ "\n"))
3358 (princ "(") 3358 (princ "(")
3359 (princ (quote ,setter)) 3359 (princ (quote ,setter))
3360 (princ "\n '(") 3360 (princ "\n '(")
3361 (princ object) 3361 (prin1 object)
3362 (princ " ") 3362 (princ " ")
3363 (prin1 (third spec)) 3363 (prin1 (third spec))
3364 (princ ")"))))))) 3364 (princ ")")))))))
3365 (mapc mapper special) 3365 (mapc mapper special)
3366 (setq ignored-special special) 3366 (setq ignored-special special)