diff options
| author | Chong Yidong <[email protected]> | 2011-09-17 17:28:17 -0400 |
|---|---|---|
| committer | Chong Yidong <[email protected]> | 2011-09-17 17:28:17 -0400 |
| commit | 8c0f49f09c3079730870957c31422204f93eec28 (patch) | |
| tree | f7ba6ed4d8c6e97f6ac4560837a2cca26dd08259 /lisp/net/ldap.el | |
| parent | b8f0a954b883d4d46983078f70a8b59a61cfa693 (diff) | |
* lisp/replace.el (occur-mode-map): Rebind occur-edit-mode to "e".
(occur-edit-mode-map): Bind C-c C-c to occur-cease-edit and C-o to
occur-mode-display-occurrence.
(occur-edit-mode): Add usage message.
(occur-cease-edit): New command.
(occur-after-change-function): Use text properties to find the
position of the prefix text.
(occur-engine): Set stickiness of prefix text properties.
Fixes: debbugs:8463
Diffstat (limited to 'lisp/net/ldap.el')
| -rw-r--r-- | lisp/net/ldap.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/net/ldap.el b/lisp/net/ldap.el index a45cc5500c..1fa57dbfe3 100644 --- a/lisp/net/ldap.el +++ b/lisp/net/ldap.el @@ -632,9 +632,10 @@ an alist of attribute/value pairs." (setq record (cons (list name value) record)) (forward-line 1)) - (push (if withdn - (cons dn (nreverse record)) - (nreverse record)) result) + (cond (withdn + (push (cons dn (nreverse record)) result)) + (record + (push (nreverse record) result))) (setq record nil) (skip-chars-forward " \t\n") (message "Parsing results... %d" numres) |