Stefan Monnier [Mon, 19 Nov 2007 07:44:30 +0000 (07:44 +0000)]
(Fbuffer_local_value): Remove redundant test.
(swap_out_buffer_local_variables): Swap out binding in `buffer' rather
than in `current-buffer' to match the comment.
Do the swap using swap_in_global_binding.
Stefan Monnier [Mon, 19 Nov 2007 07:40:51 +0000 (07:40 +0000)]
* coding.c (detect_coding, Fupdate_coding_systems_internal):
* fns.c (Fmd5): Use find_symbol_value rather than SYMBOL_VALUE
Since we do not want to see internal Lisp_*fwd objects here.
Jan Djärv [Sun, 18 Nov 2007 13:54:46 +0000 (13:54 +0000)]
(x_scroll_bar_set_handle, x_scroll_bar_handle_click)
(x_scroll_bar_note_movement): start, end, with, height in struct
scroll_bar are integers and not Lisp_Object, so remove XINT for them.
Michael Albinus [Sun, 18 Nov 2007 10:24:51 +0000 (10:24 +0000)]
* net/tramp.el (tramp-completion-reread-directory-timeout): New
defcustom.
(tramp-handle-file-name-all-completions): Flush directory contents
from cache regularly.
(tramp-set-auto-save-file-modes): Check also for
`buffer-modified-p'.
(tramp-open-connection-setup-interactive-shell): Call
`tramp-cleanup-connection' via funcall.
* net/tramp-ftp.el (tramp-ftp-file-name-handler): Temp file is already
created when copying.
(ring-size, ring-p, ring-insert, ring-length, ring-empty-p): Use c[ad]dr.
(ring-plus1): Use `1+'.
(ring-minus1): Use `zerop'.
(ring-remove): Use c[ad]dr. Use `when'.
(ring-copy): Use c[ad]dr. Use `let', not `let*'.
(ring-ref): Use `let', not `let*'.
(ring-insert-at-beginning): Use c[ad]dr. Doc fix.
(ring-insert+extend): Use c[ad]dr. Fix typo in docstring.
(ring-member): Simplify. Doc fix.
(ring-convert-sequence-to-ring): Simplify.
Juri Linkov [Sat, 17 Nov 2007 01:27:52 +0000 (01:27 +0000)]
(dired-create-directory): Allow creating
a directory of an arbitrary depth. Add a loop to find the topmost
nonexistent parent dir `new', and call `dired-add-file' on it.
Set the `PARENTS' arg of `make-directory' to t.
Stefan Monnier [Fri, 16 Nov 2007 21:23:07 +0000 (21:23 +0000)]
(struct save_window_data): Move non-lisp data to the end
and make it `int' rather than Lisp_Object.
(Fcurrent_window_configuration): Use ALLOCATE_PSEUDOVECTOR.
Done wrap/unwrap integer values.
(Fset_window_configuration, compare_window_configurations):
Update use of fields to their new types.
Stefan Monnier [Fri, 16 Nov 2007 21:04:30 +0000 (21:04 +0000)]
* xterm.h (struct scroll_bar): Only use Lisp_Object for lisp data.
Turn integer fields into `int'. Merge x_window_low and x_window_high.
(SCROLL_BAR_PACK, SCROLL_BAR_UNPACK, SCROLL_BAR_X_WINDOW)
(SET_SCROLL_BAR_X_WINDOW): Remove.
(SCROLL_BAR_X_WIDGET, SET_SCROLL_BAR_X_WIDGET):
Access the new x_window field directly.
* xterm.c (x_scroll_bar_create): Use a pseudovector.
Don't wrap/unwrap integers into Lisp_Objects.
(XTset_vertical_scroll_bar, x_scroll_bar_handle_click)
(x_scroll_bar_report_motion):
Don't wrap/unwrap integers into Lisp_Objects.
(x_term_init): Use SDATA.
(x_window_to_scroll_bar, x_create_toolkit_scroll_bar)
(x_scroll_bar_set_handle, x_scroll_bar_remove)
(XTset_vertical_scroll_bar, x_scroll_bar_expose)
(x_scroll_bar_report_motion, x_scroll_bar_clear):
* xfns.c (x_set_background_color):
* gtkutil.c (xg_create_scroll_bar, xg_set_toolkit_scroll_bar_thumb):
Access the new x_window field directly.
Stefan Monnier [Fri, 16 Nov 2007 20:36:34 +0000 (20:36 +0000)]
* alloc.c (ALLOCATE_PSEUDOVECTOR): Move to lisp.h.
(allocate_pseudovector): Make non-static.
* lisp.h (enum pvec_type): New tag PVEC_OTHER.
(allocate_pseudovector): Declare.
(ALLOCATE_PSEUDOVECTOR): Move from alloc.c
Stefan Monnier [Fri, 16 Nov 2007 18:07:14 +0000 (18:07 +0000)]
(pc-select-shifted-mark): Remove.
(pc-select-ensure-mark): Set mark-active to a special value instead.
Rename from ensure-mark. Update call callers.
(pc-select-maybe-deactivate-mark): Rename from maybe-deactivate-mark.
Rewrite. Update all callers.
(pc-selection-mode): Remove redundant var declaration.
* mm-view.el (mm-inline-image-xemacs): Only do something for XEmacs.
(mm-display-inline-fontify): Check for featurep 'xemacs not
extent-list.
* mm-decode.el (mm-display-external): Check for featurep 'xemacs not
itimer-list.
(mm-create-image-xemacs): Only do something for XEmacs.
(mm-image-fit-p): Check for featurep 'xemacs not glyph-width.
* mm-util.el (mm-find-buffer-file-coding-system): Add check for XEmacs.
Stefan Monnier [Thu, 15 Nov 2007 19:56:44 +0000 (19:56 +0000)]
(doc-view-ghostscript-options): Remove resolution arg.
(doc-view-resolution): New custom var.
(doc-view-pdf/ps->png): Use it.
(doc-view-shrink-factor): New var.
(doc-view-enlarge, doc-view-shrink): New commands.
(doc-view-mode-map): Use them.
Stefan Monnier [Thu, 15 Nov 2007 16:03:00 +0000 (16:03 +0000)]
* subr.el (event-modifiers): Use internal-event-symbol-parse-modifiers.
* keyboard.c (Fevent_symbol_parse_modifiers): New function.
(syms_of_keyboard): Defsubr it.
Make prototypes for extern definitions, and add all
that are needed to quench warnings on 64-bit.
(main): Use the same defaults for ctags as for etags: find
typedefs, structure tags, macro constants, enum constants, struct
members and global variables.
(make_C_tag) [DEBUG]: Add debugging printout.
(C_entries): In case '}' decrement bracelev before testing it.
Make prototypes for extern definitions, and add all
that are needed to quench warnings on 64-bit.
(main): Use the same defaults for ctags as for etags: find
typedefs, structure tags, macro constants, enum constants, struct
members and global variables.
(make_C_tag) [DEBUG]: Add debugging printout.
(C_entries): In case '}' decrement bracelev before testing it.