/[emacs]/emacs/lisp/custom.el
ViewVC logotype

Diff of /emacs/lisp/custom.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.65 by lektu, Tue Feb 4 11:04:19 2003 UTC revision 1.66 by monnier, Thu Mar 13 18:10:41 2003 UTC
# Line 797  this sets the local binding in that buff Line 797  this sets the local binding in that buff
797          (set variable value))          (set variable value))
798      (set-default variable value)))      (set-default variable value)))
799    
800    (defun custom-set-minor-mode (variable value)
801      ":set function for minor mode variables.
802    Normally, this sets the default value of VARIABLE to nil if VALUE
803    is nil and to t otherwise,
804    but if `custom-local-buffer' is non-nil,
805    this sets the local binding in that buffer instead."
806      (if custom-local-buffer
807          (with-current-buffer custom-local-buffer
808            (funcall variable (or value 0)))
809        (funcall variable (or value 0))))
810    
811  (defun custom-quote (sexp)  (defun custom-quote (sexp)
812    "Quote SEXP iff it is not self quoting."    "Quote SEXP iff it is not self quoting."
813    (if (or (memq sexp '(t nil))    (if (or (memq sexp '(t nil))

Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26